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

اريد اظهار نتيجة بحث داخل combo
ارجو التعديل علي الكود
If rs.State = 1 Then rs.Close
rs.CursorLocation = adUseClient

rs.Open "SELECT * FROM XXX WHERE XXX = '" & Combo1.Text & "'", Adodc1.ConnectionString, 1, 3

Set Combo2.DataSource = rs

---

Combo2.Clear
If rs.State = 1 Then rs.Close
rs.CursorLocation = adUseClient

rs.Open "SELECT * FROM XXX WHERE XXX = '" & Combo1.Text & "'", Adodc1.ConnectionString, 1, 3
Set Combo2.DataSource = rs
With rs
Do Until rs.EOF
Combo2.AddItem rs!XXX
rs.MoveNext
Loop
End With

شكرا جزيلا توصلت للمعادلة الصحيحة

حكيم اخي سوبر

يا ريت تضع مشاكاتك لاستفيد انا ايضا منها لانني جديد على البرمجة

---

مشاركاتك و ليس مشاكاتك

تحت امرك

اخي سوبر انت رائع

يا ريت مثال البحث و تعبئة الكومبو بالبحث لنستفيد ان شاء الله

في المرفقات

مشكووووووور اخي