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


.rar   bebo.rar (الحجم : 1.58 م ب / التحميلات : 68)
الرد }}}
تم الشكر بواسطة:
#2
ارجوكم ساعوني ....... Please help me
الرد }}}
تم الشكر بواسطة:
#3
Tongue 
السلام عليكم ورحمة الله وبركاته اخي الكريم \
هذه اكواد (ضغط واصلاح قاعدة البيانات - عمل النسخ االحتياطي - استعادة النسخة الاحتياطية)
كل ما عليك هو تعديل الاكواد للتتناسب مع مشروعك 
بالتوفيق انشاء الله 
كود :
' "Fixed" '=====================================================================================
        Dim Je As New JRO.JetEngine
        If Rs.State = 1 Then Rs.Close
        If CN.State = 1 Then CN.Close
        
        If Dir(App.Path & "\Backup", vbDirectory) = "" Then: MkDir App.Path & "\Backup"
        Je.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=medo0;Data Source= " & App.Path & "\Data.mdb" _
        , "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=medo0;Data Source= " & App.Path & "\Backup\Data.mdb"
           Kill App.Path & "\Data.mdb"
           Name App.Path & "\Backup\Data.mdb" As App.Path & "\Data.mdb"

' "Backup" '=====================================================================================
       On Error Resume Next
        Dim y As Variant
        y = Format(Now, "yyyy-MM-dd hh-mm A/P")
        If Dir(App.Path & "\Data.mdb") = "" Then
            MsgBox "The database does not exist in the program path", vbCritical, "Attention"
            Exit Sub
        End If

      If Rs.State = 1 Then Rs.Close
        If CN.State = 1 Then CN.Close
        
        If Dir(App.Path & "\Backup", vbDirectory) = "" Then
           MkDir App.Path & "\Backup"
        End If
        If Dir("E:\Backup", vbDirectory) = "" Then
           MkDir "E:\Backup"
        End If
 
        FileCopy App.Path & "\Data.mdb", App.Path & "\Backup\" & y & ".mdb"
        If MsgBox("the backup was saved in specified path . do you want saved in elsewhere?", vbInformation + vbYesNo, "Backup") = vbYes Then
                '====================
            With CommonDialog1
                .CancelError = True
                .DialogTitle = "Save Backup"
                .Filter = "Access Database (*.mdb)|*.mdb"
                .FilterIndex = 1
                .Flags = cdlOFNFileMustExist Or cdlOFNPathMustExist Or cdlOFNHideReadOnly
                .FileName = y & ".mdb"
                .ShowSave
            End With
            FileCopy App.Path & "\Data.mdb", CommonDialog1.FileName
            MsgBox "Were backed up in the specified path", vbInformation, "Backup"
        End If
On Error Resume Next
' "Restore" '=====================================================================================
        On Error Resume Next
        If Rs.State = 1 Then Rs.Close
        If CN.State = 1 Then CN.Close
        
        With CommonDialog1
            .CancelError = True
            .DialogTitle = "Choose the database file"
            .Filter = "Access Database (*.mdb)|*.mdb"
            .FilterIndex = 1
            .Flags = cdlOFNFileMustExist Or cdlOFNPathMustExist Or cdlOFNHideReadOnly
            .FileName = ""
            .ShowOpen
        End With
        If CommonDialog1.FileName = "" Then Exit Sub
        Kill App.Path & "\Data.mdb"
        FileCopy CommonDialog1.FileName, App.Path & "\Data.mdb"
        MsgBox "It has been successfully connect the new database", vbInformation, "Connected"
الرد }}}
تم الشكر بواسطة: bebo
#4
وعليكم السلام ورحمة الله وبركاتة
الاخ /محمد علي اشكرك لتعاونك معي وجاري التجربة واسأل الله عز وجل ان يوفقك
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] اضافة الصور الى ملف واسترجاعها بدون قاعدة البيانات haitham Muhammed 3 417 24-01-24, 01:51 PM
آخر رد: haitham Muhammed
  عدم ضهور كل البيانات فراس محي 1 223 15-12-23, 06:05 AM
آخر رد: Taha Okla
Question [vb6.0] نامل المساعدة في المثال المرفق يوجد مشكلة في إضافة رقم الصنف الى قاعدة البيانات لا اع Microformt 1 241 23-10-23, 12:11 AM
آخر رد: Taha Okla
  [vb6.0] مساعدة بتعديل كود الضغط على مفتاح F1 في الكيبورد جلال اليمني 0 173 13-10-23, 08:04 PM
آخر رد: جلال اليمني
  نقل بيانات الجدول الى جدول اخر بعد تجميع البيانات haithamelareny 1 357 10-08-23, 11:54 PM
آخر رد: ahmedabdelaliem
Question [vb6.0] هل يوجد كود لضغط وإصلاح قاعدة البيانات ، أعني قاعدة بيانات Access؟ Microformt 1 455 27-07-23, 08:33 PM
آخر رد: Taha Okla
  [vb6.0] كود ربط قاعدة بيانات اكسيس 2010 بالفيجوال بيسك6 وادي العوضي 4 553 21-07-23, 12:11 AM
آخر رد: وادي العوضي
  [vb6.0] المساعدة في تشغيل استعلام الحاقي في تبويب الاستعلامات في قاعدة بيانات اكسيس من واجهة وادي العوضي 6 600 09-07-23, 12:44 AM
آخر رد: وادي العوضي
  [سؤال] كود تشغيل استعلامين معمولين في قاعدة بيانات اكسس من واجهة البرنامج من خلال زر امر وادي العوضي 16 1,449 04-07-23, 03:26 PM
آخر رد: وادي العوضي
  [Acces2003] ازاى اعمل قاعدة بيانات مشتركة ahmedhossam 5 5,257 27-02-23, 03:43 PM
آخر رد: tighrmte

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


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