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, 6461 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Datenbanken
gelöst Syntaxfehler VBA Access 2010 (6)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Datenbanken
gelöst Access 2010 Abfrage erster Werktag (10)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Datenbanken
gelöst Access 2010 komplizierte Abfrage (3)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Datenbanken
gelöst Hilfe bei "Distinct" Befehl in Access 2010 (3)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (20)

Frage von Xaero1982 zum Thema Microsoft ...

Outlook & Mail
gelöst Outlook 2010 findet ost datei nicht (19)

Frage von Floh21 zum Thema Outlook & Mail ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (18)

Frage von Unwichtig zum Thema Netzwerkmanagement ...

Festplatten, SSD, Raid
M.2 SSD wird nicht erkannt (14)

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