سوال للربط بين اكسيل وملف اكسس محمي بباسورد

[mhfouzm]

كيف يمكن ادخال باسوردملف اكسس ( محمي بكلمه مرور) داخل كود الاكسيل لقراءه البيانات .

[mn20]

اخي الكريم إليك الكود التالي :

Sub OpenDataBasePwd()

 Dim rs As DAO.Recordset
 Dim MyDbName As String
 Dim MyPassWord As String

 MyDbName = "C:\db1.mdb"    'ملف القاعدة
 MyPassWord = "111"               'كلمة المرور

 ' مثلا  tbl_aaa فتح القاعدة و تحديدا الجدول 
 Set rs = OpenDatabase(MyDbName, False, False, _
        ";pwd=" & MyPassWord).OpenRecordset("SELECT *  FROM tbl_aaa _
               ", dbOpenDynaset)

 a1 = rs!a1      'tbl_aaa الحقل الأول في الجدول 
 a2 = rs!a2      'tbl_aaa الحقل الثاني في الجدول 
 a3 = rs!a3      'tbl_aaa الحقل الثالث في الجدول 

 rs.Close

End Sub

آمل أن يقدم لك بعض الفائدة

لك تحياتي

[mn20]

عفوا أخي يجب اضافة المكتبة DAO

باتباع الخطوات التالية

من محرر البيسك

من القائمة ( Tools ) اختر ( References )

ثم ضع علامة أمام المكتبة ( Microsoft DAO 3.6 Object Library )

ثم موافق

بعدها جرب استخدام الكود

يوجد لدي ملف جربت به الكود يحتاج تنسيق ، هل أنت في حاجة إليه ؟؟؟

[mhfouzm]

اسف علي التأخير في الرد

وذلك بسبب وفاه احد اصدقائي (رحمه الله وادخله الجنه ان شاء الله )

شكرا لك اخي الكريم _ وسوف اقوم بأذن الله بتطبيق المعادله واخبارك بالنتائج .

جزاك الله عناخيرا

[mhfouzm]

اخي الكريم

شكرا لك علي مجهودك ولكني اريد وضع كود الباسورد بذلك الكود الذي اقوم بالعمل به وهو كود تم وضعه في احدي المشاركات بالمنتدي من الاخ والاستاذ / محمد حجازي

Sub ADO()

Dim DB As Database

Dim RS As Recordset

Dim SQL As String

Dim Endrow As Long

SQL = "ضع الاستعلام هنا"

Set DB = OpenDatabase("C:\M\mah.mdb")

Set RS = DB.OpenRecordset(SQL)

Endrow = Sheets(1).Range("A1").CurrentRegion.Rows.Count

Sheets(1).Cells(Endrow + 1, 1).CopyFromRecordset RS

RS.Close

DB.Close

End Sub

كود ربط الاكسيل بالاكسس من مشاركه للاستاذ / محمد حجازي

[mhfouzm]

معقـــــــــول _ السوال صعب جدا ؟ علي عباقره واساتذه المنتدي ؟

[mhfouzm]

معقـــــــــول _ السوال صعب جدا ؟ علي عباقره واساتذه المنتدي ؟

[mn20]

عذراً أخي ..

نحن في هذا الشهر الفضيل منشغلون قليلاً ..

إليك الكود بعد التعديل أرجو أن يكون مناسب ...

Sub ADO()
Dim DB As Database
Dim RS As Recordset
Dim SQL As String
Dim Endrow As Long
Dim MyDbName as string
Dim MyPassWord as string
SQL = "ضع الاستعلام هنا"
MyDbName = "C:\M\mah.mdb"    'ملف القاعدة
MyPassWord = "111"         'كلمة المرور

Set DB = OpenDatabase(MyDbName ,False, False,";pwd=" & MyPassWord)
Set RS = DB.OpenRecordset(SQL)
Endrow = Sheets(1).Range("A1").CurrentRegion.Rows.Count
Sheets(1).Cells(Endrow + 1, 1).CopyFromRecordset RS
RS.Close
DB.Close
End Sub

و اكرر .. عذراً على التأخير

تم تعديل أكتوبر 1, 2006 بواسطه mn20

[mhfouzm]

شكــرا لك اخي الكريم __ MN20

وجزاك الله خيرا ببركه هذا الشهر الكريم

وسوف اقوم بتجربه الكود _ وإخبارك بالنتائج بأذن الله

[mn20]

اخي ماهي أخبار الملف ؟

اتمنى ان الامور سارت بشكل الصحيح !