C# と VB.NET の質問掲示板

いつもお世話になっております。
環境：	Windows2000Pro
	VB.NET2002
	Oracle 10g
にて、既存のシステムの修正開発を行っております。

以下のソースにしたところ、例外が発生して悩んでおります。

'System.Data.OleDb.OleDbException' のハンドルされていない例外がsystem.data.dllで発生しました

とダイアログが表示されます。
Msgboxを表示させ、例外のメッセージを表示させたところ
'ORA-01036: illegal variable name/number'
とありました。

追加したパラメータをコメントアウトすれば、処理は通るため、
パラメータ指定に問題があるのかと考えていました。
実際に見直したところ、変数の間違いはないように思えます。

なにかヒントをご提示いただけたら幸いです。

以下該当する処理です。

処理部
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Me.Cursor = Cursors.WaitCursor
        Dim params As New ArrayList()
        Dim souhin_kb As String
        Dim branch As String

	souhin_kb と branch の取得処理
	この値は狙ったとおりの値を取得しています。

        params.Add(New OleDbParameter("PSOUHIN_KB", souhin_kb))
        params.Add(New OleDbParameter("PBRANCHCODE", branch))             <=このパラメータを新たに追加したところエラー
        params.Add(New OleDbParameter("PFROMDATE", fromDate.Value))
        params.Add(New OleDbParameter("PTODATE", toDate.Value))
        Dim ds As DataSet = DBOraUtil.getDataSet("P_JYUCYU_ME.findUnensure", "curunensure", params, "unfinished")
        Dim rpt As New unfinishedReport()
        rpt.SetDataSource(ds)
        viewer.ReportSource = rpt
        Me.Cursor = Cursors.Default
    End Sub

        Public Shared Function getDataSet(ByVal procName As String, ByVal cursorName As String, ByVal parameters As ArrayList, ByVal name As String) As DataSet
            Dim cmd As OleDbCommand = makeCommand(procName, cursorName, parameters)
            Dim ds As New DataSet()
            Dim da As New OleDbDataAdapter()
            da.SelectCommand = cmd
            Try
                da.Fill(ds, name)		<=ここでエラー
            Catch ex As Exception
                MsgBox("error:" & ex.Message)
            End Try
            cmd.Parameters.Clear()
            Return ds
        End Function

        Private Shared Function makeCommand(ByVal procName As String, ByVal cursorName As String, ByVal parameters As ArrayList, Optional ByVal index As Integer = 0) As OleDbCommand
            Dim cmd As New OleDbCommand()
            With cmd
                Dim sb As New StringBuilder()
                sb.Append("{call " & procName & "({resultset 0, " & cursorName & "}")
                If Not (parameters Is Nothing) Then
                    Dim i As Integer
                    Dim l As Integer = parameters.Count - 1
                    For i = 0 To l
                        sb.Append(",?")
                        .Parameters.Add(parameters.Item(i))
                    Next
                End If
                sb.Append(")}")
                .CommandText = sb.ToString
                .Connection = DBOraUtil.getConnection(index)
            End With
            Return cmd
        End Function


OracleのSQL文
	プロシジャーの宣言部
	procedure findUnensure(curunensure in out curunensure, psouhin_kb in varchar2, pbranchCode in varchar2, pfromDate in date, ptoDate in date);

	実行SQL部
	procedure findUnensure(curunensure in out curunensure, psouhin_kb in varchar2, pbranchCode in varchar2,	pfromDate in date, ptoDate in date) as
	begin
		open curunensure for
		SELECT		mi.branchCode,
					mi.userid,
					mi.name,
					to_char(mi.hiduke, 'YYYY/MM/DD') hiduke,
					to_char(mi.jikan, 'HH24:MI:SS') jikan,
					me.jyucyu_no_lin,
					me.isbn,
					me.title,
					me.pub,
					me.jyucyu_suu,
					me.jyucyu_del_suu,
					me.b_nouhin_suu,
					me.jyucyu_zan,
					me.hikiate_suu,
					b.branchName
		FROM		jyucyu_me me
		LEFT JOIN	jyucyu_mi mi
		ON			mi.jyucyu_no = me.jyucyu_no
		LEFT JOIN	webUser u
		ON			u.userID = mi.userID
		LEFT JOIN	branch b
		ON			b.branchCode = mi.branchCode
		WHERE		mi.souhin_kb LIKE psouhin_kb
		AND			mi.branchCode LIKE pbranchCode  	<=追加した部分
		AND			me.k_haccyu_suu < (me.jyucyu_zan - me.hikiate_suu)
		AND			to_date(to_char(mi.hiduke, 'YYYY/MM/DD') || ' ' || to_char(mi.jikan, 'HH24:mi:ss'), 'YYYY/MM/DD hh24:mi:ss') between pfromDate and ptoDate
		AND			me.vendor = 'j'
		ORDER BY	mi.branchCode,
					me.jyucyu_no_lin;
	EXCEPTION
		WHEN OTHERS THEN
			p_errorLog.entry('p_jyucyu_me.findUnensure', sqlErrm);
			raise;
	end;

見づらいかとは思いますが、よろしくお願いいたします。

■No87723 (Opp さん) に返信
> ■No87722 (774RR さん) に返信
> 
> 詳しくありがとうございます
> 
> ab,bc,cd,de → cd,de
> xxx,yyy,zzz → zzz
> 
> のように　2以降だけ取得したいので
> ・その行は抽出しない→入力１０行に対して出力３行とかを容認する　です
> 無い場合は、何も無いという風にしたいので（後々入ってくるので・・）
> 

        Dim sample = {"a,b,c",
                      "a,b,c,c",
                      "a",
                      "x,y,c",
                      "z,b,d"}

        Dim result = (From line In sample
                      Select values = line.Split(","c)
                      Where values.Length > 2
                      Select values.Skip(2).ToArray).ToArray

こんな感じの処理でしょうか？