Access 2010 VBA - mehrspaltiges Listenfeld über Recordset füllen
Hi NG,
ich bin's schon wieder ;). Wie kann ich ein Listenfeld mit Recordsets mehrspaltig füllen?
Folgenden Code habe ich:
Leider weis ich nicht weiter.
Gruß
Andy
ich bin's schon wieder ;). Wie kann ich ein Listenfeld mit Recordsets mehrspaltig füllen?
Folgenden Code habe ich:
Dim connstr As String
Dim sql As String
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
'user und passwort kommen aus einem Anmeldefenster
connstr = "DRIVER={MySQL ODBC 5.2 ANSI Driver};SERVER=127.0.0.1;DATABASE=adressen;" & "USER=" & user & ";" & "PASSWORD=" & passwort & "; OPTION=3"
conn.ConnectionString = connstr
On Error GoTo LogonError
conn.Open
On Error Resume Next
sql = "SELECT * FROM zugang"
rs.Open sql, conn, adOpenDynamic, adLockOptimistic
'rs.MoveFirst
rs.Open sql, conn, adOpenDynamic, adLockOptimistic
rs.MoveFirst
With mitglieder
While Not rs.EOF
.ColumnCount = 4
.AddItem rs.Fields("ID").Value
.AddItem rs.Fields("EMail").Value
.AddItem rs.Fields("Passwort").Value
rs.MoveNext
Wend
End With
Leider weis ich nicht weiter.
Gruß
Andy
Please also mark the comments that contributed to the solution of the article
Content-Key: 228291
Url: https://administrator.de/contentid/228291
Printed on: April 18, 2024 at 02:04 o'clock
2 Comments
Latest comment