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, 3468 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
XML

XSL-Transformation-Problem (XRTreeFrag cannot be cast to)

Frage von Oli-87XML1 Kommentar

Hallo und einen schönen guten Abend, ich hänge hier gerade an einer Anforderung und komme absolut nicht weiter. Ich ...

Neue Wissensbeiträge
Firewall
PfSense 2.5.0 benötigt doch kein AES-NI
Tipp von ChriBo vor 12 StundenFirewall

Hallo, Wie sich einige hier erinnern werden hat Jim Thompson in diesem Aritkel beschrieben, daß ab Version 2.5.0 ein ...

Internet
Copyright-Reform: Upload-Filter
Information von Frank vor 1 TagInternet

Hallo, viele Menschen reden aktuell von Upload-Filtern. Sie reden darüber, als wären es eine Selbstverständlichkeit, das Upload-Filter den Seitenbetreibern ...

Google Android

Blokada: Tracking und Werbung unter Android unterbinden

Information von AnkhMorpork vor 1 TagGoogle Android1 Kommentar

In Ergänzung zu meinem vorherigen Beitrag: Blokada efficiently blocks ads, tracking and malware. It saves your data plan, makes ...

Google Android
Facebooks unsichtbare Datensammlung
Information von AnkhMorpork vor 1 TagGoogle Android2 Kommentare

Rund 30 Prozent aller Apps im Play-Store nehmen Kontakt zu Facebook auf, sobald man sie startet. So erfährt der ...

Heiß diskutierte Inhalte
Linux Userverwaltung
LogIn Versuche beschränken auf EINEN Versuch
gelöst Frage von GarroshLinux Userverwaltung21 Kommentare

Folgendes Problem Ich habe einen dezidierten Server beim Hoster gemietet, installiert ist Ubuntu 18.04.2 LTS‬ und als Webinterface Plesk. ...

DSL, VDSL
Neuer Glasfaser Anschluss - IPv4-Adressraum
Frage von norre2000DSL, VDSL12 Kommentare

Hallo Zusammen, ich werde meinen Glasfaser Anschluss wechseln und bin beim Ausfüllen des Antrags auf Fragen gestoßen bei denen ...

Internet
Aktuell HP-Support-Seite kaputt?
gelöst Frage von LochkartenstanzerInternet12 Kommentare

Hallo Kollegen, Weiß einer von euch, seit wann die HP-Support-Seite kaputt ist? ) Wollte heute morgen Druckertreiber runterladen und ...

Ubuntu
Exchange Alternative auf Ubuntu
Frage von TELLOUbuntu11 Kommentare

Hi NG, wir müssen für unsere Kleine Firma (5 User) das Email / Kalendersystem neu einrichten. Ich könnte jetzt ...