meido666 قام بنشر فبراير 18, 2015 مشاركة قام بنشر فبراير 18, 2015 الاخوة الافاضل لدي قاعدة بيانات اكسيس مقسمة الي جزءين والقاعدة الثانية بها الجداول فقط اريد الاتصال بها وهي عليها كلمة مرور وهذا الكوود الذي اريد التعديل عليه "E:\DADAD\ZAData.GGG, PWD=7712" وشكرا لكم جميعاً رابط هذا التعليق شارك More sharing options...
rudwan قام بنشر فبراير 18, 2015 مشاركة قام بنشر فبراير 18, 2015 اذا كانت قاعدة البيانات من صنع شخص آخر و عليها كلمة مرور فنحن نعتذر عن تقديم مثل هذه المساعدة لأنها تختص بحقوق الملكية و لايصح استخدامها الا باستئذان صاحبها 1 رابط هذا التعليق شارك More sharing options...
meido666 قام بنشر فبراير 18, 2015 الكاتب مشاركة قام بنشر فبراير 18, 2015 اذا كانت قاعدة البيانات من صنع شخص آخر و عليها كلمة مرور فنحن نعتذر عن تقديم مثل هذه المساعدة لأنها تختص بحقوق الملكية و لايصح استخدامها الا باستئذان صاحبها لا اخي الفاضل انا مصمم هذه القاعدة ووضعت لها كلمة سر وعند الاتصال بالقاعده بالكود التالي Dim strPath As String strPath = "E:\DADAD\ZAData.GGG" تظهر رسال الخطأ not a valid password وشكرا رابط هذا التعليق شارك More sharing options...
meido666 قام بنشر فبراير 18, 2015 الكاتب مشاركة قام بنشر فبراير 18, 2015 الاخوة الأفاضل لقد قمت بالتعديل علي الكود كا هو موضح وفتحت مع قاعدة البيانات 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") رابط هذا التعليق شارك More sharing options...
أفضل إجابة meido666 قام بنشر فبراير 18, 2015 الكاتب أفضل إجابة مشاركة قام بنشر فبراير 18, 2015 الاخوة الافاضل هذا هو الكود الذي تم الاستفادة منه في فتح قاعدة بيانات اكسيس محمية بكلمة مرور 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 وتمنياتي بالتوفق رابط هذا التعليق شارك More sharing options...
rudwan قام بنشر فبراير 18, 2015 مشاركة قام بنشر فبراير 18, 2015 جيد أن يقوم المرء بايجاد الحل بنفسه بالتوفيق رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.