كيف يمكن عمل حفظ تلقائي لقاعدة البيانات اكسس ؟ ارجو المساعدة

هل الامر بالغ الصعوبة !!

3 ايام بدون رد

ابن بسطا كتب:

/index.php?showtopic=215556&st=0&p=1071927&hl=قاعدة البيانان&fromsearch=1entry1071927

شكرا لك اخي الكريم على محاولتك

اخي...

قد اكون قصرت بعدم توضيح سؤالي من البداية او تفصيله , الفكرة هي حفظ تلقائي لقاعدة البيانات بدون تدخل المستخدم ! فعند البداية يقوم المستخدم بتحديد مسار حفظ النسخة لقاعدة البيانات بعد ذلك ياتي دور البرنامج بحفظ النسخة بموجب الوقت الذي يحدده المبرمج وليكن فرضا عند تسجيل الخروج من البرنامج وهو الوقت الامثل لعمليه الحفظ كون انه يتم قطع الاتصال بقاعدة البيانات هذه اللحظة !!

المطلوب :

اولا::::: طريقة حفظ المسار بتكست بوكس مثلا

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

والله الموفق

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

او تضع كود الحفظ في حدث

Private Sub Form_KeyPress(KeyAscii As Integer)

End Sub

حيث يتم الحفظ تلقائي عند كل ضغطة للماوس

ابن بسطا كتب:

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

او تضع كود الحفظ في حدث

Private Sub Form_KeyPress(KeyAscii As Integer)

End Sub

حيث يتم الحفظ تلقائي عند كل ضغطة للماوس

جميل ...

ولكن ماهي الطريقة وهي جوهر مطلبي ....

في البداية اضف Module

واضف الكود التالي API code

Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String,_
 ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

ثم في الحدث للحفظ أعمل نسخ للفايل المطلوب الى نسخة ثانية

 

PathString = App.Path & "\" & "filename.mdb" 

answer = CopyFile(PathString, newPath & "\" & newFileName , ErrCopyFile)

aoh كتب:

في البداية اضف Module

واضف الكود التالي API code

Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String,_
 ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

ثم في الحدث للحفظ أعمل نسخ للفايل المطلوب الى نسخة ثانية

 

PathString = App.Path & "\" & "filename.mdb" 

answer = CopyFile(PathString, newPath & "\" & newFileName , ErrCopyFile)

شكرا لك صديقي ....

جربت ما قمت بادراجه لكن لم تنجح الطريقة لسبب لا اعلمه

فلو تكرمت اخي قد ارفقت نموذج لتتكرم وتقوم بتعديل الكود بالمثال المرفق

ولك جزيل الشكر والله الموفق

saveMDB.rar

shadi77 كتب:

شكرا لك صديقي ....

جربت ما قمت بادراجه لكن لم تنجح الطريقة لسبب لا اعلمه

فلو تكرمت اخي قد ارفقت نموذج لتتكرم وتقوم بتعديل الكود بالمثال المرفق

ولك جزيل الشكر والله الموفق

لقد عدلت البرنامج فقط في بداية البرنامج يحفظ نسخة جديدة من البيانات ،

والباقي عليك

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

ولك مني كل تحية

saveMDB.rar

aoh كتب:

لقد عدلت البرنامج فقط في بداية البرنامج يحفظ نسخة جديدة من البيانات ،

والباقي عليك

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

ولك مني كل تحية

شكرا جزيلا لك الكود يعمل جيدا

وبخصوص الحفظ قمت بادراج الكود التالي لحل مشكلة الملف المحفوظ كل مرة ليضاف وقت وتاريخ لاسم الملف الناتج

newFilename = "SavedDATA Data " & Format(Now, "YYYY-MM-DD HH-nn") & ".bck"

بقي الجزء الاخر من سؤالي لو تكرمت

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

ن كيف يمكن اضافة المسار لحقل تكست بوكس من خلال Commn Dialog

بحيث يقوم المستخدم بتحديد المسار يدويا من خلال هذه الخاصية

المثال المرفق يمكن التعديل عليه

saveMDB-2.rar

جرب هذا الكود في الcommand button

Private Sub Command1_Click()
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub