Combobox-Index

[cyberschaf]

Wie kann ich bei diesen dämlichen Comboboxen den Index aus einer Datenbank auslesen lassen, so dass ich bei einem klick auf die combobox sofort weiss, welches element ich aus der datenbank auslesen muss ??

ich habs so probiert:

For i = 0 To rs.RecordCount - 1
cmbKunden.AddItem rs.Fields("title"), rs.Fields("itemid")
rs.MoveNext
Next

das macht der aber einfach nicht

 

[Johannes Postler]

das ist nicht leicht. probiers mal so(weiß nicht obs funktioniert):

Form.load
for each in data1.recordset.recordcount
Combo1.additem(data1.recordset(feldname)
next
End sub

ich hoffe das funktioniert so(nicht ausprobiert)

cu tirolausserfern

 

[cyberschaf]

so funktioniert es ja:

For i = 0 To rs.RecordCount - 1
cmbKunden.AddItem rs.Fields("title"), i
rs.MoveNext
Next

ich will aber unbedingt den datenbankindex auch in der combobox stehen haben, damit ich nicht jedesmal eine abfrage machen muss, welcher kunde angeklickt ist

 

[Johannes Postler]

so genau weiß ich das nicht - hierfür gibts doch itemdata oder?

cu tirolausserfern

 

[coste]

eine liste in vb ist wie ein array in einen anderen programm.

listen oder combobox (ein und dasselbe)

// hier wird eine combobox mit 50 werten geladen
Private Sub Form_Load()
While i < 100
Combo.AddItem i
i = i + 2
Wend
End Sub

//wenn mann in eine der zeilen clickt wird der zeilenindex angezeigt
//und nicht der wert.

Private Sub Combo1_Click()
MsgBox Combo.ListIndex
End Sub