نمایش درصد پشتیبان گیری یا ریستور کردن

[kafinetetaha]

با سلام من استور پروسجری می خوام که بتونم باهاش بک آپ و ریستور را انجام بدم در ضما هنگام انجام این عملیات ها درصد آن را هم نمایش دهد.

[heidary]

ابتدا اندازه دیتا بیس رو با استفاده از کد زیر بدست آرید.

  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