28-02-13, 07:53 AM
اريد كود الاتصال بقاعدة بيانات اكسيس بامتداد ldb وهو امتدا من mde المشفر لاني حاولت كتير بالاتصال بهذا النوع من الامتدادات ولكن فشلت لايستطيع البرنامج البحث والارتباط بذالك الامتداد
وذلك لحماية قاعدة البيانات
فشلت في الاتصال
الاتصال العادي mdbودة شغال معايا وشغال علي امتدادmde
Public con As New OleDb.OleDbConnection("Provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\mo.mdb,mde;user id=admin;jet oledb:database password=2240")
Dim DataSet1 As New DataSet
دة اكواد الاتصال بعد تغير الامتداد الي ldb وهو امتدا من mde وليس , mde بس مش شغال معايا وبيظهر مشكلة المراد تعديلة
Public con As New OleDb.OleDbConnection("Provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\mo.ldb;user id=admin;jet oledb:database password=2240")
Dim DataSet1 As New DataSet
الموضوع دة مهم جدا بالنسبة لبرنامجي وحدش رد عليا والي رد جابلي رابط الاتصال بالاكسيس العادي وياريت عمل مثال بنفس امتداد المعمول بالرابط اسفل
رابط مثال معمول بنفس الامتداد ldbغيرمفتوح المصدر واريد عمل مثال بنفس الامتدادات ldb
http://www.4shared.com/rar/chcDCoS0/vb4.html
وذلك لحماية قاعدة البيانات
فشلت في الاتصال
الاتصال العادي mdbودة شغال معايا وشغال علي امتدادmde
Public con As New OleDb.OleDbConnection("Provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\mo.mdb,mde;user id=admin;jet oledb:database password=2240")
Dim DataSet1 As New DataSet
دة اكواد الاتصال بعد تغير الامتداد الي ldb وهو امتدا من mde وليس , mde بس مش شغال معايا وبيظهر مشكلة المراد تعديلة
Public con As New OleDb.OleDbConnection("Provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\mo.ldb;user id=admin;jet oledb:database password=2240")
Dim DataSet1 As New DataSet
الموضوع دة مهم جدا بالنسبة لبرنامجي وحدش رد عليا والي رد جابلي رابط الاتصال بالاكسيس العادي وياريت عمل مثال بنفس امتداد المعمول بالرابط اسفل
رابط مثال معمول بنفس الامتداد ldbغيرمفتوح المصدر واريد عمل مثال بنفس الامتدادات ldb
http://www.4shared.com/rar/chcDCoS0/vb4.html