[VB6] listbox koppelen aan database *

[DPLuS]

Ik trek uit een tabel in een mdb bestand wat gegevens.
Bijvoorbeeld KlantNaam.
Aan die klantnaam hangt in de database een uniek ID.
Maar nu wil ik dat uniek ID uit de database ook hangen aan de row in mijn listbox-object.
Hoe krijg ik dat voorelkaar?

Bijvoorbeeld als ik een verwijder knopje maak, moet ik op het onclick event weten welke Naam ik kan verwijderen uit de database a.d.h.v. het uniek ID.

[.oisyn]

* titel opgeschoond

[Verwijderd]

Hieronder heb ik een combobox gevuld met waardes uit een ado control. Dit ado control is op zijn beurt weer gekoppeld aan een mdb (in mijn geval via een ODBC). Nu moet jij het aanpassen, dus in plaats van een combo een listbox gebruiken. Moet niet zo moeilijk voor je zijn, anders hoor ik het wel. cboIntern is de combo.

With adoIntern.Recordset
.MoveFirst
Do While Not .EOF
varBuffer = ![Vestiging]
varBuffer2 = ![ID]
If IsNull(varBuffer) Then varBuffer = vbNullString
cboIntern.AddItem CStr(varBuffer)
cboIntern.ItemData(intIndex) = varBuffer2
intIndex = intIndex + 1
.MoveNext
Loop
End With

[DPLuS]

Ah, je kunt dus aan die index een value meegeven....
Dan moet het wel lukken....

[Eastern]

Shit..., dat had ik nog niet gezien.

Ik heb vorige week zitten klooien met een extra array waar dan de unieke id's in staan van records, en de overige data gewoon in de combo / listbox

Het werkt gelukkig wel, en goed ook

[ Voor 12% gewijzigd door Eastern op 03-09-2003 08:44 ]