أخي الكريم لدي سؤال أخر من عشمي بك اذا كان لدي أكثر من قاعدة بيانات مثلا 2011 و 2012 و 2013 ومسجلين بالكومبو بوكس واذا اردت فتح أي قاعدة منهماعلي حسب اختيارها من الكومبوبوكس فكيف يكون المسار أرجو مراجعةهذا الكود ثم التعديل عليه ولك مني جزيل الشكر
Con.Open "Provider=Microsoft.Ace.OLEDB.12.0; Data Source=" & App.Path & "\Combo1.text).accdb; Jet OLEDBatabase Password = Ahmed "
01-05-13, 01:25 AM (آخر تعديل لهذه المشاركة : 01-05-13, 01:42 AM {2} بواسطة Moo00ooN.)
السلام عليكم ورحمة الله وبركاته
تفضل
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
اخي العزيز
لقد قمت باستبدال كود الربط بقاعدة البيانات بكود اخر وهو شغال لدي ولكن هناك خطأ في قاعدة البيانات الخاصة بك لانه لايمكن فتحها حتى عن طريق الالكسس
فقم باستبدال قاعدة البيانات وسيعمل بصورة صحيحة انشاء الله
أخي الكريم قاعدة البيانات أكسيس 2007 ليس بها مشكلة أعتقد ان هذا الكود يعمل فقط مع قاعدة أكسيس 2003 أو أي اصدار قبل 2007 أليس كذلك
مشكور أخي الكريم علي اهتمامك ومجهودك معي
Ahmed Abdulla كتب :أخي الكريم قاعدة البيانات أكسيس 2007 ليس بها مشكلة أعتقد ان هذا الكود يعمل فقط مع قاعدة أكسيس 2003 أو أي اصدار قبل 2007 أليس كذلك
مشكور أخي الكريم علي اهتمامك ومجهودك معي
اخي العزيز بالنسبة لقاعدة البيانات الخاصة بك والمرفقه مع البرنامج فهي لاتعمل على جهازي بالرغم من اني اعمل على اوفس 2007 علماَ اني حاولت فتحها مع الاكسس ولم تعمل
اما بالنسبة لكود الربط فانا اعمل علية مع كافة قواعد البيانات حتى 2013 مع تغيير امتداد قاعدة البيانات الموجود بالكود بحسب اصدار قاعدة البيانات