تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب شرح اخذ نسخة احتياطية من قاعدة البيانات
#1
اريد شرح او مثال بلفيجوال 6
وقاعدة بيانات اكسس والربط بadodc
اريد اخذ نسخة من قاعدة بيانات في مكان معين علىاى بارتشن في الهارد
وعند تسطيب البرنامج يتم عمل استيراد لقاعدة البيانات مرة اخري
-----------
يعني عاوز اعمل استيراد وتصدير حسب الحاجة لقاعدة البيانات

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

--------------
الرد }}}}
تم الشكر بواسطة:
#2
ارجوا ان يفي هذا الكود بالغرض


كود :
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
{وَسَارِعُواْ إِلَى مَغْفِرَةٍ مِّن رَّبِّكُمْ وَجَنَّةٍ عَرْضُهَا السَّمَاوَاتُ وَالأَرْضُ أُعِدَّتْ لِلْمُتَّقِينَ }آل عمران133
الرد }}}}
تم الشكر بواسطة: 1ecb498
#3
طيب انا عاوز كود لحفظ نسخة من قاعدة البيانات واسترجاعها لو ممكن
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعلم كيفية حفظ و أسترجاع الصورة فى قاعدة بيانات أكسس باستخدام الكائن Stream object أحمد مناع 9 4,479 29-05-16, 12:24 AM
آخر رد: CLARO
  مساعدة في طباعة صوره من قاعدة بيانات basma123 0 604 26-09-14, 03:00 PM
آخر رد: basma123
  استخدام DataControl للربط مع قواعد البيانات في فيجوال بيسك - الجزء الثاني RaggiTech 1 1,942 14-10-12, 02:29 PM
آخر رد: RaggiTech
  استخدام DataControl للربط مع قواعد البيانات في فيجوال بيسك - الجزء الأول RaggiTech 0 1,170 14-10-12, 02:26 PM
آخر رد: RaggiTech
  فيجوال بيسك - التعامل مع قاعدة بيانات أكسيس من خلال Dao - الجزء الثالث والرابع RaggiTech 1 2,199 14-10-12, 02:11 PM
آخر رد: RaggiTech
  فيجوال بيسك - التعامل مع قاعدة بيانات أكسيس من خلال Dao - الجزء الأول والثاني RaggiTech 1 3,681 14-10-12, 02:06 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم