​
كود لعمل نسخه احتياطيه واسترجعها القاعد اكسس 2003 مربوطه بالفيجوال بيسك

2008


كود:

Dim result = FolderBrowserDialog1.ShowDialog()
If result= Windows.Forms.DialogResult.Cancel Then Exit Sub
Dim backup_path = (FolderBrowserDialog1.SelectedPath.ToString & "\backup.mdb")
Dim orgPath = "MyDB.mdb"

System.IO.File.Copy(orgPath, newpath, overwrite:=True)