[eng.khalidvb]

السلام عليكم ورحمة الله وبركاته

عندي سؤال بخصوص اخذ نسخة حتياطيه لقاعدة البيانات من نوع اكسس 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 


والسلام عليكم ورحمه الله وبركاته