ما هي طريقة فتح قاعدة بيانات لها كلمة مرور بالكود

ma_monem كتب:

سلام عليكم ياشباب

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

اخي الفاضل : منعم

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

اذا نحتاج الى قاعدتين الأولى غير محمية بها الأكواد

Public Function OpenPasswordProtectedDB()
Static acc As Access.Application
Dim db As DAO.Database
Dim strDbName As String
strDbName = Application.CurrentProject.Path & "\database.mdb"

Set acc = New Access.Application
acc.Visible = True
Set db = acc.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=123")
acc.OpenCurrentDatabase strDbName
acc.DoCmd.OpenForm "frmMyForm"
db.Close
Set db = Nothing
End Function

والثانية المحمية بالرقم السري بهذه الطريقة ( حيث سيكون الرقم السري في القاعدة المحمية هو : 123 )

zaDatabase.rar

بالتوفيق