ADODB.Command error '800a0bb9'
The application is using arguments that are of the wrong type, are out of acceptable range, or are in conflict with one another.
/development/gadams/irsctest/incident_dtl.asp, line 158
This is my stored procedure
This is the ASP (ADO) that populates it:
The database formats match up. I have just been sitting here staring at it too long. I imagine it is easy, but I can't figure it out.
Thanks,
gordon
The application is using arguments that are of the wrong type, are out of acceptable range, or are in conflict with one another.
/development/gadams/irsctest/incident_dtl.asp, line 158
This is my stored procedure
Code:
CREATE PROCEDURE mysp_update_status
@incident_num integer,
@usr_id char(18),
@sts_dtl_msg char(100),
@lst_upd_date smalldatetime,
@lst_upd_time char(5)
AS
DECLARE @incident_ocr_num integer
SELECT @incident_ocr_num = (MAX(incident_ocr_num) + 1) FROM [irsc_sts] WHERE incident_num=@incident_num
IF @incident_ocr_num > 0
BEGIN
INSERT INTO irsc_sts VALUES (@incident_num, @incident_ocr_num, @usr_id, @sts_dtl_msg, @lst_upd_date, @lst_upd_time)
RETURN 0
END
ELSE
RETURN 1
This is the ASP (ADO) that populates it:
Code:
IncidentNum = CInt(IncidentNum)
StatusMessage = "Incident viewed by " & UserId & "."
StatusDate = FormatDateTime(Date, 2)
StatusTime = FormatDateTime(Time, 4)
StatusTime = CStr(StatusTime)
Set cmd = Server.CreateObject("ADODB.Command")
With cmd
.ActiveConnection = objConn
.CommandText = "mysp_update_status"
.CommandType = adCmdStoredProc
.Parameters.Append .CreateParameter ("RETURN_VALUE", adInteger, adParamReturnValue)
.Parameters.Append .CreateParameter ("@incident_num", adInteger, IncidentNum)
.Parameters.Append .CreateParameter ("@usr_id", adChar, adParamInput, 18, UserId)
.Parameters.Append .CreateParameter ("@status_dtl_msg", adChar, adParamInput, 100, StatusMessage)
.Parameters.Append .CreateParameter ("@lst_upd_date", adDBTimeStamp, adParamInput, 8, StatusDate)
.Parameters.Append .CreateParameter ("@lst_upd_time", adChar, adParamInput, 5, StatusTime)
' the first two empty fields are recordset options the name and open parameters
.Execute , , adExecuteNoRecords
ReturnValue = .Parameters("RETURN_VALUE")
End With
The database formats match up. I have just been sitting here staring at it too long. I imagine it is easy, but I can't figure it out.
Thanks,
gordon