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:

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

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 228291

Url: https://administrator.de/forum/access-2010-vba-mehrspaltiges-listenfeld-ueber-recordset-fuellen-228291.html

Ausgedruckt am: 12.05.2025 um 03:05 Uhr

2 Kommentare

Neuester Kommentar

ich bin's schon wieder ;)

Ich auch

Einfach die Werte jeweils mit einem Semikolon voneinander trennen

With mitglieder
     While Not rs.EOF
        .ColumnCount = 4
        .AddItem rs.Fields("ID").Value & ";" & rs.Fields("EMail").Value & ";" & rs.Fields("Passwort").Value  
        rs.MoveNext
      Wend
   End With

Grüße Uwe