Very Computer

What's going wrong here:

On a client PC running Access97, in a vba-module, I get a run time error
3146 (ODBC-call failed) when trying to execute a stored procedure on a
SQL-server 7.
The connection string works OK to retrieve data from tables/queries.

The stored procedure itself works fine when executed on the server.

Sub DelCust()
    Dim qdf As QueryDef

    Set qdf = CurrentDb.CreateQueryDef("")
    qdf.Connect = "ODBC;DSN=NTDB1;UID=sa;PWD=;DATABASE=DB1"
    qdf.ReturnsRecords = False
    qdf.SQL = "{call DeleteCustomer(1200)}"
    qdf.Execute dbSQLPassThrough    ' ERROR:  ODBC-call failed
    qdf.Close

End Sub

Any suggestions?

Arnold Wilson.

the culprit looks like it's the

Quote:>    qdf.SQL = "{call DeleteCustomer(1200)}"

line if DeleteCustomer is the stored procedure name and 1200 is its
parameter. an access query isn't the same thing as an RPC call. try
something like

qdf.sql = "EXEC DeleteCustomer 1200"

Quote:>What's going wrong here:

>On a client PC running Access97, in a vba-module, I get a run time error
>3146 (ODBC-call failed) when trying to execute a stored procedure on a
>SQL-server 7.
>The connection string works OK to retrieve data from tables/queries.

>The stored procedure itself works fine when executed on the server.

>Sub DelCust()
>    Dim qdf As QueryDef

>    Set qdf = CurrentDb.CreateQueryDef("")
>    qdf.Connect = "ODBC;DSN=NTDB1;UID=sa;PWD=;DATABASE=DB1"
>    qdf.ReturnsRecords = False
>    qdf.SQL = "{call DeleteCustomer(1200)}"
>    qdf.Execute dbSQLPassThrough    ' ERROR:  ODBC-call failed
>    qdf.Close

>End Sub

>Any suggestions?

>Arnold Wilson.