PDA

View Full Version : نمایش درصد پشتیبان گیری یا ریستور کردن



kafinetetaha
پنج شنبه 21 اردیبهشت 1391, 01:36 صبح
با سلام من استور پروسجری می خوام که بتونم باهاش بک آپ و ریستور را انجام بدم در ضما هنگام انجام این عملیات ها درصد آن را هم نمایش دهد.

heidary
سه شنبه 23 خرداد 1391, 15:50 عصر
ابتدا اندازه دیتا بیس رو با استفاده از کد زیر بدست آرید.


cm.CommandText = "exec sp_helpdb " & strDataBaseName
sqlDR = cm.ExecuteReader
If sqlDR.HasRows Then
sqlDR.Read()
lblNextSize.Text = sqlDR("db_size")
sqlDR.Close()
End If
سپس اندازه فایلی را که بعنوان Backup است رو در زمانهای دلخواه بدست آورید و با اندازه قبلی مقایسه کنید


Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
btnStart.Visible = False
ProgressBar1.Visible = True
Dim t As New Thread(AddressOf BackupRestore)
t.Start()
While t.ThreadState <> ThreadState.Stopped
Try
If IO.File.Exists(FileName) Then
Dim s As New IO.FileInfo(FileName)
Label1.Text = Math.Round(s.Length / (1024 * 1024), 2) & " از " & DataSize.Trim
End If

Catch ex As IO.FileNotFoundException

End Try
Application.DoEvents()
End While
Me.Close()
End Sub

Private Sub BackupRestore()
Try
cn.ConnectionString = strConnectionStringMaster
cn.Open()
Dim cm As New SqlCommand(strSQL, cn)
cm.CommandTimeout = 0
cm.ExecuteNonQuery()
cn.Close()
MsgBox(operation & " با موفقيت انجام شد ")
Catch ex As SqlException
MsgBox(ex.Message)
Finally
cn.Close()
End Try
End Sub