كيف عمل نسخه احتياطيه لقاعدة البيانات

يا شباب تكفون وينكم 12 زائر ما حد اعطاني وجه……….

لالالالا لا ماعتقد ان السؤال صعب وفيه محترفين vb

للرفع

Ado.Close
FileCopy("C:\DbaseFile","C:\Destination")

يجب ان يكون هناك Textbox
Dim Sql as string
Sql = "select * from table where date=" & Text1.Text

يمكنك استخدام الكود التالي :

Private Sub Form_Load()

prompt$ = _

"Would you like to create a backup copy of the database?"

reply = MsgBox(prompt$, vbOKCancel, datStudent.DatabaseName)

If reply = vbOK Then 'copy the database if user clicks OK

FileNm$ = InputBox$ _

("Enter the pathname for the backup copy.")

If FileNm$ <> "" Then _

FileCopy datStudent.DatabaseName, FileNm$

End If

End Sub

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

اخي الكريم shz17

اولاً عندي قاعدة بيانات في البرنامج يتم تعبيتها من البرنامج كيف اعمل لهل نسخه احتياطيه علي أي درايف (c: , d:) رجاء بالتفصيل ...

ان شاء الله يكون هذا الكود الذي تبحث عنه :

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

تلميذة

تحياتي

يمكنك نسخ ملف قاعدة البيانات بعد اضافة هذا الكود

ضع هذا الكود في الجنرال

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

----------------------------------------------------------------------

Private Sub Command1_Click()

Dim g

g = CopyFile("C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB", "C:\db1.mdb", True)

End Sub