[Adrees]

تفضلي انشاء الله تكون مناسبة هذه الطريقة

كود اختيار قاعدة البيانات 

PHP كود :

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim openf As New OpenFileDialog()
        openf.Filter = "Access Database |*.mdb;*.accdb"
        If openf.ShowDialog() = DialogResult.OK Then
            TextBox1.Text = openf.FileName
        End If
    End Sub 


كود عمل النسخة الاحتياطية

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim savef As New SaveFileDialog()
        savef.Filter = "Backup File|*.bak"
        savef.FileName = "Backup File"
        If savef.ShowDialog() = DialogResult.OK Then
            System.IO.File.Copy(TextBox1.Text, savef.FileName, True)
            MsgBox("Backup Created successfuly")
        End If
    End Sub 


كود استعادة النسخة الاحتياطية

PHP كود :

   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim openf As New OpenFileDialog()
        openf.Filter = "Backup File|*.bak"
        If openf.ShowDialog() = DialogResult.OK Then
            System.IO.File.Copy(openf.FileName, TextBox1.Text, True)
            MsgBox("Backup Restored successfuly")
        End If

    End Sub