[Ahmed Abdulla]

أخي الكريم لدي سؤال أخر من عشمي بك اذا كان لدي أكثر من قاعدة بيانات مثلا 2011 و 2012 و 2013 ومسجلين بالكومبو بوكس واذا اردت فتح أي قاعدة منهماعلي حسب اختيارها من الكومبوبوكس فكيف يكون المسار أرجو مراجعةهذا الكود ثم التعديل عليه ولك مني جزيل الشكر
Con.Open "Provider=Microsoft.Ace.OLEDB.12.0; Data Source=" & App.Path & "\Combo1.text).accdb; Jet OLEDBatabase Password = Ahmed "

[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته




تفضل

PHP كود :

Private Sub Combo1_Change()
    If Con.State = adStateOpen Then Con.Close
    Con.Open "Provider=Microsoft.Ace.OLEDB.12.0; Data Source=" & App.Path & "\" & Me.Combo1.Text & ".accdb; Jet OLEDBatabase Password = Ahmed "
End Sub 


[COLOR="#FF0000"]تم التعديل


[/COLOR]
السلام عليكم ورحمة الله وبركاته

[Ahmed Abdulla]

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

[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته

Ahmed Abdulla كتب :أخي الفاضل لا تعتذر وجزاك الله كل خير علي مجهودك معي

اعتذر عن عدم تمكني تشغيل البرنامج لأن لدي ويندوز7 64bit وهذا يتعارض مع أشياء كثيرة في VB6 ومسبب لي حرج مع الأخوة لتجربة برامجهم

اتمنى من أحد الاعضاء الذي ما زال يعمل على vb6 بويندوز xp ومعرفة المشكلة

أقدم اعتذاري....




السلام عليكم ورحمة الله وبركاته

[Ahmed Abdulla]

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

[محمد العبيدي]

اخي العزيز
لقد قمت باستبدال كود الربط بقاعدة البيانات بكود اخر وهو شغال لدي ولكن هناك خطأ في قاعدة البيانات الخاصة بك لانه لايمكن فتحها حتى عن طريق الالكسس
فقم باستبدال قاعدة البيانات وسيعمل بصورة صحيحة انشاء الله

[Ahmed Abdulla]

أخي الكريم قاعدة البيانات أكسيس 2007 ليس بها مشكلة أعتقد ان هذا الكود يعمل فقط مع قاعدة أكسيس 2003 أو أي اصدار قبل 2007 أليس كذلك
مشكور أخي الكريم علي اهتمامك ومجهودك معي

[Ahmed Abdulla]

هل يوجد أي اقتراحات أخري من الأخوة الكرام

[محمد العبيدي]

Ahmed Abdulla كتب :أخي الكريم قاعدة البيانات أكسيس 2007 ليس بها مشكلة أعتقد ان هذا الكود يعمل فقط مع قاعدة أكسيس 2003 أو أي اصدار قبل 2007 أليس كذلك
مشكور أخي الكريم علي اهتمامك ومجهودك معي

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

[Ahmed Abdulla]

أخي الكريم جزاك الله كل خير وشاكر أفضالك