Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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, 7563 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
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 ...

Datenbanken
gelöst Access 2010 SQL Tabellen Datensätze einfügen (6)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Neue Wissensbeiträge
Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(14)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

RedHat, CentOS, Fedora

Fedora 27 ist verfügbar

Information von Frank zum Thema RedHat, CentOS, Fedora ...

Heiß diskutierte Inhalte
Server
Bilder aus dem Web mit CSV runterladen (30)

Frage von Yannosch zum Thema Server ...

Windows Update
WSUS 4 (Server 2012 R2) - Windows 10 Updates nicht möglich (12)

Frage von c0d3.r3d zum Thema Windows Update ...

Server-Hardware
Bestehendes Raid erweitern um 4 gleiche Platten! (Verständnis Fragen) (12)

Frage von Hendrik2586 zum Thema Server-Hardware ...