Ik ben aan het proberen om een combobox te maken met meerdere kolommen, het is de bedoeling dat in de eerste kolom alle achternamen worden geplaatst en in de 2e kolom alle voornamen uit een SQL database.
Ik kom er echter helemaal niet uit.
Ik hoop dat iemand mij hiermee kan helpen.
De gegevens voor de eerste kolom haal ik met onderstaand script:
------------------------------------------------------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------
'Keuzelijsten invullen met waarde personeels database
'-------------------------------------------------------------------------------
Try
If MyConnection.State = ConnectionState.Closed Then
MyConnection.Open()
End If
'--------------------------------------------------------------------------------------
Dim sqlstring As String = "Select achternaam, voornaam, personeelsnummer FROM goederencodes"
Dim localcommand As New Odbc.OdbcCommand(sqlstring, MyConnection)
'-- aanmaken van de datareader, heeft geen constructors dus ook geen New doen
Dim localdatareader As Odbc.OdbcDataReader = localcommand.ExecuteReader
Do While localdatareader.Read
If (Not localdatareader.Item("hoofdgroep") Is DBNull.Value) Then
txt_visiteur.Items.Add(localdatareader.Item("achternaam"))
End If
'Exit Do
Loop
If Not IsNothing(localcommand) Then
localcommand.Dispose()
End If
Catch ex As Odbc.OdbcException
MsgBox("De volgende fout is opgetreden: " & ex.Message)
Finally
If Not IsNothing(MyConnection) Then
If MyConnection.State = ConnectionState.Open Then
MyConnection.Close()
End If
End If
End Try
------------------------------------------------------------------------------------------------------------------------------------------------
Ik kom er echter helemaal niet uit.
Ik hoop dat iemand mij hiermee kan helpen.
De gegevens voor de eerste kolom haal ik met onderstaand script:
------------------------------------------------------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------
'Keuzelijsten invullen met waarde personeels database
'-------------------------------------------------------------------------------
Try
If MyConnection.State = ConnectionState.Closed Then
MyConnection.Open()
End If
'--------------------------------------------------------------------------------------
Dim sqlstring As String = "Select achternaam, voornaam, personeelsnummer FROM goederencodes"
Dim localcommand As New Odbc.OdbcCommand(sqlstring, MyConnection)
'-- aanmaken van de datareader, heeft geen constructors dus ook geen New doen
Dim localdatareader As Odbc.OdbcDataReader = localcommand.ExecuteReader
Do While localdatareader.Read
If (Not localdatareader.Item("hoofdgroep") Is DBNull.Value) Then
txt_visiteur.Items.Add(localdatareader.Item("achternaam"))
End If
'Exit Do
Loop
If Not IsNothing(localcommand) Then
localcommand.Dispose()
End If
Catch ex As Odbc.OdbcException
MsgBox("De volgende fout is opgetreden: " & ex.Message)
Finally
If Not IsNothing(MyConnection) Then
If MyConnection.State = ConnectionState.Open Then
MyConnection.Close()
End If
End If
End Try
------------------------------------------------------------------------------------------------------------------------------------------------