+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : كود بحث واظهار النتاءج في combo (/showthread.php?tid=1809)
كود بحث واظهار النتاءج في combo - superwoofer - 05-02-14
اريد اظهار نتيجة بحث داخل 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
شكرا جزيلا توصلت للمعادلة الصحيحة
RE: كود بحث واظهار النتاءج في combo - princeofislam - 07-02-14
حكيم اخي سوبر
يا ريت تضع مشاكاتك لاستفيد انا ايضا منها لانني جديد على البرمجة
مشاركاتك و ليس مشاكاتك
RE: كود بحث واظهار النتاءج في combo - superwoofer - 08-02-14
تحت امرك
RE: كود بحث واظهار النتاءج في combo - princeofislam - 08-02-14
اخي سوبر انت رائع
يا ريت مثال البحث و تعبئة الكومبو بالبحث لنستفيد ان شاء الله
RE: كود بحث واظهار النتاءج في combo - superwoofer - 09-02-14
في المرفقات
RE: كود بحث واظهار النتاءج في combo - princeofislam - 09-02-14
مشكووووووور اخي