تحويل صيغه ملف الاكسيس برمجيا من accdb الي accde

[ma4fd2010]

 

تحويل صيغه ملف الاكسيس برمجيا من   accdb الي accde

 

برمجه قواعد البيانات المصممه بالاكسيس تتوفر بها العديد من وسائل حمايه التي توفرها شركه مايكروسوفت في البرنامج او التي يستطيع ان يصممها مبرمج قواعد البيانات فيسطيع المبرمج اخفاء الجداول و الاستعلامات و النماذج و وضع كلمه سر علي ملف قاعده البيانات بحيث لا يستطيع احد فتح الملف الا بعد معرفه كلمه السر او كلمه سر علي محرر الاكواد او يسطيع المصمم حمايه النماذج من الفتح في وضع التصميم من خلال ايقاف تفعيل زر Shift  او عمل صلاحيات للنماذج برمجيا بحيث لا يسطيع المستخدم الدخول الا للنماذج المسموح له بها فقط كل هذه الوسائل بالاضافه الي تغير صيغه ملف الاكسيس الي صيغه  accde    ليتم تشفير الكود البرمجي و النماذج بحيث لا يمكن التعديل ليس علي النماذج فقط انها علي قاعده البيانات كلها و كل ما يكون متاح فقط هو ادخال و استعراض البيانات بالصور التي يحددها المصمم للمستخدم النهائي لقاعده البيانات

ما هي صيغه accde  

صيغه accde  هي صيغه ملفات اكسيس قدمتها شركه مايكروسوفت لمزيد من الحمايه فهي صيغه محميه غير قابله للتعديل يتم فيها تشفير الكود و النماذج و جميع وحدات الماكرو

شروط استخدام هذه الصيغه accde

لتحويل ملف الاكسيس الي هذه الصيغه لابد من ان يكون الكود البرمجي سليم 100% و لا يوجد به اي مشاكل برمجيه و ذلك لعده اسباب اولها انه لايمكن الرجوع مره اخري الي الصيغه الاسابقه حيث يعتبر هذه الضيغه صيغه نهائيه يمكن ان يستخدمها مبرمجي قواعد البيانات حتي يتم حمايه الاكواد البرمجيه و لا يسطيع اي مبرمج اخر التعديل علي الكود مره اخري لانه اصبح مشفر و لا يمكن اضافه نماذج او استرداد نماذج من و الي هذا الملف مره اخري

 

كيف نستطيع تحويل اي ملف اكسيس عادي الي ملف اكسيس من نوع صيغه التشفير accde 

 

اولا عليك التاكد من الكود البرمجي و التاكد من صلاحيته و مراجعته و يتم ذلك من خلال فتح محرر الاكواد  ثم الضغط علي debug   و من خلال هذه القائمه الامر compile 1 ليتم عمل مراجعه للكود فاذا اكتشفت اي مشكله في الكود عليه علاج هذه المشكله حتي تستطيع ان تكمل باقي الخطوات

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

انتقل الي شاشه الاكسيس وافتح القائمه File   من خلال هذه القائمه اختر Save as

ثم اختر من خلال save Datebase as   اختر الصيغه المشفره Mack Accde

كل هذه الخطوات تمت بشكل يدوي لكن كيف يتم ذلك بالكود

 

 

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

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

 

 

كل ما علينا القيام به هو اضافه داله برمجيه الي قاعده البيانات لتقوم بتحويل صيغه الملف و لكن لن نستطيع عمل ذلك من نفس الملف حيث اننا علي جهاز المستخدم النهائي نحتاج الي حذف ملف قاعده البيانات الاساسي بعد تحويل الصيغه لضمان عدم تعديل الكود فلن يستطيع الاكسيس حذف ملف مفتوح فلذلك نستخدم ملف قاعده بيانات اخري ليمكننا من تحويل اي قاعده بيانات و نقوم باضافه هذه الداله في مديول جديد

و يمكن  ربط هذه الداله بزر في نموذج بحيث بمجرد الضغط عليه يتم تحويل قاعده البيانات المحدده بالكود برمجيا

لتحميل الكود المستخدم

 

[ابوخليل]

شكرا لك اخي الفاضل على المعلومات القيمة

ولاكتمال الفائدة في مكان واحد تم نقل الكود هنا

Function accdeConvert()
  Dim app
    Dim strDBName
    Dim strADEName

    Set app = CreateObject("Access.Application")
    strDBName = CurrentProject.Path & "\1.accdb"
    strdeName = CurrentProject.Path & "\0.accde"
 
    app.SysCmd 603, CStr(strDBName), CStr(strdeName)

    Set app = Nothing
Follow
    Kill strDBName
End Function

Function Follow()
FollowHyperlink strADEName
End Function

وهذه هي ايضا تعليقاتك الاخيرة على الكود هناك:

لاحظ اننا استخدمنا السطر
 

    strDBName = CurrentProject.Path & "\1.accdb"

 

و الذي يحتوي علي 1.accdb  حيث تمثل اسم قاعده البيانات المراد تحويلها

 

كما اننا استخدمنا السطر
 

   

strdeName = CurrentProject.Path & "\0.accde"

لتحديد اسم و مسار ملف قاعده البيانات بعد تحويلها

كما استخدمنا
 

   

Kill strDBName

لحذف ملف قاعده البيانات من النوع accdb  بعد اتمام عمليه التحويل