Trouble passing parameters to array of sqlparameters

[RH+]

I have this code

Public Function ExecuteDataReaderSP( _
ByVal storedProcedureName As String, _
ByVal ParamArray arrParam() As SqlParameter) As SqlDataReader

Dim reader As SqlDataReader

' Open the connection
If m_cn.State <> ConnectionState.Open Then m_cn.Open()

' Define the command
Dim cmd As New SqlCommand
cmd.Connection = m_cn
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = storedProcedureName

' Handle the parameters
If arrParam IsNot Nothing Then
For Each param As SqlParameter In arrParam
cmd.Parameters.Add(param)
Next
End If

' Execute the reader
reader = cmd.ExecuteReader(CommandBehavior.CloseConnection)

Return reader
End Function


how I pass parameters
im using ExecuteDataReaderSP("Name_Of_SP",parameter1,parameter2)

I try various ways to pass the parameters, every time it return a different error.
How is the correct way to pass those parameters?

thanks!

[dglienna]

Sorry, but I have this in VB6, but it should help:

Option Explicit

Private Sub Form_Load()
ParamAdd
End Sub

Sub ParamAdd()
Dim cmdSQLInsert As ADODB.Command
Set cmdSQLInsert = New ADODB.Command

'Create the query
cmdSQLInsert.CommandText = "Insert Into Table1(ID, NAME, AGE) Values(?,?,?)"
cmdSQLInsert.CommandType = adCmdText
cmdSQLInsert.Prepared = True

'Create the parameters
'in this case we will create three parameters
'-----Param 1 (for Field ID)-------------
Dim gParam As ADODB.Parameter
Set gParam = New ADODB.Parameter
With gParam
.Name = "ID"
.Direction = adParamInput
.Type = adChar
.Size = 10
.Value = "xxxxxxxxxx"
End With
cmdSQLInsert.Parameters.Append gParam

'-----Param 2 (for Field Name)-------------
Set gParam = Nothing
Set gParam = New ADODB.Parameter
With gParam
.Name = "NAME"
.Direction = adParamInput
.Type = adVarChar
.Size = 50
.Value = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
End With
cmdSQLInsert.Parameters.Append gParam

'-----Param 3 (for Field AGE)-------------
Set gParam = Nothing
Set gParam = New ADODB.Parameter
With gParam
.Name = "AGE"
.Direction = adParamInput
.Type = adChar
.Size = 2
.Value = "xx"
End With
cmdSQLInsert.Parameters.Append gParam

'Set the connection property of the command object
Set cmdSQLInsert.ActiveConnection = mySQLConnection
'pass the values that need to be inserted to specific parameters that we created above
cmdSQLInsert("ID") = txtID.Text
cmdSQLInsert("NAME") = txtID.Text
cmdSQLInsert("AGE") = txtAge.Text

'Execute the command
cmdSQLInsert.Execute
End Sub

[RH+]

Thanks dglienna, I was trying to pass the parameters inline...now it works!