+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : خطأ عند عمل نسخه احتياطيه لقاعده البيانات (/showthread.php?tid=30938)
الصفحات:
1
2
خطأ عند عمل نسخه احتياطيه لقاعده البيانات - خالد كامل1 - 17-08-19
السلام عليكم اخونى
عتد عمل نسخه احتياطيه للقاعده البيانات للم شروع يعطينى خطأ كما مبين فى الصوره
ولا ادرى ما حله
RE: خطأ عند عمل نسخه احتياطيه لقاعده البيانات - خالد كامل1 - 17-08-19
اتمنى من الاخوان ان يساعدونى فى حل تلك المشكله
RE: خطأ عند عمل نسخه احتياطيه لقاعده البيانات - asemshahen5 - 17-08-19
PHP كود :
Dim OpenAccess As New OpenFileDialog With {.Filter = "Microsost Access 1997-2003|*.mdb|All File|*.*", .ShowHelp = True}
If OpenAccess.ShowDialog = DialogResult.OK Then
FileName = OpenAccess.FileName
Label11.Text = OpenAccess.SafeFileName
End if
RE: خطأ عند عمل نسخه احتياطيه لقاعده البيانات - خالد كامل1 - 17-08-19
(17-08-19, 04:21 PM)asemshahen5 كتب :PHP كود :
Dim OpenAccess As New OpenFileDialog With {.Filter = "Microsost Access 1997-2003|*.mdb|All File|*.*", .ShowHelp = True}
If OpenAccess.ShowDialog = DialogResult.OK Then
FileName = OpenAccess.FileName
Label11.Text = OpenAccess.SafeFileName
End if
بس ده اكسس 2007
RE: خطأ عند عمل نسخه احتياطيه لقاعده البيانات - asemshahen5 - 17-08-19
PHP كود :
Dim OpenAccess As New OpenFileDialog With {.Filter = "Microsost Access 2007-2016|*.Accdb|All File|*.*", .ShowHelp = True}
If OpenAccess.ShowDialog = DialogResult.OK Then
FileName = OpenAccess.FileName
Label11.Text = OpenAccess.SafeFileName
End if
RE: خطأ عند عمل نسخه احتياطيه لقاعده البيانات - خالد كامل1 - 17-08-19
(17-08-19, 06:04 PM)asemshahen5 كتب :فى الكود FileName = OpenAccess.FileNamePHP كود :
Dim OpenAccess As New OpenFileDialog With {.Filter = "Microsost Access 2007-2016|*.Accdb|All File|*.*", .ShowHelp = True}
If OpenAccess.ShowDialog = DialogResult.OK Then
FileName = OpenAccess.FileName
Label11.Text = OpenAccess.SafeFileName
End if
FileName اعوض عنها بايه لان بيديى ITEM غير معروف
RE: خطأ عند عمل نسخه احتياطيه لقاعده البيانات - asemshahen5 - 17-08-19
حط الاداه او الي انت عايزه .
Textbox1.text
RE: خطأ عند عمل نسخه احتياطيه لقاعده البيانات - خالد كامل1 - 17-08-19
(17-08-19, 06:40 PM)asemshahen5 كتب : حط الاداه او الي انت عايزهانا بكلم عن الجزء ده فى الكود
FileName = OpenAccess.FileName
FILENAME دى اعوض عنها بايه
اما LABLE1.TEXT دى فاهمها
RE: خطأ عند عمل نسخه احتياطيه لقاعده البيانات - asemshahen5 - 17-08-19
بص يامعلم :
PHP كود :
Dim SaveAccess As New SaveFileDialog With {.Filter = "Microsost Access 2007-2016|*.Accdb|All File|*.*", .ShowHelp = True}
If SaveAccess.ShowDialog = DialogResult.OK Then
''
TextBox1.Text = SaveAccess.FileName
'و الباقي من عندك من الكود الي تحت ده مش شيفه بسبب رسالة الخطأ'
End If
RE: خطأ عند عمل نسخه احتياطيه لقاعده البيانات - خالد كامل1 - 18-08-19
(17-08-19, 06:55 PM)asemshahen5 كتب : بص يامعلم :اخى انا استعملت هذا الكود ويعمل بشكل صحيح ولكن بعد استعاده النسخه لا يقبل اى عمل على البرنامج ويخرج خطأ بانه لا يجد قاعده البيانات فى المسار وياخذ المسار الذى وضعت فيه النسخه الاحتياطيه وبعد ان اغبق البرنامج وافتحه مره اخرى يعود البرنامج الى طبيعته
PHP كود :
Dim SaveAccess As New SaveFileDialog With {.Filter = "Microsost Access 2007-2016|*.Accdb|All File|*.*", .ShowHelp = True}
If SaveAccess.ShowDialog = DialogResult.OK Then
''
TextBox1.Text = SaveAccess.FileName
'و الباقي من عندك من الكود الي تحت ده مش شيفه بسبب رسالة الخطأ'
End If
كود :
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