database combobox

بعد التحية

ضع هذا الكود في حدث Click للكمبوا بوكس ComboBox ثم عرف جملة الإستعلام ،

 If rs.State = adStateOpen Then rs.Close
    rs.Open "SELECT * FROM YourTable WHERE YourField = '" & Trim(Combo1.Text) & "';", db, adOpenForwardOnly, adLockReadOnly

'
 If rs.RecordCount = 0 Then
'
 Else
   Text1.Text = rs!Field1 & "  " & rs!Field2
 End If

حيث :

rs هو Recordset

YourTable الجدول الذي سوف تحضر البيانات منه .

YourField الحقل الخاص بالسلع ومن المفترض تكون بيانات هذا الحقل موجودة في الكمبوا Combo .

أما

rs!Field1 و rs!Field2 فهما باقي الحقول التي سوف ترجعها ناتج جملة الاستعلام السابقة . على اساس إنها سعر السلعة وكمية المخزون .

تحياتي .

مشكور أخ Visitor_OM على الرد السهل و لكن الوافى فى نفس الوقت.

شكرا أخي العزيز roka على ردك الكريم .

تحياتي أخوك Visitor_OM

مشكور اخى جدا جدا

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