منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أخي الكريم لدي سؤال أخر من عشمي بك اذا كان لدي أكثر من قاعدة بيانات مثلا 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]
السلام عليكم ورحمة الله وبركاته

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

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

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

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

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

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

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

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