18-08-19, 12:14 AM
السلام عليكم احبتى فى الله
اعلم باننى كثير الاسئله فاعزرونى واقدر لكم كل مجهوداتكم معى
اتمنى من الله ان تكونوا باتم الصحه والخير
هذا الكود الموضح يعمل معى تمام فى استعاده النسخه الاحتياطيه ولكن به مشكله
عند استعاده النسخه
يستعيدها بعمليه صحيحيه جدا
ولكن بعد الاستعاده لو قمت باى اجراء على البرنامج يعطينى انه لا يوجد قاعده البيانات التى مسارها
الغريب بنها تاخذ المسار الئى اخذت منه النسخه الاحتياطيه
ولولا ان اقفل البرنامج واعاود فتحه حتى يعود كل شئ كما كان ويعمل البرنامج بشكل صحيح
فهل هناك خطأ فى الكود وماهى الطريقه التى يجعل البرنامج ياخذ نفس مسار قاعده البيانات بدون غلقه
وشكرا
اعلم باننى كثير الاسئله فاعزرونى واقدر لكم كل مجهوداتكم معى
اتمنى من الله ان تكونوا باتم الصحه والخير
هذا الكود الموضح يعمل معى تمام فى استعاده النسخه الاحتياطيه ولكن به مشكله
عند استعاده النسخه
يستعيدها بعمليه صحيحيه جدا
ولكن بعد الاستعاده لو قمت باى اجراء على البرنامج يعطينى انه لا يوجد قاعده البيانات التى مسارها
الغريب بنها تاخذ المسار الئى اخذت منه النسخه الاحتياطيه
ولولا ان اقفل البرنامج واعاود فتحه حتى يعود كل شئ كما كان ويعمل البرنامج بشكل صحيح
فهل هناك خطأ فى الكود وماهى الطريقه التى يجعل البرنامج ياخذ نفس مسار قاعده البيانات بدون غلقه
وشكرا
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim scrpath, destpath, compdestpath As String
Dim OFD As New OpenFileDialog
destpath = Application.StartupPath & " "
compdestpath = Path.Combine(destpath, "SADANY.accdb")
OFD.Filter = "Microsost Access 2007|*.Accdb"
If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
scrpath = OFD.FileName
End If
If My.Computer.FileSystem.FileExists(compdestpath) = True Then
If MessageBox.Show(" هل تريد فعلا الاستعاده ", "تنبيه", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.No Then
Exit Sub
Else
My.Computer.FileSystem.DeleteFile(compdestpath)
My.Computer.FileSystem.CopyFile(OFD.FileName, compdestpath)
con.Open()
MsgBox("تم ستعاده النسخه بنجاح")
End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub