[محمد العامر]

اسعد الله جميع اوقاتكم بكل خير
عندي الكود التالي استرجاع نسخة sql وتعمل بشكل صحيح عندي ولكن عند العميل خطاء
والسبب بأن مسار استرجاع النسخة مختلف عند العميل ما هو الحل لو تكرمتوا

كود :

       If String.IsNullOrEmpty(Textrecovery.Text) Then Exit Sub
       If Not Textrecovery.Text.Contains("Data1.bak") Then
       DevExpress.XtraEditors.XtraMessageBox.Show("قاعدة البيانات التي تم اختيارها لا تتوافق مع المطلوب", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
       Exit Sub
       End If
       Try
       Dim con As New SqlConnection("server=.\SQLEXPRESS;Initial Catalog=master;integrated security=true")
       con.Open()
       Dim cmd As New SqlCommand("ALTER DATABASE Data1 SET SINGLE_USER WITH ROLLBACK IMMEDIATE", con)
       cmd.ExecuteNonQuery()
       cmd = New SqlCommand("RESTORE DATABASE [Data1] FROM DISK = @filePath WITH MOVE 'Data1' TO 'C:\Program Files (x86)\Microsoft SQL Server\MSSQL12.SQLEXPRESS\MSSQL\DATA\Data1.mdf', MOVE 'Data1_log' TO 'C:\Program Files (x86)\Microsoft SQL Server\MSSQL12.SQLEXPRESS\MSSQL\DATA\Data1.ldf', REPLACE, RECOVERY", con)
       cmd.Parameters.AddWithValue("@filePath", Textrecovery.Text)
       cmd.ExecuteNonQuery()
       cmd = New SqlCommand("ALTER DATABASE Data1 SET MULTI_USER WITH ROLLBACK IMMEDIATE", con)
       cmd.ExecuteNonQuery()
       con.Close()
       DevExpress.XtraEditors.XtraMessageBox.Show("تمت عملية استرجاع النسخة الاحتياطية لقاعدة البيانات بنجاح", "تنبية", MessageBoxButtons.OK, MessageBoxIcon.Information)
       Textrecovery.Text = String.Empty
       Catch ex As Exception
       DevExpress.XtraEditors.XtraMessageBox.Show("فشل في عملية الاسترجاع: " & ex.Message, "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
       End Try

[محمد العامر]

هل اجد شرح لهذه الطريقة ؟

[محمد العامر]

هذا الحل يا اخوان

كود :

   Private Sub Btnrecovery_Click(sender As Object, e As EventArgs) Handles Btnrecovery.Click
       Dim database As String = con.Database.ToString()
       If String.IsNullOrEmpty(Textrecovery.Text) Then
           DevExpress.XtraEditors.XtraMessageBox.Show("الرجاء اختيار ملف النسخة الاحتياطية", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Warning)
           Exit Sub
       End If
       Try
           con.Open()
           ' ضبط قاعدة البيانات إلى وضع المستخدم الواحد
           Dim str1 As String = String.Format("ALTER DATABASE [{0}] SET SINGLE_USER WITH ROLLBACK IMMEDIATE", database)
           Dim cmd1 As New SqlCommand(str1, con)
           cmd1.ExecuteNonQuery()
           ' استعادة قاعدة البيانات
           Dim str2 As String = String.Format("USE MASTER; RESTORE DATABASE [{0}] FROM DISK = '{1}' WITH REPLACE", database, Textrecovery.Text)
           Dim cmd2 As New SqlCommand(str2, con)
           cmd2.ExecuteNonQuery()
           ' إعادة قاعدة البيانات إلى وضع متعدد المستخدمين
           Dim str3 As String = String.Format("ALTER DATABASE [{0}] SET MULTI_USER", database)
           Dim cmd3 As New SqlCommand(str3, con)
           cmd3.ExecuteNonQuery()
           DevExpress.XtraEditors.XtraMessageBox.Show("تم استرجاع النسخة الاحتياطية لقاعدة البيانات بنجاح", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Information)
       Catch ex As Exception
           DevExpress.XtraEditors.XtraMessageBox.Show("حدث خطأ أثناء استعادة النسخة الاحتياطية لقاعدة البيانات: " & ex.Message, "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
       Finally
           ' التأكد من إغلاق الاتصال دائمًا
           If con.State = ConnectionState.Open Then
               con.Close()
           End If
       End Try

   End Sub