عمل backup ل backend

[AliAli47]

السلام عليكم 

لدي قاعدة بيانات مفصولة  اضفت لها كود عمل backup للجداول عند غلق البرنامج 

المشكلة هي انه ينشئ ملف  باكاب مربوط ب backend 

هل من طريقة لانشاء باكاب وتكون الجداول مستقلة ليست مبروطة بالملف الرئيسي 

المثال مرفق بالموضوع 

backup.zip

[د.كاف يار]

تفضل

Dim MyFile, DstFile As String
Dim Syso As Object

MyFile = "مسار قاعدة البيانات البعيدة التي تريد انشاء نسخة احتياطية منها"
DstFile = CurrentProject.Path & "\Backup-" & Format(Now, "dd-mm-yyyy") & ".mdb"  ' هنا اسم قاعدة البيانات الجديدة 

DBEngine.Idle

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

 

[AliAli47]

وضعت مسار قاعدة البيانات وعند تشغيل الكود تظهر رسالة تقول ان الملف غير موجود

[د.كاف يار]

ماهو اسم قاعدة البيانات ؟؟

 

Dim MyFile, DstFile As String
Dim Syso As Object

MyFile = CurrentProject.Path & "\" & "autoBackup_be.mdb"
DstFile = CurrentProject.Path & "\Backup-" & Format(Now, "dd-mm-yyyy") & ".mdb"  

DBEngine.Idle

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

الصق هذا الكود في ازرار النسخة الاحتياطية لكن تأكد من الاسم و الصيغة قبل البدء

[AliAli47]

اشتغل شكرا لك كان هناك خطأ في كتابة المسار 

[د.كاف يار]

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

Dim fso                 As Object
Dim fldrname            As String
Dim fldrpath            As String
Dim MyFile, DstFile     As String
Dim Syso                As Object

Set fso = CreateObject("scripting.filesystemobject")
    fldrpath = CurrentProject.Path & "\Backup"
If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath)

MyFile = CurrentProject.Path & "\" & "autoBackup_be.mdb"
DstFile = CurrentProject.Path & "\Backup\Backup-" & Format(Now, "dd-mm-yyyy") & ".mdb"

DBEngine.Idle

Set Syso = CreateObject("Scripting.FileSystemObject")
    Syso.copyfile MyFile, DstFile
Set Syso = Nothing
MsgBox "تم انشاء قاعدة البيانات بنجاح" & vbNewLine & "اسم قاعدة البيانات" & vbNewLine & "Backup-" & Format(Date, "dd-mm-yyyy") & vbNewLine & "" & "مسار القاعدة الجديدة" & vbNewLine & DstFile, vbMsgBoxRight + vbOKOnly, "emphasis" & "/" & "تاكيد"

 

[AliAli47]

كنت احاول اضافة هذه الخاصية وقد سبقتني إليها قبل أن أسألك شكرا جزيلا لك جزاك الله كل خير 

[الحلبي]

استاذنا ومعلمنا / @د.كاف يار

عند تنقيذ الامر تظهر هذه الرسالة

[أ / محمد صالح]

 

أخي الكريم الحلبي

يبدو أنك لم تقرأ هذا السطر جيدا

في ١٨‏/٨‏/٢٠٢١ at 14:09, د.كاف يار said:

الصق هذا الكود في ازرار النسخة الاحتياطية لكن تأكد من الاسم و الصيغة قبل البدء

يجب كتابة اسم قاعدة البيانات وامتداده في المتغير myfile

يبدو أنك لم تقم بهذه الخطوة 

[د.كاف يار]

تفضل هذا التعديل 

ولكن لا تنسى تعديل اصدار قاعدة البيانات

 

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

Dim fso                 As Object
Dim fldrname            As String
Dim fldrpath            As String
Dim MyFile, DstFile     As String
Dim Syso                As Object

Set fso = CreateObject("scripting.filesystemobject")
    fldrpath = CurrentProject.Path & "\Backup"
If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath)

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

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"

MsgBox "تم انشاء قاعدة البيانات بنجاح" & vbNewLine & "اسم قاعدة البيانات" & vbNewLine & "Backup-" & Format(Date, "dd-mm-yyyy") & vbNewLine & "" & "مسار القاعدة الجديدة" & vbNewLine & DstFile, vbMsgBoxRight + vbOKOnly, "emphasis" & "/" & "تاكيد"

 

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

Dim fso                 As Object
Dim fldrname            As String
Dim fldrpath            As String
Dim MyFile, DstFile     As String
Dim Syso                As Object

Set fso = CreateObject("scripting.filesystemobject")
    fldrpath = CurrentProject.Path & "\Backup"
If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath)

MyFile = "مسار قاعدة البيانات البعيدة"
DstFile = CurrentProject.Path & "\Backup\Backup-" & Format(Now, "dd-mm-yyyy") & ".mdb"

DBEngine.Idle

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

MsgBox "تم انشاء قاعدة البيانات بنجاح" & vbNewLine & "اسم قاعدة البيانات" & vbNewLine & "Backup-" & Format(Date, "dd-mm-yyyy") & vbNewLine & "" & "مسار القاعدة الجديدة" & vbNewLine & DstFile, vbMsgBoxRight + vbOKOnly, "emphasis" & "/" & "تاكيد"

 

 

[الحلبي]

استاذى / @أ / محمد صالح

اشكر جزيل الشكر وربنا يزيد  من العلم والفضيلة جزاك الله خيرا

استاذي / @د.كاف يار

نجحت التجربة 

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