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

[king5star]

السلام عليكم اخوانى

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

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

مثال backup.zip

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

السلام عليكم 

جرب هذا التعديل ووافنا بالنتائج

 

backup.rar

[king5star]

شكراً لمجهودك اخى الكريم

قمت بتركيبها ولكن ظهرت هذه الرسائل على الترتيب

ظهرت رساله الامان بشكل متعدد

بعدها

ثم

 

[king5star]

برجاء المساعدة اخوانى فانني احاول ولم تضبط معي

 

[king5star]

وجدت الحل الحمد لله بتغير الجملة الى

Set ThisDb = DBEngine.Workspaces(0).OpenDatabase(DbName2, True, False, ";pwd=Pass")

حيث ان Pass هو الرقم السري المراد انشاءه .

وضبطت وتم عمل الباسورد والحاق العلاقات

وتبقت المشكلة عند الاسترداد فهل من مساعدة .

تم تعديل فبراير 8, 2017 بواسطه king5star

[Ibrahim IQ]

 

وجدت الحل الحمد لله بتغير الجملة الى

Set ThisDb = DBEngine.Workspaces(0).OpenDatabase(DbName2, True, False, ";pwd=Pass")

حيث ان Pass هو الرقم السري المراد انشاءه .

وضبطت وتم عمل الباسورد والحاق العلاقات

وتبقت المشكلة عند الاسترداد فهل من مساعدة .

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

[king5star]

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

Call ExportNew("BackUp Dir " & "\" & pro & ".dat", pass)

قم باستبدال BackUp Dir

الى مسار الملف الذى تريد حفظ النسخة به وستعمل لديك بدون مشاكل وعندما ننتهي من المشكلة الحالية بامكانك استخدامها ايضاً .

 

ولا تحزن على عدم المشاركة فلا يكلف الله نفساً إلى وسعها .

 

وفقك الله اخى .

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

السلام عليكم 

جرب هذا التعديل ووافنا بالنتائج

 

backup.rar

[king5star]

اخى أبو عبدالله الحلوانى

مهما تحدثت فلن اوفيق حقك وفقك الله دائماً ووفقك الى ما ترضي .