+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=13912)
خطاء في النسخة الاحتياطية - جميل علي - 23-11-15
السلام عليكم ورحمة الله وبركاتة
أسعد الله صباحكم بكل خير
أخواني انا أعمل على برنامج بلغة الفيجوال البيسك ووصلت مرحلة متقدمة
تبقى لي عمل نسخة أحتياطية للقاعدة وأستخدمت هذا الكود الظاهر لكم بالاسفل ولكن يظهري لي الخطاء الواضح امامكم
أتمنى مساعدتي في عمل النسخة الاحتياطية وان أستطعتم وضع كود لعملية الاسترجاع أيضا.
علماً اني أستخدم قاعدة بيانات اكسس 2007
وشاكر ومقدر جهودكم
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim sv As SaveFileDialog = SaveFileDialog1
sv.Filter = "bak fil (*.Bak) |*.bak"
If (sv.ShowDialog) = Windows.Forms.DialogResult.OK Then
End If
Dim cmd = New OleDbCommand("Backup Database swcc To Disk='" + sv.FileName + "'", co)
co.Open()
cmd.ExecuteNonQuery()
co.Close()
RE: خطاء في النسخة الاحتياطية - جميل علي - 23-11-15
تم حل المشكلة والحمد الله
شكراً لكم جميعاً
RE: خطاء في النسخة الاحتياطية - sherif khalid - 23-11-15
الطريقة الافضل فى قاعدة بيانات Access هيا نسخ قاعدة البيانات وليس استخدام T-SQL
هذا الكود الصحيح كل الى هتعملة انك هتضيف مسار قاعدة البيانات الاصلى , ومسار حفظ قاعدة اليانات الجديدة
كود :
Using saveDialog As New SaveFileDialog()
saveDialog.CheckFileExists = False
saveDialog.CheckPathExists = True
saveDialog.FileName = Date.Now.ToString("yyyyMMdd") & ".mdb"
saveDialog.Filter = "Microsoft Access Database (*.mdb)|*.mdb"
saveDialog.RestoreDirectory = True
If openDialog.ShowDialog() = Windows.Forms.DialogResult.OK AndAlso saveDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
If File.Exists(openDialog.FileName) Then
File.Copy(openDialog.FileName, saveDialog.FileName)
End If
End If
End Using