+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : استخدام savefiledailog و Openfiledailog لنسخ واستعادة قاعدة البيانات اكسس (/showthread.php?tid=39)
استخدام savefiledailog و Openfiledailog لنسخ واستعادة قاعدة البيانات اكسس - eng.khalidvb - 12-09-13
السلام عليكم ورحمة الله وبركاته
عندي سؤال بخصوص اخذ نسخة حتياطيه لقاعدة البيانات من نوع اكسس 2010
الكود شغال معاي ميه الميه ولكن سؤالي هنا ما هو التعديل المناسب على الكود التي تجعل من المستخدم باماكنه تحديد مكان النسخة الاحتياطيه لقاعدة البيانات لحفظها باستخدام SaveFileDailog
الكود:
PHP كود :
Private Sub btn_backup_Click(sender As Object, e As EventArgs) Handles btn_backup.Click
Dim portfolioPath As String = My.Application.Info.DirectoryPath
FileCopy(portfolioPath & "\db.accdb", "C:\users\khalid\desktop\bakdb.accdb")
MsgBox("Backup has been taken Successfully on Desktop")
نلاحظ ان الـ Source وهو portfoliopath هو مكان قاعدة البيانات و الــ Destination الوجهه هي حفظ النسخة بشكل مباشر على سطح المكتب.
انا اريد فقط المرونه في اختيار مكان النسخة الاحتياطيه باستخدام مربع الحوار Savefiledailog لاضافة طابع مرن للمستخدم بتحديد مكان حفظ نسخته الاحتياطيه.
وبالمثل في طرية استعادة النسخه الاحتياطيه باستخدام Openfiledailog
وهذا كود استعادة النسخة الاحتياطيه:
PHP كود :
Try
Dim portfolioPath As String = My.Application.Info.DirectoryPath
If MessageBox.Show("Restoring the database will erase any changes you have made since you last backup. Are you sure you want to do this?", _
"Confirm Delete", _
MessageBoxButtons.OKCancel, _
MessageBoxIcon.Question, _
MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.OK Then
'Restore the database from a backup copy.
' FileCopy("D:\backupdatabase\databasebackupfile.accdb", portfolioPath & "\db.accdb")
FileCopy("C:\users\khalid\desktop\bakdb.accdb", portfolioPath & "\db.accdb")
MsgBox("Database Restoration Successful")
ds.Clear()
adpter.Fill(ds, "tb")
End If
Catch ex As Exception
Dim MessageString As String = "Report this error to the system administrator: " & ControlChars.NewLine & ex.Message
Dim TitleString As String = "Employee Master Details Data Load Failed"
MessageBox.Show(MessageString, TitleString, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
والسلام عليكم ورحمه الله وبركاته
RE: استخدام savefiledailog و Openfiledailog لنسخ واستعادة قاعدة البيانات اكسس - Omar Mekkawy - 13-09-13
وعليكم السلام
تفضل أخوي هذا الكود ضعه في Button
تفضل أخوي هذا الكود ضعه في Button
كود :
SaveFileDialog1.Filter = "Access 2007 (*.accdb)|*.accdb|All files (*.*)|*.*"
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.Cancel Then
'في الديالوج Cancel إلغاء عملية الحفظ عند إختيار
Exit Sub
Else
Try
Dim SavePath As String = SaveFileDialog1.FileName
FileCopy(Application.StartupPath & "\bakdb.accdb", SavePath)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
End Try
MsgBox("Backup has been taken Successfully")
End Ifبالتوفيق
RE: استخدام savefiledailog و Openfiledailog لنسخ واستعادة قاعدة البيانات اكسس - eng.khalidvb - 13-09-13
ممتاز اخي جميل جدا اشتغل معاي 100% مثل ما اردت
وهذا الكود لاستعادة قاعدة البيانات باستخدام Openfiledailog بالتعديل الطفيف على كود الاخ عمر
PHP كود :
OpenFileDialog1.Filter = "Access 2010 (*.accdb)|*.accdb|All files (*.*)|*.*"
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.Cancel Then
'في الديالوج Cancel إلغاء عملية الحفظ عند إختيار
Exit Sub
Else
Try
Dim openPath As String = OpenFileDialog1.FileName
FileCopy(openPath, Application.StartupPath & "\db.accdb")
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
End Try
MsgBox("Backup has been Restored Successfully")
ds.Clear()
adpter.Fill(ds, "tb")
End If
شكرا جزيل واتمنى ان يستفيد الجميع ...