سؤال عن فتح قاعدة بيانات محمية

كود فتح قاعدة البيانات..

Set db = ws.OpenDatabase("db.mdb", True, False, ";pwd=1234")

شكرا يااخى على ردك

لكن المشكلة اننى اربط الأداة داتا مع قاعدة البيانات اكسس بهذا الكود

Data1.DatabaseName = App.Path & "galal.mdb"

ولا اعرف طريقة الربط عن طريق تعريف متغيرات

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

استخدم الكود التالي لازاله كلمه السر ويمكن وضعه في الحدث activate..

Public ws As Workspace

Public db As Database

Private Sub Form_Activate()



Set ws = DBEngine.Workspaces(0)



Set db = ws.OpenDatabase("D:todo.mdb", True, False, ";pwd=1234")

db.NewPassword "1234", ""

db.Close

'***************

End Sub

هنا الافتراض ان كلمة السر هي 1234

كما يجب مراعاه مسار قاعدة البيانات.

و لأعادة كلمه السر

Set db = ws.OpenDatabase("D:todo.mdb", True, False)

db.NewPassword "", "1234"

db.Close