منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيفية تغيير قيم الكومبوكس وتتغير تبعا لها قيم التكست بوكس فى ado - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+--- الموضوع : كيفية تغيير قيم الكومبوكس وتتغير تبعا لها قيم التكست بوكس فى ado (/showthread.php?tid=7248)

الصفحات: 1 2

كيفية تغيير قيم الكومبوكس وتتغير تبعا لها قيم التكست بوكس فى ado - الميسري - 09-12-12

سهله جدآ Set rs = db.OpenRecordset("SELECT * FROM biofthedrinks where category='" & (Combo1.Text) & "'", dbOpenDynaset)
Text1.Text = rs![aladai]

زي ما فعل اخي benomar

كيفية تغيير قيم الكومبوكس وتتغير تبعا لها قيم التكست بوكس فى ado - hago - 09-12-12

مع انى لااتعامل مع الـــ 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
بالتوفيق

كيفية تغيير قيم الكومبوكس وتتغير تبعا لها قيم التكست بوكس فى ado - ENG.MPROG - 09-12-12

بسم الله الرحمن الرحيم

اسمحوا لي بالمشاركة ...

اذا كنت تستعمل اداة adodc فقم بربط الكومبو بوكس بطريقة عادية جدا من شاشة الخصائص - source , feild - ثم اكتب في حدث Click للكمبو بوكس الكود التالي :
كود :
If combo1 = "......." Then
text1 = "......."
End If

اعتقد ان هذه الطريقة أكثر مرونة وأقل تعقيدا

بالتوفيق

كيفية تغيير قيم الكومبوكس وتتغير تبعا لها قيم التكست بوكس فى ado - hosney - 09-12-12

شكرا جدا على الشرح

كيفية تغيير قيم الكومبوكس وتتغير تبعا لها قيم التكست بوكس فى ado - hosney - 09-12-12

اما فى حالة اتصال كومبوكس اخر بجدول ثانى فما هى الطريقه

كيفية تغيير قيم الكومبوكس وتتغير تبعا لها قيم التكست بوكس فى ado - benomar - 09-12-12

خذ هذا المثال أيضاً
الرابط

كيفية تغيير قيم الكومبوكس وتتغير تبعا لها قيم التكست بوكس فى ado - hosney - 11-12-12

شكرا جزيلا على مجهوداتكم