Keskustelu: Ohjelmointikysymykset: VB6: Listbox ja Access-tietokanta

Olen tehnyt asiakasrekisteritietokannan accessilla, josta visual basic hakee tiedot formissa oleviin viiteen listboxiin "asiakas", "osoite", "puhelinnumero" jne.... ja nyt haluaisin tietää miten saan poistettua tietyn asiakkaan kaikki tiedot ja päivittää kentän yhden command-buttonin avulla. Jos joku osaisi neuvoa, olisin kiitollinen....

Jos asiakasrekisterissäsi on jokaisella henkilöllä oma numeerinen ID:ensä, ja lisäät tiedot listboxeihin AddItem:llä, niin ongelma on helposti hoidettu. Lisäät siis Listboxien tietoihin niiden ItemDataan mihinkä asiakkaaseen kyseinen rivi kuuluu käyttäen tämän ID:tä. ItemData hyväksyy vain numeerisia arvoja.

Me.List1.AddItem "Rivi " & Me.List1.NewIndex + 2 'NewIndex alkaa -1, joten eka tuolla on "Rivi 1" jne.
'Korvaa =-merkin jälkeinen osa omalla ID:lläsi
Me.List1.ItemData(Me.List1.NewIndex) = Me.List1.NewIndex 'Kun kerran rivi äskeisessä luotiin, niin tässä NewIndex on 0,1,2...

Valitun arvon löytääksesi joudut käymään läpi koko listan...

Private Sub List1_Click()
    Dim i As Integer

    For i = 0 To Me.List1.ListCount - 1
        If Me.List1.Selected(i) Then MsgBox "Valittu ID(" & Me.List1.ItemData(i) & ") sisältää tiedon " &  Me.List1.List(i)
    Next i
End Sub