"Run-time error '3708': Parameter object is improperly defined. Incons

[yehong]

I am getting this error and don't know what is causing it.
"Run-time error '3708': Parameter object is improperly defined. Inconsistent or incomplete information was provided".

Here is the code:

Private Sub Command1_Click()

Dim Con As ADODB.Connection
Dim cmdId As ADODB.Command
Dim prmId As ADODB.Parameter
Dim rsMgs As ADODB.Recordset
Dim strID As String

Set Con = New ADODB.Connection

Con.ConnectionString = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=a12;Password=a12;Data Source=m3"
Con.Open

Set cmdMgrId = New ADODB.Command
cmdId.CommandText = "proc_j"
cmdId.CommandType = adCmdStoredProc


mgrID = Trim(InputBox("Enter ID:"))
Set prmId = cmdId.CreateParameter("ID", adVarChar, adParamInput)
'ID is the IN parameter in the stored proc proc_j


cmdId.Parameters.Append prmId
prmId.Value = strID

Set cmdId.ActiveConnection = Con
cmdId.execute
End Sub

 

[NetGiant]

Try specifying the length of the input parameter in the optional size parameter to CreateParameter. Use something like this...

Set prmId = cmdId.CreateParameter("ID", adVarChar, adParamInput, Len(mgrID), mgrID)



Net_Giant

What fun is a technology if you can't crash the OS?

 

[yehong]

Tried and still same error. Error is popping up when code reaches at line
cmdId.Parameters.Append prmId

 

[NetGiant]

Try setting the ActiveConnection property before appending the parameter.


Net_Giant

What fun is a technology if you can't crash the OS?

 

[NetGiant]

Can you post the procedure declaration (not the code, just the name and parameter list stuff).


Net_Giant

What fun is a technology if you can't crash the OS?