Error 641 LS:DO (MS SQL-ODBC-LN 7.0.3)

HCL Domino Domino Forum
1

Hi All.

I’m trying to add few values in MS SQL table

and get folowing error:

641 LS:DO

LS:DO - All parameters in query must be set before executing. Parameter names are inside ? marks

That is a code:

Sub Initialize

Dim con As New ODBCConnection

Dim qry As New ODBCQuery

Dim result As New ODBCResultSet

con.ConnectTo(“Project”)

Set qry.Connection = con

qry.SQL = “INSERT INTO Lotus_Notes_Requests (request_id,request_subj,request_val_chain,request_status,request_responsible,request_start_date)”

qry.SQL =  qry.SQL & " VALUES ( ?param1?, ?param2?, ?param3?, ?param4?,?param5?, ?param6?)"



Set result.Query = qry



asa = "'GRINVICH'"

asa1 = "'qwqw'"

asa2 = "'sdfsdf'"



Call result.SetParameter(1, Cint(212))

Call result.SetParameter(2, Cstr(asa))

Call result.SetParameter(3, Cstr(asa2))

Call result.SetParameter(4, Cint(2323))

Call result.SetParameter(5, Cstr(asa1))

Call result.SetParameter(6, Cint(1221))





Call result.Execute()



            result.Close(DB_CLOSE)

con.Disconnect

Exit Sub

The code where the error is occuring is

Call result.Execute()

What is a problem? please suggest…