Probleem combobox in combinatie met een database

Thread View: be.comp.programming

2 messages

[T] Back to Threads [V] Tree View [G] Group Articles

2 total messages Started by Jimmy vdb Mon, 21 Oct 2002 17:03

#7044

Author: Jimmy vdb
Date: Mon, 21 Oct 2002 17:03

47 lines
1950 bytes

Geachte

ik ben mezelf aan het leren omgaan met vb6 en databanken maar nu ik deze
twee wil combineren database en combobox loopt het verkeerd

ik krijg steeds de volgende fout:

item not found in this collection

fout nr 3265

Ik heb de velden al eens omgewisseld zodat hij niet de comp geeft maar de
gemeente in de combobox maar kan krijg ik een null fout

ik doe het volgende:

Private Sub Comborun()
Dim test As String

ComComp.Clear
' Leegmaken van de combobox
' Sorteren van de gegevens volgens compnr
Data1.RecordSource = "SELECT * FROM Installaties ORDER BY Gemeente"
Data1.Refresh

' Als er geen gegevens zijn dan stoppe

If Data1.Recordset.RecordCount = 0 Then
    Exit Sub
End If

' Toevoegen van de gegevens aan de combobox
Do While Not Data1.Recordset.EOF
    ComComp.AddItem Data1.Recordset("Comp")

    ' Deze movenext is belangerijk omdat ander de lus oneindig doorgaat

    Data1.Recordset.MoveNext
Loop

ComComp.Text = ComComp.List(0)

End Sub


Dank u bij voorbaat
jimmy

Re: Probleem combobox in combinatie met een database

#7053

Author: Wauters Kris
Date: Tue, 22 Oct 2002 16:17

17 lines
1457 bytes

<knip>
> Do While Not Data1.Recordset.EOF
>     ComComp.AddItem Data1.Recordset("Comp")
>
>     ' Deze movenext is belangerijk omdat ander de lus oneindig doorgaat
>
>     Data1.Recordset.MoveNext
> Loop
>
> ComComp.Text = ComComp.List(0)
</knip>

probeer eens:
ComComp.AddItem Data1.Fields("Comp").Value

groeten,
Kris

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads