Question ORA-06550 error at irregular intervals

baghzaad

New member
Joined
Oct 26, 2009
Messages
2
Programming Experience
3-5
Hi,

I am having a problem but it occurs at irregular intervals. I have a code which refreshes data every 5 secs which it does correctly. But after every few mins(10-15 approx) I get the follwoing error.

ORA-06550: line 1, column 7:
PLS-00306: wrong number or types of arguments in call to 'S_PR_MSG_STAT'
ORA-06550: line 1, column 7:
PL/SQL: Statement ignored

Below is my calling code.....

Public Shared Function fnRunSPReturnDataTable(ByVal strStorProcName As String, ByVal arlInpParmValu As ArrayList _
, ByRef arlOutParmValu As ArrayList, ByVal intNoOfParam As Integer) As DataTable
Try
If oConnection Is Nothing Or sDataSource <> oGlobal.gsDataSource Or sDBUserId <> oGlobal.gsDBUserId _
Or sDBPassword <> oGlobal.gsDBPassword Then
If subConnectDB() = "Failure" Then
Return Nothing
End If
End If
Dim outParm As OleDbParameter
Dim inptParm As OleDbParameter
oCommand = New OleDbCommand()
arlOutParmValu.Clear()
oCommand.Parameters.Clear()
oCommand.Connection = oConnection
oCommand.CommandType = CommandType.StoredProcedure
oCommand.CommandText = strStorProcName

For ctInpParam As Integer = 0 To arlInpParmValu.Count - 1
inptParm = oCommand.Parameters.Add("inptparm" & ctInpParam, OleDbType.Variant)
inptParm.Value = arlInpParmValu(ctInpParam)
Next

For ctOutParam As Integer = 0 To intNoOfParam - 1
outParm = oCommand.Parameters.Add("opparm" & ctOutParam, OleDbType.Variant)
outParm.Direction = ParameterDirection.Output
Next


oDataAdapter = New OleDbDataAdapter(oCommand)
oDataSet = New DataSet
oDataAdapter.Fill(oDataSet)

For ctParam As Integer = 0 To oCommand.Parameters.Count - 1
If CStr(oCommand.Parameters.Item(ctParam).ParameterName).Substring(0, 6) = "opparm" Then
arlOutParmValu.Add(oCommand.Parameters.Item(ctParam).Value)
End If
Next

If oConnection.State = ConnectionState.Open Then subDisConnectDB()
Return oDataSet.Tables(0)

Catch ex As Exception
subWriteErrorToDB(gsAppName, "clsDataAccess", "fnRunSPReturnDataTable", ex.Message)
Return Nothing
End Try
End Function
 
Top Bottom