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

للرفع

من الصعب كسر كلمة المرور هذه لأنها تحمى الكود ومن داخل الأكسيس وليست من صنع المبرمج .

اشرف خليل

مثال من التعليمات

DoCmd.TransferDatabase acLink, "ODBC Database", _

    "ODBC;DSN=DataSource1;UID=User2;PWD=www;LANGUAGE=us_english;" _

    & "DATABASE=pubs", acTable, "Authors", "dboAuthors"

و هو لعمل ربط

و طبعا

acLink

يمكن استبدالها ب

acExport

acImport

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

acExport

acImport default

acLink

اعتذر ما رايث امشاركة الا الان

جزاكم الله خير

والصراحة كنت مستعجل شوي ومشيت الموضوع بطريقة ثانية

الاخ محمد مشكور وما قصرت وان شاء الله اجرب اللي ذكرته وافيدكم بالنتيجة .

أرجو من الأخوة المشرفون على موقع access أن يقوموا لو سمحوا ببعض دروس عن الأمن في access والتعامل مع المستخدمين

وا]ضا أن يقوموا بإعطاء دروس في sharing وجزاكم الله خيرا

محمد جامع

mgamee@hotmail.com

الاخ محمد

ما صلح معي الكود

شكله ما يمشي إلا مع ODBC او اني ما عرفت

الأخ أسامة حفظه الله

السلام عليكم وبعد

استخدم الكود التالي

      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"

إذا واجهتك أي مشكلة فأعطني كافة المعلومات وسوف أكتب لك الكود كاملاً بإذن الله

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

بعدين اسوي الاستيراد

ان شا الله اجرب واخبرك بالنتيجة

تمام ...مشكور وما قصرت

الله يجزاك خير ويكثر امثالك

أهلاً بك

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

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

AbA.Close

Set wrkJet = Nothing

Set AbA = Nothing

الأخ ابو هاجر

طريقة ممتازة جداً ولكن لو كنت لا أعرف اسم الجدول0 بمعنى هل هناك طريقة استورد بها جميع الجداول دون تحديد اسم جدول معين

الأخ مصلح

السلام عليكم

في هذه الحالة يمكنك استخدام كود كالتالي

Dim wrkJet As Workspace

Dim AbA As Database

Dim tbl As TableDef



Set wrkJet = DBEngine.Workspaces(0)

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

          False, False, _

          ";PWD=123")

          

      For Each tbl In AbA.TableDefs

      If tbl.Name Like "MSys*" Then

      Else

      DoCmd.TransferDatabase acLink, "Microsoft Access", "databasename.mdb", acTable, tbl.Name, tbl.Name

      End If

      Next