Abfrage aus Access in Listbox - INDEX finden
06.10.2013 09:48:42
Sebastian
Ich habe ein kleines Problem. Ich habe eine Abfrage aus Access in mein Userform gebaut. Die Daten werden in eine ListBox eingelesen. Jetzt möchte ich aber nach der auswahl eines Namen gerne mit dem Index des Datensatzes weiterarbeiten.
Mein Code Sieht bisher so aus:
Private Sub UserForm_Initialize()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim i As Integer
Dim SQLCommand As String
On Error GoTo Fehler
Set cn = New ADODB.Connection
cn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& ThisWorkbook.Path & "\namen.mdb;"
cn.Open
Ort = Sheets("Einstellungen").Range("b5").Value ' hier steht der Ort
Vorname = "Sebastian"
SQLCommand = "SELECT * FROM Namen WHERE TabelleVorname Like '" & Vorname & "' and TabelleOrt _
Like '" & Ort & "' ORDER BY TabelleName ASC"
Set rs = cn.Execute(SQLCommand)
i = 1
With cmbTyp
.ColumnCount = 2
.ColumnWidths = "5,5cm;0,5cm"
Do While Not rs.EOF
cmbTyp.AddItem " "
cmbTyp.List(lLiBo, 0) = rs!TabelleVorname
cmbTyp.List(lLiBo, 1) = rs!TabelleNachname
lLiBo = lLiBo + 1
'rs!TabelleID Ich könnte den Index (rs!TabelleID) ja mit in die Listbox einlesen, nur wie bekomme ich den wieder da raus? Oder geht das ganz anders
vielen Dank und beste Grüße
Sebastian
Anzeige