Top-Themen

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 DAO.Recordset casten oder parsen

Mitglied: AMStyles

AMStyles (Level 1) - Jetzt verbinden

27.10.2011, aktualisiert 02.11.2011, 3427 Aufrufe, 9 Kommentare

Hallo Forum User,

ich möchte ein SQL Statement in eine Variable speichern.
Hierbei handelt es sich um die Umgebung Access 2007 und die Programmiersprache VBA.

Ich habe bereits das Statement in eine Variable gespeichert, jedoch ist mir in dem Fall das Ergebnis wichtig.

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT COUNT (PROJEKT) FROM PRJVERWTSTADMIN_PRJV_PROJEKT")

Sollte einen nummerischen Wert zurückgeben. Diesen möchte ich abspeichern in einer Variable.

Grüße,
AMStyles
Mitglied: thaenhusen
27.10.2011 um 14:57 Uhr
Moin.

Versuch mal.

01.
Dim db as DAO.Database 
02.
Dim rs As DAO.Recordset 
03.
Dim counter as Integer 
04.
 
05.
set db = currentDb 
06.
 
07.
Set rs = CurrentDb.OpenRecordset("SELECT COUNT (PROJEKT) as cnt FROM PRJVERWTSTADMIN_PRJV_PROJEKT") 
08.
 
09.
if not rs.eof then 
10.
    counter = rs![cnt] 
11.
else 
12.
    counter = 0 
13.
end if 
14.
 
15.
msgbox counter
Ungetestet.

HTH
MK
Bitte warten ..
Mitglied: AMStyles
27.10.2011 um 15:10 Uhr
Merci, funktioniert Super!
Woher hast die Referenz?

AMStyles
Bitte warten ..
Mitglied: thaenhusen
27.10.2011 um 15:35 Uhr
Moin.

Merci, funktioniert Super!

Sehr schön.

Woher hast die Referenz?

Wie meinst Du das? Das sind Access-Grundlagen. Das habe ich mir vor Jahren mal angeeignet.
Woher ich das habe kann ich nicht mehr genau sagen...

Schöne Grüße
MK
Bitte warten ..
Mitglied: AMStyles
27.10.2011 um 15:57 Uhr
Ok, dachte du könntest auf eine Webseite referenzieren.
Aber Danke nochmal
Bitte warten ..
Mitglied: thaenhusen
27.10.2011 um 16:32 Uhr
Moin.

Im Zweifel http://www.donkarl.com

Schöne Grüße
MK
Bitte warten ..
Mitglied: AMStyles
02.11.2011 um 10:24 Uhr
Merci thaenhusen, weißt du auch wie man dies mit einem String als Rückgabe Wert löst?
Also mein SELECT Statement gibt mir ein String zurück, diesen möchte ich in eine Variable speichern.

Grüße,
AMStyles
Bitte warten ..
Mitglied: thaenhusen
02.11.2011 um 14:42 Uhr
Moin.

Versuch dann mal.

01.
Dim db as DAO.Database 
02.
Dim rs As DAO.Recordset 
03.
Dim MeineVariable as String 
04.
 
05.
set db = currentDb 
06.
 
07.
Set rs = CurrentDb.OpenRecordset("SELECT StringFeld FROM PRJVERWTSTADMIN_PRJV_PROJEKT") 
08.
 
09.
if not rs.eof then 
10.
    MeineVariable = rs![StringFeld] 
11.
else 
12.
    MeineVariable = "" 
13.
end if 
14.
 
15.
msgbox MeineVariable  
16.
 
17.
'Das aufräumen nicht vergessen 
18.
set rs = nothing 
19.
db.close 'wird bei currentDb nicht unbedingt gebraucht
Ist also fast das gleiche, nur die Variable muss dann vom Typ String sein und nicht integer.

An der Stelle schon mal vorab, bei Integer und Long immer aufpassen, dass die Variable die
Werte auch "fassen" kann.

HTH
MK
Bitte warten ..
Mitglied: AMStyles
10.11.2011 um 10:50 Uhr
Danke thaenhusen!

Was meinst du genau mit
01.
if not rs.eof then  
02.
    MeineVariable = rs![StringFeld] 
StringFeld?
Bitte warten ..
Mitglied: thaenhusen
10.11.2011 um 10:57 Uhr
Moin.

01.
Set rs = CurrentDb.OpenRecordset("SELECT StringFeld FROM PRJVERWTSTADMIN_PRJV_PROJEKT")  
02.
 
03.
if not rs.eof then  
04.
    MeineVariable = rs![StringFeld]  
05.
end if
Das ist das StringFeld aus der Abfrage. Das muss Du an Deine Tabelle anpassen. Wenn es ein Feld Kunde gibt würde das Select Kunde und rs![Kunde] heißen.

HTH
MK
Bitte warten ..
Ähnliche Inhalte
Sonstige Systeme
Software zum Parsen von Emails und PDFs
Frage von Zero01Sonstige Systeme12 Kommentare

Hallo, ich suche für die Firma bei der ich zur Zeit arbeite eine Software mit der man Emails und ...

Batch & Shell
Ini file powershell parse
gelöst Frage von kotb92Batch & Shell3 Kommentare

Hallo zusammen, Ich habe ein paar solche 'ini' Dateien die ich mit Powershell in eine csv Datei parsen möchte. ...

Windows 7

Microsoft.NET Framework Parser Konfigurationsfehler

gelöst Frage von DasJulianWindows 72 Kommentare

Schönen guten Tag alle zusammen, und zwar bin ich heute früher von meiner Arbeit nachhause gekommen und wollte dann ...

Windows Server

Wie SQL-Server Verzeichnis parsen lassen?

Frage von YotYotWindows Server5 Kommentare

Hallo alle! Es gibt zwar keine SQL-Server-Rubrik hier, aber vielleicht kann mir hier ja trotzdem jemand helfen: Ich bekomme ...

Neue Wissensbeiträge
Router & Routing

Olle Fritzbox 7270 mit VPN und SIP-Telefonie hinter O2 Homebox 6641 als "Modem"

Erfahrungsbericht von the-buccaneer vor 7 StundenRouter & Routing3 Kommentare

Nun war es soweit: Auch O2 hat mich mit VOIP zwangsbeglückt. Heute am Privatanschluss, in 2 Wochen ist das ...

Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 20 StundenSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 1 TagWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Microsoft Office

MS Office 2019 ohne OneNote - OneNote App speichert nur in Cloud

Information von Deepsys vor 1 TagMicrosoft Office6 Kommentare

Microsoft zeigt deutlich wohin alles bei Ihnen geht, OneNote 2019 wird es nicht mehr geben, und die Windows 10 ...

Heiß diskutierte Inhalte
Festplatten, SSD, Raid
Server SSD: NVMe PCIe 3.0 RAID?
Frage von bouneeFestplatten, SSD, Raid15 Kommentare

Hallo liebe Admins, mir stellt sich gerade die Frage, ob ein neuer Server mit SSD NVMe PCIe 3.0 Sinn ...

Sonstige Systeme
Wie Normenkataloge im Unternehmen bereit stellen?
Frage von MuzzepuckelSonstige Systeme14 Kommentare

Hallo Kollegen, ich lese schon lange hier mit, nun mein ersrer Beitrag, bzw. Frage. :-) Wir benötigen für unsere ...

Windows 10
Windows 10 Startmenü-Einstellungen Systemweit festlegen
Frage von flotautWindows 1013 Kommentare

Guten Morgen liebe Admins, wir möchten bei uns am Lehrstuhl demnächst auf Windows 10 umsteigen. Wir installieren unsere PC's ...

LAN, WAN, Wireless
OpenVPN Client Fehlermeldungen
Frage von chris84LAN, WAN, Wireless12 Kommentare

Hallo Zusammen, wir nutzen seit kurzem einen neuen Router und den OpenVPN Client. Die VPN Verbindung klappt; allerdings kommen ...