05-02-14, 03:36 PM
(آخر تعديل لهذه المشاركة : 05-02-14, 03:57 PM {2} بواسطة superwoofer.)
اريد اظهار نتيجة بحث داخل 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
شكرا جزيلا توصلت للمعادلة الصحيحة
ارجو التعديل علي الكود
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
شكرا جزيلا توصلت للمعادلة الصحيحة