[DIGTAL]

اريد شرح او مثال بلفيجوال 6
وقاعدة بيانات اكسس والربط بadodc
اريد اخذ نسخة من قاعدة بيانات في مكان معين علىاى بارتشن في الهارد
وعند تسطيب البرنامج يتم عمل استيراد لقاعدة البيانات مرة اخري
-----------
يعني عاوز اعمل استيراد وتصدير حسب الحاجة لقاعدة البيانات

يا ريت لو في مثال

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

[derbaliammar]

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

كود :

Private Sub Copy_2()
On Error GoTo 12
CommonDialog1.CancelError = True
CommonDialog1.DialogTitle = "اختر مكان القاعدة المطلوبة"
CommonDialog1.Filter = "Access File|*.mdb|"
CommonDialog1.ShowOpen

If CommonDialog1.FileTitle = "" Then Exit Sub

If Dir(CommonDialog1.FileName) = "" Then
    MsgBox "اسم قاعدة بيانات خاطئ", vbExclamation + arabic, "نسخ واستيراد"
    Exit Sub
End If

Dim sure
sure = MsgBox("إن استيرادك لقاعدة البيانات هذه سوف يؤدي إلى حذف القاعدة الحالية ، هل ما زلت تريد الاستمرار ؟", vbExclamation + arabic + vbYesNo, "نسخ واستيراد")
If sure = vbNo Then Exit Sub

D1.Close

SetAttr Folder & "db1.mdb", vbNormal
Kill Folder & "db1.mdb"

FileCopy CommonDialog1.FileName, Folder & "db1.mdb"

Set D1 = DBEngine.Workspaces(0).OpenDatabase(Folder & "Db1.mdb", False, False, ";pwd=" & PassWord)

Set T1 = D1.OpenRecordset("Tb_Product", dbOpenTable)
Set T2 = D1.OpenRecordset("Tb_Category", dbOpenTable)
Set T3 = D1.OpenRecordset("Tb_Factory", dbOpenTable)
Set T5 = D1.OpenRecordset("Tb_Sel_Bay", dbOpenTable)

Set T4 = D1.OpenRecordset("Tb_User", dbOpenTable)
    Info(0) = T4!User_Name
    Info(1) = T4!PassWord
    Info(2) = T4!Name
    Info(3) = T4!Telephone
    Info(4) = T4!More
T4.Close

Call Start

MsgBox "تم استيراد قاعدة البيانات بنجاح من : " & CommonDialog1.FileName & Chr(13) & "سوف يتم الآن بدء تشغيل هذه القاعدة", vbInformation + arabic, "نسخ واستيراد"
12:
Exit Sub
End Sub

Private Sub Tools2_Click(Index As Integer)
Select Case Index
Case 0
    Copy_Me
Case 1
    Copy_2
End Select
End Sub

و هذا لاستعادة النسخة

كود :

Private Sub Tools2_Click(Index As Integer)
Select Case Index
Case 0
    Copy_Me
Case 1
    Copy_2
End Select
End Sub

[طارق بيتا]

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