السلام عليكم ورحمة الله وبركاته
اخوتي في الاسلام هذه اول مشاركة لي فقد كنت بصدد البحث عن خاصية تعبئة الكومبوبوكس بقاعدة البيانات وذلك بربطها بالمكتبة
Microsoft ActiveX Data Objects 2.8 Library
فهل يمكن ربط قاعدة البيانات بالمثال المرفق بحيث تظهر الاسماء في الكمبوبوكس والعناوين في التكست والربط يكون بهذه المكتبة
وشكرا مقدما على المساعدة وجزاكم الله كل خير
السلام عليكم هذا مثال للربط
sqls = "select distinct name from tabel "
If rs.State = adStateOpen Then rs.Close
rs.Open sqls, db, adOpenKeyset, adLockPessimistic
If rs.EOF = True Then GoTo end1:
rs.MoveFirst
Do
Combo1.AddItem rs.Fields("name")
rs.MoveNext
Loop Until rs.EOF = True
end1:
السلام عليكم
لقد حاولت لكن لم تفلح..تراني مبتدأ
السلام عليكم
في البداية يجب ان تعرف الربط بين قواعد البيانات ولغة البرمجة وهي سهلة مثال
Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
If db.State = adStateOpen Then db.Close
db.Provider = "microsoft.jet.oledb.4.0"
db.Open App.Path & "\store.mdb
بالنسبة للسطر الاول هو تعريف يخص اسم قاعدة البيانات وهي في المثال db ويمكن وضع اي اسم تريد
وبالنسبة للسطر الثاني يخص التعامل مع السجلات والحقول في قاعدة البيانات وهي في المثال rs ويمكن تغيرها
ولكن مابعد هذه المتغيرات db و rs فهي ثابتة مثل connection و recordset
اما السطر الثالث ومايليه فهو خاص بتعريف المحرك الخاص بقاعدة البيانات اي المزود وانت تستخدم اكسس فهذه ثابتة تكتب كما هي
والسطر الاخير يوضح مكان قاعدة البيانات
ولكن لاتنسى نقطة مهمة وهي اضافة من Refernce من قائمة project في فجوال بيسك المكتبة الخاصة ADO وهي
Microsoft Active Data Object
وبعد ان وضعت الفقرة الخاص بتعريف قاعدة البيانات ومسارها في Modul واصبح لها اسم مثل main
في كل form تصممة تضع
call main لكي يربطك بقاعدة البيانات وبعدها تستطيع كتابة جمل sql لاستخراج النتائج واذا لم تكن تعرف كيفية التعامل مع الجمل فهي سهلة
وبامكانك البحث في الموقع عن كيفية انشاء جمل استعلام
ونصيحة لا ترى ان هذه الامور معقدة ولكن جد واجتهد واخوانك في هذا الموقع لايقصرون إن شاء الله
اسف اخي لقد حاولت ولكن لم تنجح
هل يمكنك ربك المثال المرفق لكي افق كيفية وضع الاكواد والتنسيق بينها
وبارك الله فيك واسف ان اثقلت عليك
السلام عليكم
عدلت على المرفق بحيث اذا اضفت اسم الى الجدول في قاعدة البيانات ومن ثم تنفذ البرنامج يضاف الى combo
بارك الله فيك وجعله الله في ميزان حسناتك
ولكن اخي المثال ينقصه كود التكملة في التكست 1 حيث انه لا يكمل البقية
مشكور على الاستجابة
السلام عليكم
اضف command عندما تدخل الاسم في مربع النص يظهر بعد الضغط على add to combo في القائمة
وارجو ان يكون المطلوب
المطلوب اخي اني عندما اختار القيمة من الكمبو يظهر العنوان في التكست
وشكرا على المساعدة
اسف على الخطأ وتم التعديل
بارك الله فيك هذا هو المطلوب
اسف تعبتك معايا
جعله الله في ميزان حسناتك
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…