حفظ واستعادة قاعدة البيانات

السلام عليكم ورحمه الله وبركاته

لقد تم اغلاق موضوعك سابقا لعدم استخدام خاصيه البحث, ارجو استخدام خاصيه البحث بالمنتدى قبل السؤال!!

جرب الكود التالي لعمل نسخة احتياطيه

Dim conn As New SqlConnection("Server=[Server];Database=master;Integrated Security=true")
Dim cmd = As New SqlCommand(String.Format("backup database mydatabase to disk = '{0}'",SaveFileDialog1.FileName), conn)
conn.Open();
Cmd.ExecuteNonQuery()
conn.Close()

والكود التالي لعملية الاسترجاع

Dim conn As New SqlConnection("Server=[Server];Database=master;Integrated Security=true")
Dim cmd = As New SqlCommand(String.Format("restore database mydatabase from disk = '{0}'",OpenFileDialog1.FileName), conn)
conn.Open();
Cmd.ExecuteNonQuery()
conn.Close()

السلام عليكم ...

كان هناك خطأ في علامات التنصيص ..

و كذلك عبارة الــ Restore لأنه لم تعمل Backup للــ Log File و لذلك استخدمت الاستعادة مع الــ WITH REPLACE

و إليك الكود ...انه يعمل ...

Imports System.Data.SqlClient


Public Class Form1
    Dim con As SqlConnection
    Dim cmd As SqlCommand
    Dim dbName As String = "MyDB"



    Private Sub cmdBrows_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBrows.Click
        Try

            FBD.RootFolder = Environment.SpecialFolder.Desktop
            FBD.ShowNewFolderButton = True
            FBD.ShowDialog()

            txtPath.Text = FBD.SelectedPath

        Catch ex As Exception
            MsgBox("The following error has been occurred while processing .." & vbNewLine & "* Error Type : " & ex.GetType.ToString & vbNewLine & "* Error Description : " & ex.Message, MsgBoxStyle.Critical, "اختيار قاعدة البيانات")
            Exit Sub

        End Try

    End Sub

    Private Sub cmdBackup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBackup.Click
        con.Open()
        cmd.Connection = con
        cmd.CommandText = "backup database " & dbName & " to DISK=N'" & txtPath.Text & "\" & dbName & ".bak'"
        cmd.ExecuteNonQuery()
        MsgBox("bieeeeeen")
        con.Close()

    End Sub

    Private Sub cmdRestore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRestore.Click

        con.Open()
        cmd.Connection = con
        cmd.CommandText = " RESTORE DATABASE " & dbName & " FROM DISK='" & txtPath.Text & "\" & dbName & ".bak' WITH REPLACE"
        cmd.ExecuteNonQuery()
        MsgBox("bieeeeeen")
        con.Close()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
                con = New SqlConnection("password=mypas;Persist Security Info=False;User ID=myUser;Data Source=localhost")
        cmd = New SqlCommand()


    End Sub
End Class