مشكلة في حفظ نسخة احتياطية

السلام عليكم

اعتقدان الخلل هو في غلق وفتح قاعدة البيانات

cn.CursorLocation = adUseClient

قبل جملة الاتصال بقاعدة البيانات في حدث formload

وكذلك يجب غلق قاعدة البيانات قبل جملة الاتصال

If cn.State = adStateOpen Then cn.Close

جاري تطبيق ملاحظاتك ، وولي عودة إن شاء الله

اشكرك أخي الكريم

جرب اضافة هذا السطر قبل السطر الملون بالأصفر .

if cn.state=1 then cn.close
DoEvents

تحياتي

omani كتب:

جرب اضافة هذا السطر قبل السطر الملون بالأصفر .

if cn.state=1 then cn.close
DoEvents

تحياتي

ماينفع الكود .. حيث يجعلني كل مرة أقوم بإدخال اسم المستخدم والباسوورد ولا يفتح نافذة استعراض مكان حفظ النسخة الإحتياطية

المشكلة يا أخوان أن كود حفظ النسخة الإحتياطية شغال 100%

بس إذا قمت بإجراء أي تعديلات على قاعدة البيانات من خلال نوافذ الفيجول كإضافة اسم أو رقم أو بيان ولو حرف وحفظت التعديل

تظهر رسالة خطأ ظاهرة كما بالصورة التالية

بصراحة خبط مخي :hot:

اتمنى أن تكون المشكلة اصبحت واضحة ...

اخي المشكلة واضحة . ولكن لكون ان قاعدة البيانات مفتوحة اصلا. فلايمكن نسخها .. لتتمكن من نسخ قاعدة البيانات يجب اغلاق الاتصال بها اولا .

وبعد اغلاق قاعدة البيانات تستطيع ان تقوم بأي عملية تود ان تقوم بها . من نسخ او ضغط واصلاح او اي عملية من هذا القبيل

ستجد مثال كامل في توقيعي ..

تحياتي

يعطيكم الله العافية أخوتي الكرام

مازالت مشكلتي الخاصة بحفظ نسخة احتياطية من قاعدة البيانات قائمة

حيث أن الكود التالي بالصورة يعمل 100% طالما قاعدة البيانات مغلقة، ولم يتم تعديل بياناتها

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

تظهر رسالة خطأ تحمل رقم (70) وتقوم بتظليل كود معين باللون الأصفر !!!

اخي اعتقد انك تستخدم الاداة Adodc1 او الأداة Data1 في بعض النماذج .

لذا يجب ان تقوم باغلاق هذه الادوات قبل اجراء النسخ الاحتياطي . لان هذه الادوات تبقي الاتصال مع قاعدة البيانات مفتوحاً .

وسوف تحل المشكلة باذن الله

أن لم تستطع عمل ذلك قم برفع المثال لنقوم بالتعديل .

تحياتي