[أبو خالد الشكري]

للأسف لم أتمكن من إغلاق قاعدة البيانات
وهذه الأكواد التي أستخدمها لعملية النسخ ...

كود :

Dim SaveFileDialog1 As New SaveFileDialog
       Dim myDataBaseName As String = "CodesBank" '  اسم قاعدة البيانات الافتراضي
       Dim ThisDay As String = " (Date " & Today.Day & "_" & Today.Month & "_" & Today.Year & " Time " & My.Computer.Clock.LocalTime.ToString("hh_mm_ss") & ")"
       Dim MyBackupFileName As String = myDataBaseName & ThisDay & ".mdf"

       SaveFileDialog1.Filter = "Backup Database (*.mdf)|*.mdf"
       SaveFileDialog1.FileName = MyBackupFileName
       SaveFileDialog1.Title = "إنشاء نسخة احتياطية لقاعدة البيانات"
       SaveFileDialog1.InitialDirectory = Application.StartupPath
       SaveFileDialog1.RestoreDirectory = True

       Dim result = SaveFileDialog1.ShowDialog()
       If result = DialogResult.Cancel Then
           Exit Sub
       End If

       'إغلاق قاعدة البيانات قبل النسخ الاحتياطي
       If Con.State = ConnectionState.Open Then Con.Close()

       My.Computer.FileSystem.CopyFile(Application.StartupPath & "\" & myDataBaseName & ".mdf", SaveFileDialog1.FileName)

       'تشغيل قاعدة البيانات بعد النسخ الاحتياطي
       If Con.State = ConnectionState.Closed Then Con.Open()

       MessageBox.Show("تم نسخ قاعدة البيانات بنجاح", "نسخ قاعدة البيانات", MessageBoxButtons.OK, MessageBoxIcon.Information)