D
DJM
This function:
Public Function RunSP(ByVal SP As String, ByVal ReturnType As ReturnType,
Optional ByVal Params As Hashtable = Nothing) As ObjectDim oCmd As
SqlClient.SqlCommand = WarehouseDBCommand(SP)
Dim SqlParameter As SqlClient.SqlParameter
oCmd.CommandType = CommandType.StoredProcedure
SqlClient.SqlCommandBuilder.DeriveParameters(oCmd)
If Not Params Is Nothing Then
For Each SqlParameter In oCmd.Parameters
If Params.ContainsKey(SqlParameter.ParameterName) Then
If IsDBNull(Params.Item(SqlParameter.ParameterName)) Then
SqlParameter.Value = DBNull.Value
Else
SqlParameter.Value = Params.Item(SqlParameter.ParameterName).ToString
End If
End If
Next
End If
RunSP = RunAndReturn(oCmd, ReturnType)
oCmd.Connection.Close()
oCmd.Dispose() : oCmd = Nothing
Public Function RunSP(ByVal SP As String, ByVal ReturnType As ReturnType,
Optional ByVal Params As Hashtable = Nothing) As ObjectDim oCmd As
SqlClient.SqlCommand = WarehouseDBCommand(SP)
Dim SqlParameter As SqlClient.SqlParameter
oCmd.CommandType = CommandType.StoredProcedure
SqlClient.SqlCommandBuilder.DeriveParameters(oCmd)
If Not Params Is Nothing Then
For Each SqlParameter In oCmd.Parameters
If Params.ContainsKey(SqlParameter.ParameterName) Then
If IsDBNull(Params.Item(SqlParameter.ParameterName)) Then
SqlParameter.Value = DBNull.Value
Else
SqlParameter.Value = Params.Item(SqlParameter.ParameterName).ToString
End If
End If
Next
End If
RunSP = RunAndReturn(oCmd, ReturnType)
oCmd.Connection.Close()
oCmd.Dispose() : oCmd = Nothing