DB2 Store procedure error in VB.NET

[sudevsu]

Ok Thank you. I did that now, it is perfectly ok there. But from code it goes into catch and throws same error no matter what. :(

Your help is much appreciated. Thanks Happy Coding!

[sudevsu]

I tried the one which you said and Now this is throwing

SQL0440 Routine QZ9AFC1C3BBACE2001 in not found with specified parameters.

Your help is much appreciated. Thanks Happy Coding!

[GuyThiebaut]

sudevsu wrote:

I tried the one which you said and Now this is throwing

The one with the "?" question marks for parameters?

“That which can be asserted without evidence, can be dismissed without evidence.”

― Christopher Hitchens

[sudevsu]

with ? I get this error

SQL0104 Token PRMCICID was not valid. Valid tokens: ) ,.

Your help is much appreciated. Thanks Happy Coding!

[GuyThiebaut]

Read this[^] article - I think it should help.

“That which can be asserted without evidence, can be dismissed without evidence.”

― Christopher Hitchens

[sudevsu]

Thanks Guy. I wish this should resolve ASAP. It is taking my whole lot of time. :doh:

Your help is much appreciated. Thanks Happy Coding!

[Jorgen Andersson]

Not in the procedure just remove them like this:

INSERT INTO DEVSUSH . CLCUSINF ( CICID , CIFN , CILN , CIADDR , CICITY , CISTATE , CIZIP , CIPHONE , CIEMAIL , CICLDATE )
VALUES ( PRMCICID , PRMCIFN , PRMCILN , PRMCIADDR , PRMCICITY , PRMCISTATE , PRMCIZIP , PRMCIPHONE , PRMCIEMAIL , PRMCICLDATE ) ;

But your call from vb.net to the database is a prepared statement so that should be changed to:

    Try
        Dim cm As New iDB2Command("CALL DEVSUSH.SP\_CUSTINFO(:PrmCICID,:PrmCIFN,:PrmCILN,:PrmCIADDR,:PrmCICITY,:PrmCISTATE,:PrmCIZIP,:PrmCIPHONE,:PrmCIEMAIL,:PrmCICLDATE)", Cn)
        strCIPHONE = strCIPHONE.Replace("-", "")
        cm.Parameters.Add("PRMCICID", iDB2DbType.iDB2Numeric).Value = Convert.ToInt32(strCICID)
        cm.Parameters.Add("PrmCIFN", iDB2DbType.iDB2VarChar).Value = strCIFN
        cm.Parameters.Add("PrmCILN", iDB2DbType.iDB2VarChar).Value = strCILN
        cm.Parameters.Add("PrmCIADDR", iDB2DbType.iDB2VarChar).Value = strCIADDR
        cm.Parameters.Add("PrmCICITY", iDB2DbType.iDB2VarChar).Value = strCICITY
        cm.Parameters.Add("PrmCISTATE", iDB2DbType.iDB2VarChar).Value = strCISTATE
        cm.Parameters.Add("PrmCIZIP", iDB2DbType.iDB2Numeric).Value = Convert.ToInt32(strCIZIP)
        cm.Parameters.Add("PrmCIPHONE", iDB2DbType.iDB2Numeric).Value = Convert.ToInt64(strCIPHONE)
        cm.Parameters.Add("PrmCIEMAIL", iDB2DbType.iDB2VarChar).Value = strCIEMAIL
        cm.Parameters.Add("PrmCICLDATE", iDB2DbType.iDB2Date).Value = strCICLDATE
        cm.ExecuteNonQuery()
    Catch ex As Exception
        LogError.LogErrorIntoTextFile(ex, "InsertCust")
    End Try

Should note that the error message you're getting is not from DB2 but from VB.Net, stating that there is a mismatch in the parameters. Or rather that it can't find an overload of the procedure having the right parameters. The reason it works is that it tries to apply the parameters in the order they've been added like as if you had used ? as a marker. Like this:

Dim cm As New iDB2Command("CALL DEVSUSH.SP_CUSTINFO(?,?,?,?,?,?,?,?,?,?)", Cn)

Wrong is evil and must be defeated. - Jeff Ello

[Mycroft Holmes]

A thought, have you checked that there are no triggers spit attached to the table and the error is generated from the trigger instead of your procedure (this is the reason I loathe triggers spit)?

Never underestimate the power of human stupidity RAH

[GuyThiebaut]

Remember, when you fix this post back under your original post with how you fixed it ;) (this can be very useful to other people who come to this forum looking for a solution to the same issue you had)

“That which can be asserted without evidence, can be dismissed without evidence.”

― Christopher Hitchens

[sudevsu]

Sure. But I didn't fix this yet.

Your help is much appreciated. Thanks Happy Coding!