oracle 01036 ´íÎó vb.net

sSql = ""
sSql = sSql & " UPDATE TB" & vbCrLf
sSql = sSql & " set  ID = ID + 1 " & vbCrLf
sSql = sSql & "  ,CANCEL_D = :AAAA " & vbCrLf

sOraCmd.Parameters.Clear()
sOraCmd.CommandText = sSql
Tools.SetParam(sOraCmd, "AAAA ", "20090918")

sOraCmd.ExecuteNonQuery()
sOraCmd.Parameters.Clear()


Public Shared Sub SetParam(ByRef sOraCmd As OracleCommand, ByRef sParamName As String, ByVal sSetValue As Object, _
                            Optional ByVal bNoParam As Boolean = True, _
                            Optional ByVal sSetDbType As Object = OracleDbType.Varchar2)
    If bNoParam Then
        sOraCmd.Parameters.Add(sParamName, sSetValue)
    End If
    If sSetValue.GetType.FullName = GetType(String).FullName Then
        sOraCmd.Parameters(sParamName).Value = sSetValue.ToString
    Else
        sOraCmd.Parameters(sParamName).Value = sSetValue
    End If
End Sub


˵Ã÷
Ö´ÐÐselect insert µÄʱºò£¬Ã»ÓдíÎó
update¾Í²»ÐÐ

ȨÏÞ×ã¹» <