Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[jnhill]

I am running into this error code and it specifically says: "No value given for one or more required parameters. " ConStr is a valid connection, as I am able to get other data using it (not closing the connection after instanciating it).

Set Db_commandtext = CreateObject("ADODB.Command")
Set Db_commandtext.ActiveConnection = ConStr

a = 0
b = 0
c = 0
d = 0
Sqltext = "call ppu10.getEMTS(?,?,?,?,?,?,?,?,?,?,?,? INDICATOR :a, ? INDICATOR :b, ? INDICATOR :c, ? INDICATOR :d)"

Db_commandtext.CommandText = Sqltext
Db_commandtext.CommandType = adCmdStoredProc

Response.Write thisLocn & "<br>"
Response.Write thisFac & "<br>"
Response.Write thisTrackStat & "<br>"
Response.Write thisCatlg & "<br>"
Response.Write thisWo & "<br>"
Response.Write thisPrNo & "<br>"
Response.Write thisPrLine & "<br>"
Response.Write thisMr & "<br>"
Response.Write thisEPIKey & "<br>"
Response.Write testTransfer & "<br>"
Response.Write thisSirReqInd & "<br>"
Response.Write a & "<br>"
Response.Write b & "<br>"
Response.Write c & "<br>"
Response.Write d & "<br>"

Db_commandtext.Parameters.Append Db_commandtext.CreateParameter("parm1", adVarChar, adParamInput, 3, thisLocn)

Db_commandtext.Parameters.Append Db_commandtext.CreateParameter("parm2", adVarChar, adParamInput, 3, thisFac)

Db_commandtext.Parameters.Append Db_commandtext.CreateParameter("parm3", adVarChar, adParamInput, 10, thisTrackStat)

Db_commandtext.Parameters.Append Db_commandtext.CreateParameter("parm4", adVarChar, adParamInput, 10, thisCatlg)

Db_commandtext.Parameters.Append Db_commandtext.CreateParameter("parm5", adVarChar, adParamInput, 20, thisWo)

Db_commandtext.Parameters.Append Db_commandtext.CreateParameter("parm6", adVarChar, adParamInput, 8, thisPrNo)

Db_commandtext.Parameters.Append Db_commandtext.CreateParameter("parm7", adVarChar, adParamInput, 4, thisPrLine)

Db_commandtext.Parameters.Append Db_commandtext.CreateParameter("parm8", adVarChar, adParamInput, 8, thisMr)

Db_commandtext.Parameters.Append Db_commandtext.CreateParameter("parm9", adVarChar, adParamInput, 20, thisEPIKey)

Db_commandtext.Parameters.Append Db_commandtext.CreateParameter("parm10", adVarChar, adParamInput, 10, thisTransfer)

Db_commandtext.Parameters.Append Db_commandtext.CreateParameter("parm11", adVarChar, adParamInput, 3, thisSirReqInd)

Db_commandtext.Parameters.Append Db_commandtext.CreateParameter("parm12", adInteger, adParamOutput, a)

Db_commandtext.Parameters.Append Db_commandtext.CreateParameter("parm13", adVarChar, adParamOutput, 5, b)

Db_commandtext.Parameters.Append Db_commandtext.CreateParameter("parm14", adVarChar, adParamOutput, 250, c)

Db_commandtext.Parameters.Append Db_commandtext.CreateParameter("parm15", adInteger, adParamOutput, d)



Set qryNew = Server.CreateObject("ADODB.Recordset")
qryNew.Open Db_commandtext.Execute

Could anyone tell me what I'm doing wrong here? From my debug code, I am placing values in each of the variables assigned to the parameters.


The Database is DB2, thus the indicators.