Hi, I have this code. At Rs.open

[simran1]

Hi,

I have this code. At Rs.open stmt i get the error saying
"Runtime - error
Invalid SQL statement; expected 'Insert', 'delete', 'pprocedure', 'select' or 'update' "

Dim RS As New ADODB.Recordset
Dim sql As String

RS.CursorLocation = adUseClient

sql = "SHAPE {SELECT * FROM RSStrnoCnt}  AS 
sql = sql & " DailySales APPEND "
sql = sql & " (( SHAPE {SELECT * FROM ReportSales}
sql = sql & " AS DSReport APPEND 
sql = sql & " ({SELECT * FROM ReportSubTotals} "
sql = sql & " AS RSSubTotals RELATE Date TO Date) 
sql = sql & " AS RSSubTotals) AS DSReport "
sql = sql & " RELATE Date TO  Date) AS DSReport "

RS.Open sql, DSN, adOpenDynamic, adLockOptimistic

Set DrDailyStoreSales.DataSource = RS

What does the error mean, and what do i need to do?
I appreciate time taken to help me.

 

[Elysium]

Well,

My first question to you is do you have the appropriate Connection object instantiated? It should look like the following:

Set oConn_Shape = New ADODB.Connection
oConn_Shape.ConnectionString = "Provider=MSDataShape.1;Persist Security Info=False;Data Source=YourSourceDB;Data Provider=MICROSOFT.JET.OLEDB.4.0"

If you aren't using this connection string, then you will not be able to "shape" your data. See if that doesn't fix your problem.

Elysium

 

[simran1]

Hi,
Yes i have my connection well instantiated.
I am able to open other types of queries, like select or any type of joins. I have problem only with this query.

 

[Elysium]

Did you use MSDataShape1 as the Provider?

 

[simran1]

hi,
thanx Elysium.
I had reset my connection string as you said. Thank you for the help.