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, 7058 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 Syntaxfehler VBA Access 2010 (6)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Datenbanken
Access 2010 Pivot Table Export keine Werte (3)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Neue Wissensbeiträge
Administrator.de Feedback

Umgangsformen auf der Seite

(7)

Information von Frank zum Thema Administrator.de Feedback ...

Windows 10

Windows 8.x oder 10 Lizenz-Key aus dem ROM auslesen mit Linux

(11)

Tipp von Lochkartenstanzer zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Batch & Shell
gelöst Dir tc Befehl unter Windows 10 macht Probleme (14)

Frage von sugram zum Thema Batch & Shell ...

Windows Server
Windows Server Komplettspiegelung (13)

Frage von pdiddo zum Thema Windows Server ...

Windows Server
Windows Server 2016 RDS Remoteapp Anzeigefehler (11)

Frage von qlnGenius zum Thema Windows Server ...