تعديل كود الاتصال بقاعدة البيانات اكسيس محمية بكلمة مرور

[meido666]

الاخوة الافاضل

لدي قاعدة بيانات اكسيس مقسمة الي جزءين

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

وهذا الكوود الذي اريد التعديل عليه
 

"E:\DADAD\ZAData.GGG, PWD=7712"

وشكرا لكم جميعاً

[rudwan]

اذا كانت قاعدة البيانات من صنع شخص آخر و عليها كلمة مرور فنحن نعتذر عن تقديم مثل هذه المساعدة لأنها تختص بحقوق الملكية

و لايصح استخدامها الا باستئذان صاحبها

[meido666]

اذا كانت قاعدة البيانات من صنع شخص آخر و عليها كلمة مرور فنحن نعتذر عن تقديم مثل هذه المساعدة لأنها تختص بحقوق الملكية

و لايصح استخدامها الا باستئذان صاحبها

 

لا اخي الفاضل

 

انا مصمم هذه القاعدة ووضعت لها كلمة سر

 

وعند الاتصال بالقاعده بالكود التالي

 Dim strPath As String

strPath = "E:\DADAD\ZAData.GGG"

تظهر رسال الخطأ

not a valid password

 

وشكرا

[meido666]

الاخوة الأفاضل

 

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

strPath = "E:\DADAD\ZAData.GGG"
Dim BackObj As TableDef, BackDB As Database

Set BackDB = DBEngine.Workspaces(0).OpenDatabase(strPath, True, False, "MS Access;PWD=7712")

[meido666]

الاخوة الافاضل

 

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

Sub OpenDB() Dim db As DAO.Database Dim ws As DAO.WorkSpace Dim rst As DAO.Recordset Set ws = DBEngine.WorkSpaces(0) Set db = ws.OpenDatabase _ ("C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb", _ False, False, "MS Access;PWD=northwind") Set rst = db.OpenRecordset("Customers", dbOpenDynaset) If rst.RecordCount > 0 Then rst.MoveLast MsgBox rst!CustomerID End If rst.Close db.Close End Sub

وتمنياتي بالتوفق

[rudwan]

جيد أن يقوم المرء بايجاد الحل بنفسه

بالتوفيق