المشاركات : 53
المواضيع 0
الإنتساب : Nov 2012
السمعة :
0
الشكر: 0
تم شكره 51 مرات في 4 مشاركات
سهله جدآ Set rs = db.OpenRecordset("SELECT * FROM biofthedrinks where category='" & (Combo1.Text) & "'", dbOpenDynaset)
Text1.Text = rs![aladai]
زي ما فعل اخي benomar
المشاركات : 181
المواضيع 5
الإنتساب : Sep 2013
السمعة :
0
الشكر: 5
تم شكره 46 مرات في 26 مشاركات
مع انى لااتعامل مع الـــ dao لاكين انا بشرحلك
فى حدث Form_Load
كود :
Set db = OpenDatabase(App.Path & "\Data\data1.mdb")Set rs = db.OpenRecordset("SELECT * FROM biofthedrinks")
Do While rs.EOF = False
Combo1.AddItem rs![category]
rs.MoveNext
Loop
شرح الكود ببساطة : الاتصال بقاعدة البيانات عن طريق المسار الذى موجود فيه القاعدة ... فتح الجدول المراد العمل من خلاله...استخدام جملة التكرار Do لمئ المكبو
اما فى حدث الـــ Combo1_Click
كود :
Set rs = db.OpenRecordset("SELECT * FROM biofthedrinks where category='" & (Combo1.Text) & "'", dbOpenDynaset)
Text1.Text = rs![aladai]
شرح الكود ببساطة : بعد فتح الجدول اذهب الى الحقل وهات النص الموجود فى Combo1 من قاعدة البيانات
اختيار القيمة المقابلة للــعنصر الموجود فى الـــ Combo1 وضعها فى Text1
بالتوفيق
سبحان الله وبحمده سبحان الله العظيم
آللهم لگ آلحمد حتى ترضى .. ولگ آلحمد إذا رضيِت .. ولگ آلحمد بعد آلرضآ
المشاركات : 67
المواضيع 9
الإنتساب : Sep 2014
السمعة :
0
الشكر: 1
تم شكره 3 مرات في 3 مشاركات
اما فى حالة اتصال كومبوكس اخر بجدول ثانى فما هى الطريقه