G
Gricey
Hi,
Need help refreshing this query, but I want to to refer to a variable
date, rather than the fixed date ('2004-05-19 00:00:00').
Ideally, If I could get it to reference a cell, say cell "a1", and I
can have users put the date in there.
Regards
David
Sheets("BTCC Query").Select
Range("A1").Select
With Selection.QueryTable
..Connection = Array(Array( _
"ODBC;DSN=CCEXREPORTS;Description=SEA MSQL
d:/sea/client;UID=*********;PWD=**********;APP=Microsoft®
Query;WSID=CC-HPC-01;Network=DBMS" _
), Array("SOCN"))
..CommandText = Array( _
"SELECT cc_Handled_Calls.RDATE, cc_Handled_Calls.ARRIVALTIME,
cc_Handled_Calls.CALL_ID, cc_Handled_Calls.MEDIATYPE,
cc_Handled_Calls.QUEUE_NAME, cc_Handled_Calls.X_COL1,
cc_Handled_Calls.DURATION, cc_H" _
, _
"andled_Calls.STATE, cc_Handled_Calls.AGENT,
cc_Handled_Calls.DATE, cc_Handled_Calls.FMINPRT,
cc_Handled_Calls.MINPRT, cc_Handled_Calls.HRPRT,
cc_Handled_Calls.HRPRTX, cc_Handled_Calls.MINPRTX, cc_Hand" _
, _
"led_Calls.FMINPRTX, cc_Handled_Calls.WEEK_NO,
cc_Handled_Calls.MONTH_NO, cc_Handled_Calls.QUARTER_NO,
cc_Handled_Calls.YEAR_NO" & Chr(13) & "" & Chr(10) & "FROM
CC_HReport.dbo.cc_Handled_Calls cc_Handled_Calls" & Chr(13) & "" &
Chr(10) & "WHERE (cc_Handled" _
, "_Calls.RDATE={ts '2004-05-19 00:00:00'})" & Chr(13) & "" &
Chr(10) & "ORDER BY cc_Handled_Calls.RDATE")
..Refresh BackgroundQuery:=False
End With
ActiveWindow.LargeScroll ToRight:=0
Sheets("Front Page").Select
Range("A1").Select
End Sub
Need help refreshing this query, but I want to to refer to a variable
date, rather than the fixed date ('2004-05-19 00:00:00').
Ideally, If I could get it to reference a cell, say cell "a1", and I
can have users put the date in there.
Regards
David
Sheets("BTCC Query").Select
Range("A1").Select
With Selection.QueryTable
..Connection = Array(Array( _
"ODBC;DSN=CCEXREPORTS;Description=SEA MSQL
d:/sea/client;UID=*********;PWD=**********;APP=Microsoft®
Query;WSID=CC-HPC-01;Network=DBMS" _
), Array("SOCN"))
..CommandText = Array( _
"SELECT cc_Handled_Calls.RDATE, cc_Handled_Calls.ARRIVALTIME,
cc_Handled_Calls.CALL_ID, cc_Handled_Calls.MEDIATYPE,
cc_Handled_Calls.QUEUE_NAME, cc_Handled_Calls.X_COL1,
cc_Handled_Calls.DURATION, cc_H" _
, _
"andled_Calls.STATE, cc_Handled_Calls.AGENT,
cc_Handled_Calls.DATE, cc_Handled_Calls.FMINPRT,
cc_Handled_Calls.MINPRT, cc_Handled_Calls.HRPRT,
cc_Handled_Calls.HRPRTX, cc_Handled_Calls.MINPRTX, cc_Hand" _
, _
"led_Calls.FMINPRTX, cc_Handled_Calls.WEEK_NO,
cc_Handled_Calls.MONTH_NO, cc_Handled_Calls.QUARTER_NO,
cc_Handled_Calls.YEAR_NO" & Chr(13) & "" & Chr(10) & "FROM
CC_HReport.dbo.cc_Handled_Calls cc_Handled_Calls" & Chr(13) & "" &
Chr(10) & "WHERE (cc_Handled" _
, "_Calls.RDATE={ts '2004-05-19 00:00:00'})" & Chr(13) & "" &
Chr(10) & "ORDER BY cc_Handled_Calls.RDATE")
..Refresh BackgroundQuery:=False
End With
ActiveWindow.LargeScroll ToRight:=0
Sheets("Front Page").Select
Range("A1").Select
End Sub