Vullen combobox vanuit sql server tabel

[linkav]

Allen,

Ik heb een userform en bij het openen wil ik de combobox vullen met de waarden uit de tabel 'divisie'. In de combobox heb ik zowel de divisie-code als de divisie-naam nodig.

Ik dacht aan, maar dit werkt niet.

Private Sub UserForm_Initialize()
On Error GoTo err_UserForm_Initialize
    Dim rst         As ADODB.Recordset
    Dim tmpSql1     As String
    
    Set cnnMDS = New ADODB.Connection
    Set rst = New ADODB.Recordset
        
    cnnMDS_Str = "GEVULD"

    cnnMDS.Open cnnMDS_Str
 
    txtDivision = ""
    txtChannel = ""
 
    tmpSql1 = "Select Name, Code From MDM.Division order by Name"
    rst.Open tmpSql1, cnnMDS, adOpenStatic
    
    rst.MoveFirst
    
    While txtDivision
        .Clear
        Do
            .AddItem rst![Name] & "; " & rst![Code]
            .MoveNext
        Loop Until .EOF
    End With
    txtDivision.ColumnWidths = "100;0"
    
    With Me.txtChannel
        .Clear
    End With

UserForm_Initialize_Exit:
    On Error Resume Next
    rst.Close
    cnnMDS.Close
    Set rst = Nothing
    Set cnnMDS = Nothing
   
    On Error GoTo 0
    Exit Sub
err_UserForm_Initialize:
    MsgBox "Error in UserForm_Initialize: (" & Err.Number & ") - " & Err.Description
    Resume Next
End Sub

Ik heb de code van de divisie nodig om in de where-clausule te zetten van een volgende combobox.

 

[jkpieterse]

Heb je wel de juiste connection string e.d.?

 

[linkav]

Hallo,

De connectie is zeker goed...
Alsik op het pijltje van de combobox klik krijg ik 'Name1;1', 'Name2,2', ....
dan dat ik graag 'Name1', 'Name2', .... had willen zien en als Name2 geselecteerd wordt, wil ik 2 als code terugkrijgen.

Is dat mogelijk?