Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Access 2010 VBA - mehrspaltiges Listenfeld über Recordset füllen

Frage Entwicklung Datenbanken

Mitglied: AndyAh

AndyAh (Level 2) - Jetzt verbinden

31.01.2014, aktualisiert 15:10 Uhr, 7222 Aufrufe, 2 Kommentare

Hi NG,

ich bin's schon wieder ;). Wie kann ich ein Listenfeld mit Recordsets mehrspaltig füllen?

Folgenden Code habe ich:

01.
Dim connstr As String 
02.
   Dim sql As String 
03.
   Dim conn As New ADODB.Connection 
04.
   Dim rs As New ADODB.Recordset 
05.
 
06.
   'user und passwort kommen aus einem Anmeldefenster 
07.
   connstr = "DRIVER={MySQL ODBC 5.2 ANSI Driver};SERVER=127.0.0.1;DATABASE=adressen;" & "USER=" & user & ";" & "PASSWORD=" & passwort & "; OPTION=3" 
08.
    
09.
   conn.ConnectionString = connstr 
10.
    
11.
   On Error GoTo LogonError 
12.
     
13.
   conn.Open 
14.
 
15.
   On Error Resume Next 
16.
 
17.
   sql = "SELECT * FROM zugang" 
18.
   rs.Open sql, conn, adOpenDynamic, adLockOptimistic 
19.
   'rs.MoveFirst 
20.
    
21.
 
22.
   rs.Open sql, conn, adOpenDynamic, adLockOptimistic 
23.
   rs.MoveFirst 
24.
    
25.
   With mitglieder 
26.
     While Not rs.EOF 
27.
        .ColumnCount = 4 
28.
        .AddItem rs.Fields("ID").Value 
29.
        .AddItem rs.Fields("EMail").Value 
30.
        .AddItem rs.Fields("Passwort").Value 
31.
        rs.MoveNext 
32.
      Wend 
33.
   End With
Leider weis ich nicht weiter.

Gruß
Andy
Mitglied: colinardo
31.01.2014, aktualisiert um 16:05 Uhr
ich bin's schon wieder ;)
Ich auch
Einfach die Werte jeweils mit einem Semikolon voneinander trennen
01.
With mitglieder 
02.
     While Not rs.EOF 
03.
        .ColumnCount = 4 
04.
        .AddItem rs.Fields("ID").Value & ";" & rs.Fields("EMail").Value & ";" & rs.Fields("Passwort").Value 
05.
        rs.MoveNext 
06.
      Wend 
07.
   End With
Grüße Uwe
Bitte warten ..
Mitglied: AndyAh
01.02.2014 um 09:29 Uhr
Hi Uwe,

danke für deinen Vorschag. Jetzt funktioniert es.

Gruß
Andy
Bitte warten ..
Ähnliche Inhalte
VB for Applications
gelöst VBA Code Änderung Access 2010 (6)

Frage von Dr.Cornwallis zum Thema VB for Applications ...

Datenbanken
gelöst Syntaxfehler VBA Access 2010 (6)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Datenbanken
Access 2010 - Filter für Datum funkioniert nicht VBA (4)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Datenbanken
gelöst Access 2010 Filter zurücksetzen (6)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Neue Wissensbeiträge
Windows Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Windows 10
Windows 10 im Unternehmen? (26)

Frage von zorlayan zum Thema Windows 10 ...

Festplatten, SSD, Raid
Raid 1 2 SSD mit Windows Server 2016 (17)

Frage von jaywee zum Thema Festplatten, SSD, Raid ...

Voice over IP
Über Fritzfax over IP gehen nur einige Faxe (11)

Frage von shearer9 zum Thema Voice over IP ...