دعوة لتطوير اداه لنسخ قاعدة البيانات المرتبطة كل مدة زمنية (ساعة/يوم/شهر/سنة)

[أبو عبدالله الحلوانى]

14 دقائق مضت, ابو فتحى said:

جزاك الله خير وبارك فيك

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

الموضوع سهل ان شاء الله ولكن لا علاقة له بموضوع النسخ الاحتياطي لقاعدة البيانات

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

ولو فتحت موضوع مستقل لسؤالك لوجدت اجابات اكثر تفصيلا وافضل من هذه 

أو لوبحثت عن كلمتي المفتاح الذي اعطيتك اياه (استعلام الحاق واستيراد جدول) بالمنتدي أو غيره لوجدت الكثير والكثير 

[ابو فتحى]

هل ممكن بكود مش يدوى 

[أبو عبدالله الحلوانى]

3 دقائق مضت, ابو فتحى said:

هل ممكن بكود مش يدوى 

طبعا ممكن ولكن 

 

9 دقائق مضت, أبو عبدالله الحلوانى said:

ولو فتحت موضوع مستقل لسؤالك لوجدت اجابات اكثر تفصيلا وافضل من هذه 

كل ما عليك هو استخدام أمر الاستيراد والربط 

DoCmd.TransferDatabase acLink,"ms-access","Full name of source database",acTable,tableName in source,table name in current database,,"passward"

أما عن الحاق البيانات بالجدول فيمكنك استخدام استعلام أو جملة sql لتقوم بهذا من داخل محرر الأكود vba

 

[ابو فتحى]

اولا شكرا على الرد و الاهتمام 

ثانيا  ممكن شرح الكود 

ثالثا الكود ده فى القاعدة ام الثانية 

[أبو عبدالله الحلوانى]

أمهلني للغد ان شاء الله فقد نفدت البطارية واحتاج للشحن 

[د.كاف يار]

في ١٨‏/٢‏/٢٠٢١ at 06:34, abouelhassan said:

كيف يمكن الاستفادة من الأداة

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

مع الشكر الجزيل الأساتذة الأفاضل

تفضل هذا الكود لأنشاء نسخة احتياطية اخي الكريم

انسخ و الصق فقط

- سيتم انشاء مجلد لحفظ النسخة الاحتياطية بجوار قاعدة البيانات

- يتم حفظ نسخة من قاعد البيانات بتاريخ اليوم

- سيتم انشاء جدول جديد يحتوي على اسم النسخة و تاريخها و موقعها

Dim fso As Object
Dim fldrname As String
Dim fldrpath As String
Set fso = CreateObject("scripting.filesystemobject")
          fldrpath = CurrentProject.Path & "\Backup"
          If Not fso.FolderExists(fldrpath) Then
             fso.createfolder (fldrpath)
             
          End If

Dim MyFile, DstFile As String
Dim Syso As Object
On Error GoTo ErrH

MyFile = CurrentProject.FullName
DstFile = CurrentProject.Path & "\Backup\Backup-" & Format(Date, "dd-mm-yyyy") & ".accdb"

DBEngine.Idle

Set Syso = CreateObject("Scripting.FileSystemObject")
Syso.copyfile MyFile, DstFile
Set Syso = Nothing

Name DstFile As DstFile & ".ptc"
DBEngine.CompactDatabase DstFile & ".ptc", DstFile
Kill DstFile & ".ptc"
DoCmd.RunSQL "CREATE TABLE Backup (Backup_NO INT , Backup_Name VARCHAR (50) , Backup_Path VARCHAR (100), Backup_Date Date);"
Dim db As DAO.Database
Dim MaxBackup_NO As Integer
MaxBackup_NO = Nz(DMax("[Backup_NO]", "[Backup]"), 0) + 1
    Dim rs As DAO.Recordset
    Set db = CurrentDb
Set rs = db.OpenRecordset("Backup")
    With rs
        .AddNew
        ![Backup_NO] = MaxBackup_NO
        ![Backup_Name] = Format(Date, "dd-mm-yyyy")
        ![Backup_Path] = DstFile
        ![Backup_Date] = Now()
        .Update

    End With


MsgBox "تم انشاء قاعدة البيانات بنجاح" & vbNewLine & "Database successfully created" & vbNewLine & vbNewLine & "" & "اسم قاعدة البيانات" & vbNewLine & "The name of the database" & vbNewLine & "" & vbNewLine & "Backup-" & Format(Date, "dd-mm-yyyy") & vbNewLine & vbNewLine & "" & "مسار القاعدة الجديدة" & vbNewLine & "Path of the new rule" & vbNewLine & "" & vbNewLine & DstFile, vbMsgBoxRight + vbOKOnly, "emphasis" & "/" & "تاكيد"

Exit Sub
ErrH:
Select Case Err.Number
End Select

 

 

[abouelhassan]

اخى فى الله استاذ د.كاف يار

معلش انا عملت وحدة نمطية واضفت فيها الكود ولم يحدث شئ اخى

هل انا كده صح ام خطأ

بارك الله فيك اخى فى الله

[محمد البدري]

جزاكم الله كل الخير ,,,

موضوع كتير مميز ومفيد جداً لقد أفادني كثيرا .

شكراً لكل من ساهم ومنكم نستفيد ونتعلم أنتم السباقون بالخير دائماً .

كل عام وأنتم بخير ودمتم بخير دائماً وأبداً