الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

الالف الى الياء كيفية ربط قاعدة بيانات اكسس مشفرة بالدوت نت

مغلق
بدأه mmkm في 21 أكتوبر 2007 · 3 رد · 1,958 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم و رحمة الله و بركاته

احبائي زوار هذا المنتدي

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

وعمل صيانة لها وهي مشفرة .. كذلك ربط التقارير الخاصة بالنظام في الـRun Time بقاعدة البيانات المشفرة

ملخص للمواضيع المبدئية :

1- عمل Connection لقاعدة البيانات المشفرة

2- صيانة قاعدة البيانات المشفرة

3- ربط التقارير بها في الـRun Time

4- تحزيم هذا النظام بطريقة جديـــدة و مضاف اليها التقارير

فلنبدا السلسة !!!

1- عمل Connection لقاعدة البيانات المشفرة

في اي النظام يحبذ اضافة Module تضع فيها ال Connection String الخاص يقاعدة البيانات ليكون عامــا في جميع الـ Forms

Public objConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath.ToString & "\Stock.mdb;Persist Security Info=True;Jet OLEDB:Database Password=qqq")

الشرح :

نكون متغير Variable عام Public بأسم objConnection من النوع الـ OleDbConnection ( الخاص بقواعد البيانات مثل : اكسس )

لو لاحظت انه بعد الـ Data Source كتبنا Application.StartupPath.ToString وذلك ليكون مكان Path لقاعدة البيانات عـام

بحيث انه يأتي بمكان البرنامج ( .exe) ثم اضفنــا Stock.mdb\ اسم قاعدة البياتات

بعد ذلك الجزء الاخير Database Password اضفنــا qqq وهي كلمة السر الخاصة بقاعدة البيانات( على سبيل المثال )

في المرة القادمة سوف ارفق مالشروع الخاص بصيانة قاعدة البيانات المشفرة

في انتظــار ردودكم حتى يكون دافع لي في الاستمرار في هذه السلسة

( تقبل الله منــا و منكم صالح الاعمــال و أسأل الله ان يكون خالصـا لوجهه الكريـــم)

#2

السلام عليكم

ممتاز وجزاك الله خيراً ، وإلى الأمام

[/وسط]

#3

بارك اله فيك ونحن في الانتظار

#4

الجزء التاني

2- عمل صيانة لقاعدة البيانات و اخراج قاعدة بيانات نظيفة و مشفرة ..

يتم عمل Import لبعض ال NameSpaces كالاتي

Imports System.Activator

Imports System.Type

Imports System.Runtime.InteropServices

Imports System.Reflection

ثم في الزرButton الخاص بـ الصيانة نكتب الكود الاتي :

Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath.ToString & "\db.mdb;Persist Security Info=True;Jet OLEDB:Database Password=qqq"

و هو الـ Connection String لقاعدة البيانات المراد اصلاحها ( في المثال : اسمها db.mdb و كلمة السر : qqq )

Dim oParams As Object()

Dim objJRO As Object = Activator.CreateInstance(Type.GetTypeFromProgID("JRO.JetEngine"))

oParams = New Object() {connectionString, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath.ToString & "\Stock_New.mdb;Jet OLEDB:Database Password=qqq"}

objJRO.GetType().InvokeMember("CompactDatabase", System.Reflection.BindingFlags.InvokeMethod, Nothing, objJRO, oParams)

System.Runtime.InteropServices.Marshal.ReleaseComObject(objJRO)

objJRO = Nothing

سوف تخرج قاعدة بيانات نظيفة و مصانة اسمها Stock_new وهي مشفرة ايضا بنفس كلمة السر .. و بذلك لن تكون هناك معاناه اخري بعد الان

في الملف المرفق . مشروع بالمثال السابق ..

في انتظار ردودكم لاستكمــــال السلسلة ...

( تقبل الله منــا و منكم صالح الاعمال ... و ارجوا ان تكون خالصة لوجهه الكريـــم )

Compact_Secured_DB.rar

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…