Common procedures for executing all stored procedure

[A1 Ronen]

Hi all
I got problem regarding executing all stored procedure through
common procedures where we have different parameter with different
names, type and data type
The Function is as follows

Where strProcString is procedure name and strParamString is all
parameters concatenated by @

Public Function CeateDataSetSQL (ByVal strProcString As String, ByVal
ByVal strParamString As String) As DataSet
Dim dsLIS As DataSet
Dim Varr As System.Array
Dim Varr2 As System.Array
Dim intNoOfParamete rs As Integer
Dim j As Integer
If Not IsConnectionOpe n Then
RaiseEvent ConnectionStatu s("Connecting to SQL Server")
End If
Try

Dim conDatabase As New SqlConnection(s trConnection)
Dim cmdCommand As New SqlCommand(strP rocString,
conDatabase)
cmdCommand.Comm andType = CommandType.Sto redProcedure

dsLIS = New DataSet
sdaLISAdapter = New SqlDataAdapter( cmdCommand)
Varr = Split(strParamS tring, "@")
intNoOfParamete rs = UBound(Varr)

For j = 1 To intNoOfParamete rs
cmdCommand.Para meters.Add(New SqlParameter).V alue =
CType(Varr.GetV alue(j), String)
Next j

Me.sdaLISAdapte r.Fill(dsLIS, "Result")
Catch ex As Exception

MsgBox(Err.Numb er & vbNewLine & Err.Description )

End Try

Return dsLIS

End Function

Where BOLD code give Error as parameter1 not present in given stored
procedure

[Ken Tucker [MVP]]

Hi,

When you add a parameter to a sqlcommand you need to provide the
parameter name and value.

cmdHit.Paramete rs.Add("@Id", strId) ' use addwithvalue for vs 2005

Ken
-------------------------
"A1 Ronen" <ro*******@yaho o.com> wrote in message
news:11******** **************@ g49g2000cwa.goo glegroups.com.. .

Hi all
I got problem regarding executing all stored procedure through
common procedures where we have different parameter with different
names, type and data type
The Function is as follows

Where strProcString is procedure name and strParamString is all
parameters concatenated by @

Public Function CeateDataSetSQL (ByVal strProcString As String, ByVal
ByVal strParamString As String) As DataSet
Dim dsLIS As DataSet
Dim Varr As System.Array
Dim Varr2 As System.Array
Dim intNoOfParamete rs As Integer
Dim j As Integer
If Not IsConnectionOpe n Then
RaiseEvent ConnectionStatu s("Connecting to SQL Server")
End If
Try

Dim conDatabase As New SqlConnection(s trConnection)
Dim cmdCommand As New SqlCommand(strP rocString,
conDatabase)
cmdCommand.Comm andType = CommandType.Sto redProcedure

dsLIS = New DataSet
sdaLISAdapter = New SqlDataAdapter( cmdCommand)
Varr = Split(strParamS tring, "@")
intNoOfParamete rs = UBound(Varr)

For j = 1 To intNoOfParamete rs
cmdCommand.Para meters.Add(New SqlParameter).V alue =
CType(Varr.GetV alue(j), String)
Next j

Me.sdaLISAdapte r.Fill(dsLIS, "Result")
Catch ex As Exception

MsgBox(Err.Numb er & vbNewLine & Err.Description )

End Try

Return dsLIS

End Function

Where BOLD code give Error as parameter1 not present in given stored
procedure