excel dates in sql procedures

[ragup001]

I am still getting sql syntax error.

Here is my procedure:

Sub ABC()
Dim qt As QueryTable
Dim a As String
Dim b As String

Sheets("abc").Select
a = Range("a1").Text
b = Range("a2").Text

sqlstring = "exec emputilization " & a & "," & b

"ODBC;DSN=empdata;UID=;PWD=;Database=empdata"

Sheets("Temp").Select
With ActiveSheet.QueryTables.Add( _
Connection:=connstring, _
Destination:=Range("A1"), Sql:=sqlstring)

..Refresh

End With


End Sub


Sheet "abc" : A1 is the startdate 1/1/2007 and A2 is the enddate 1/31/2007


Any help is appreciated.

Thanks,

ragup

 

[Bob Phillips]

Just a suggsetion. Try

sqlstring = "exec emputilization " & _
Format(Range("A1").Value, "\#dd mmmm yyyy\#") & "," & _
Format(Range("B1").Value, "\#dd mmmm yyyy\#")

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Tim Zych]

sqlstring = "exec emputilization '" & a & "','" & b & "'"