I get an gernal ODBC
error when running the below code. It looks like the sqlt is too long,
but how can I get it to work as I need the query to be dynamic based on
date.



sqlt = "SELECT SCHED_TASK_EXEC.TASK_ID, SCHED_TASK_EXEC.TASK_TYPE,
SCHED_TASK_EXEC.EXEC_TIME, SCHED_TASK_EXEC.END_TIME,
SCHED_TASK_EXEC.EXEC_STATUS_B, SCHED_TASK.DESCRIPTION FROM
CPSLIVE.SCHED_TASK SCHED_TASK, CPSLIVE.SCHED_TASK_EXEC SCHED_TASK_EXEC
WHERE SCHED_TASK.TASK_ID = SCHED_TASK_EXEC.TASK_ID and
sched_task_exec.exec_time >=to_timestamp('" & yday & "') AND
sched_task_exec.exec_time <=to_timestamp('" & tday & "')
order by 1"



MsgBox (sqlt)







With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _

"ODBC;DRIVER={Oracle in
OraClient10g_home2};SERVER=CPSLIVEB;UID=cpslive;;DBQ=CPSLIVEB;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10"
_

), Array( _

";FDL=10;LOB=T;RST=T;BTD=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=Me;CSR=F;FWC=F;FBS=60000;TLO=O;" _

)), Destination:=Range("A1"), Sql:=sqlt)

.Name = "Query from CPSLIVEB"

.FieldNames = True

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.RefreshOnFileOpen = False

.BackgroundQuery = True

.RefreshStyle = xlInsertDeleteCells

.SavePassword = False

.SaveData = True

.AdjustColumnWidth = True

.RefreshPeriod = 0

.PreserveColumnInfo = True

.Refresh BackgroundQuery:=False

End With