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

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

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

Hi Uwe,

danke für deinen Vorschag. Jetzt funktioniert es.

Gruß
Andy

German solved Question Databases Development

Hotly discussed

How to set up and configure a Linux GRE tunnelAlexWisha - 3 Comments

End of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment