Query Abfrage per Makro aktualisieren
05.02.2013 15:31:14
Wolfgang
ich habe eine Query Abfrage auf eine ODBC Datenbank.
Diese will ich bei Ausführen des Makros automatisch aktualisieren.
Ich habe den Step für das Makro aufgezeichnet, Code s.u.
Ich will nun den festen Datumseintrag 04.Februar durch einen variablen ersetzen (nur das Datum des aktuellen Tages, die Uhrzeiten Anfang recordtimestamp 08 Uhr bzw Ende recordtimestamp 19 Uhr sind fix).
Wie baue ich diese Variablen hier ein?
Danke für Hilfe !
Gruß
Wolfgang
Sub UpdateQuery_ACC3()
Sheets("Abfrage von DWH-neu_NCO").Select
With Selection.QueryTable
.Connection = _
"ODBC;DSN=DWH-neu2;UID=CrystelReportTC;PWD=xxx"";APP=Microsoft Office XP;WSID=WS2107870; _
_
DATABASE=HPPCR3_TC"
.CommandText = Array( _
"SELECT calltypefifteenmin.recordtimestamp, calltypefifteenmin.calltypekey, _
calltypefifteenmin.numreceived" & Chr(13) & "" & Chr(10) & "FROM HPPCR3_TC.dbo. _
calltypefifteenmin calltypefifteenmin" & Chr(13) & "" & Chr(10) & "WHERE (calltypefifteenmin.recordtim" _
, _
"estamp>={ts '2013-02-04 08:00:00'} And calltypefifteenmin.recordtimestamp