شكراً لكل من مر على الموضوع وشكراً لكل من حاول المساعدة ولم يتمكن تم حل الاشكال ولله الحمد بمساعدة chat gpt
والاكواد بعد التعديل ستكون على الشكل التالي ربما يستفاد منها
كود النسخ الاحتياطي لقاعدة البيانات هو
وكود استعادة النسخة الاحتياطية هو
وشكراً للجميع دون استتناء
والاكواد بعد التعديل ستكون على الشكل التالي ربما يستفاد منها
كود النسخ الاحتياطي لقاعدة البيانات هو
كود :
If fbd.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim sourcePath As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\vacc.accdb"
Dim destinationpath As String = fbd.SelectedPath & "\vacc.accdb"
Try
File.Copy(sourcePath, destinationpath, True)
MessageBox.Show("تمت عملية النسخ الاحتياطي بنجاح")
Catch ex As Exception
MessageBox.Show("حصل خطأ عند نسخ قاعدة البيانات " & ex.Message)
End Try
End Ifوكود استعادة النسخة الاحتياطية هو
كود :
ofd.Filter = "Access files |*.accdb"
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim fi As New FileInfo(ofd.FileName)
If fi.Name = "vacc.accdb" Then
Dim source As String = ofd.FileName
Dim destination As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\vacc.accdb"
File.Copy(source, destination, True)
MsgBox("تمت عملية الاستعادة بنجاح", MsgBoxStyle.Information, "تأكيد")
SelectAll_vacc(dgv_vacc) تحميل قاعدة البانات بعد الاسترجاع
Else
MsgBox("الملف المطلوب يجب أن يكون باسم " & "vacc.accdb", MsgBoxStyle.Information, "خطأ")
End If
End Ifوشكراً للجميع دون استتناء
