كيف فتح قاعدة بيانات عن طريق قاعدة بيانات اخرى

[SALEM_1212]

اذا كانت لدينا قاعدة بيانات A ( بها فورم لنسمة Form_ِِA)

وقاعدة بيانات B (بها فورم Form_B)

اذا كانت قاعدة البيانات B مقفلة (بكلمة مرور -مثل -(123)

اريد مثلا عندما انا في فورم Form_A في قاعدة البيانات A ان ادخل الى فورم Form_B في قاعدة البيانات B , اي اتجاوز كلمة المرور 123

وشكرا ارجو ان يكون السوال واضح............

تم تعديل نوفمبر 21, 2003 بواسطه محمد طاهر

[SALEM_1212]

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

Function OpenPasswordProtectedDB()

Dim strAccessExe As String, strDB As String

   'Define as Static so the instance of Access 

   'doesn't close when the procedure ends. 

   Static acc As Access.Application

   Dim db As DAO.Database

   Dim strDbName As String

'The path and filename of the DB to open. 

   strDbName = GetDBDir & "OtherDatabase.mdb"

   Set acc = New Access.Application

   acc.Visible = True

   Set db = acc.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=pswrd")

   acc.OpenCurrentDatabase strDbName

   acc.RunCommand acCmdAppMaximize

   db.Close

   Set db = Nothing

End Function

[محمد طاهر عرفه]

هذا الكود للأخ أبو هاجر :

   Dim wrkJet As Workspace

      Dim AbA As Database


Set wrkJet = DBEngine.Workspaces(0)

      Set AbA = wrkJet.OpenDatabase("databasename.mdb", _

          False, False, _

          ";PWD=123")

          

  

مع وضع المسار الكامل مع اسم قاعدة البيانات التي تريد الاتباط بها بدلاً من "databasename.mdb" و بذلك تكون حققت الاتصال مع القاعدة المحمية بكلمة سر 123 و تنفذ بعد ذلك ما تريد من أكواد و من المهم كما ذكر أخونا أبو هاجر ألا تنسى إغلاق قاعدة البيانات بعد الارتباط بالجداول المطلوبة حتى لا تكون عرضة للتلف بعد انتهاء ما تريد من أكواد نفذ الأمر التالي AbA.Close Set wrkJet = Nothing Set AbA = Nothing ========== و بالمناسبة الكود كاملا كان لعمل ربط للجداول فى قاعدة محمية بكلمة سر و كان كالتالي :

 Dim wrkJet As Workspace

      Dim AbA As Database


Set wrkJet = DBEngine.Workspaces(0)

      Set AbA = wrkJet.OpenDatabase("databasename.mdb", _

          False, False, _

          ";PWD=123")

          DoCmd.TransferDatabase acLink, "Microsoft Access", "databasename.mdb", acTable, "table1","table2"

مع وضع المسار الكامل مع اسم قاعدة البيانات التي تريد الاتباط بها بدلاً من "databasename.mdb"

ووضع اسم الجدول الموجود الذي تريد الارتباط به مكان "table1"

والاسم الذي تريد تسمية الجدول به بعد الارتباط مكان "table2"

من المهم ألا تنسى إغلاق قاعدة البيانات بعد الارتباط بالجداول المطلوبة حتى لا تكون عرضة للتلف

بعد الارتباط نفذ الأمر التالي

AbA.Close

Set wrkJet = Nothing

Set AbA = Nothing

[SALEM_1212]

اخي واستاذي ومشرفنا العزيز محمد طاهر الف الف شكر فعلا هذا الكود الذي كنت ابحث عنة

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

salem_1212

[SALEM_1212]

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

Function OpenPasswordProtectedDB()

Dim strAccessExe As String, strDB As String

  'Define as Static so the instance of Access 

  'doesn't close when the procedure ends. 

  Static acc As Access.Application

  Dim db As DAO.Database

  Dim strDbName As String

'The path and filename of the DB to open. 

  strDbName = GetDBDir & "OtherDatabase.mdb"

  Set acc = New Access.Application

  acc.Visible = True

  Set db = acc.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=pswrd")

  acc.OpenCurrentDatabase strDbName

  acc.RunCommand acCmdAppMaximize

  db.Close

  Set db = Nothing

End Function

حيث اننى لم انتبة الى PWD=pswrd هذة الكلمة فقط ضع 123 بدل (pswrd)

اخى محمد طاهر

بالنسبة للكود الخاص بفتح قاعدة بها ربط للجداول فى قاعدة محمية بكلمة سر فهو يعمل

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

[محمد طاهر عرفه]

الجزء الاول كان لعمل الوصلة فقط و لا ينتج عنه شيء و تحتاج الي اكمال الاكواد بحسب الحاجة

و بما أن الوصلة نجحت لعملية الربط ، فهذا يعني أن الجزء الاول ناجح ( و هو يمثل فقط فتح الاتصال مع القاعدة )

مع تحياتي

[SALEM_1212]

لقد اكملت الكود واشتغل معاي والحمدلله

تسلم اخى محمد طاهر