Combo Box & Data base

[saeedmasih]

سلام
من میخوام وقتی کومبو باکس رو باز میکنم تمام اطلاعات دیتابیسی که کمبو رو بهش ربط دادم باز بشه ولی فقط یکیش میاد.
مشکل از کجاست؟

[Mohandese_Javan]

سلام!
خوب شما کمبو رو مثل تکس به دیتابیس ربط دادی. شما نیازی به ربط دادن کمبو باکس به دیتابیس نداری. هر وقت دینابیس باز شد فیلدی از جدول رو که میخوای با یه حلقه تو کمبوباکس بریز. مثلا:

کد:

DaroRS.MoveFirst
While Not DaroRS.EOF
  Combo1.AddItem DaroRS.Fields("DaroName")
  DaroRS.MoveNext
Wend

اگه سوالی داری یا منظورت این نیست بگو اگه تونستم کمکت کنم

[BlueRose]

سلام
من با Ado يه ارتباط با بانک اطلاعاتي درست کردم به اين صورت :

کومبو باکس محتويات فيلد (Country) رو نشون ميده
هر آيتمي که رو انتخاب ميکنيم معادل همون رو در فيلد (Code) در تکست باکس ميبينيم

مثلا"
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset

Private Sub Form_Load()
cnn.Open "Provider=Microsoft.JET.OLEDB.4.0;Data source=" & App.Path & "\test.mdb"
rst.Open "Sandra", cnn, adOpenKeyset, adLockOptimistic, adCmdTable
' اين کد براي اضافه کردن تمامي محتويان يک فيلد از ديتا بيس به کومبو باکس استفاده شده
Do While Not rst.EOF
Combo1.AddItem rst!Country
rst.MoveNext
Loop
Combo1.ListIndex = 0
rst.Close
cnn.Close
Set cnn = Nothing
Set rst = Nothing
End Sub

Private Sub Combo1_Click()
' اينجا بايد کدي نوشته بشه که با انتخاب هر کشور  از کومبوباکس کد اون کشور در تکست باکس ديده بشه
End Sub

فعلا تو همین جا گیر کردم اگه حل شد سوالات دیگه ای هم دارم
با تشکر