كيف اتعامل مع combobox ؟

تعريف المتغيرات

Public db As New ADODB.Connection
Public rs As New ADODB.Recordset

ثم كود الاتصال بالقاعدة البيانات وأن كانت محمية بكلمة مرور ويتم كما يلي

 If db.State = adStateClosed Then
db.CursorLocation = adUseClient
 db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb;Jet OLEDB:Database Password=HnHn;adAsyncConnect"
End If

ثم فتح الجدول المطلوب .

If rs.State = adStateClosed Then
 rs.Open "[Table1]", db, adOpenStatic, adLockOptimistic
End If

طريقة أخرى لفتح الجدول

Dim SQL As String 

"SQL= "SELECT * FROM Table1 
Set rs= db.Execute(SQL)

ثم جملة التكرار لملآء الكمبو بالبيانات

Combo1.Clear

Do Until rs.EOF
Combo1.AddItem Rs(2).Fields(0)
rs.MoveNext
Loop
rs.Close
Set rs = Nothing

حيث (Fields(0 يدل على رقم الحقل المراد اخذ البيانات منه ويمكن تبديله إلى اسم الحقل

ارجو ان أكون قد وفقت

تقبل تحياتي B)

السلام عليكم ورحمة الله وبركاتة

مشكور اخى الفاضل HnHn على اهتمامك ولكن للاسف واضح انك لم تلمس المشكلة

انا بالفعل يمكننى ملء ComboBox ولكنى اريد ان اعرض الاسماء مثلا كنص للعناصر وال ID كقيمة للعناصر

حيث يمكن المستخدم من رؤيه نص معبر ويمكننى ايضا من الحصول على القيمة التى يجب ان ترسل الى الجدول الاخر ك forieg key

ارجو ان اكون قد وضحت اكثر