Форум программистов [Powered by Invision Power Board]

Код

         Public Function ExecuteProcedure(ByVal ProcedureName As String, ByVal ParamArray Parameters() As Object) As DataTable
        Dim DT As New DataTable
        Dim sqlDB1 As New SqlClient.SqlDataAdapter
        Dim sqlDBcon1 As New SqlClient.SqlConnection
        Dim sqlDBcom1 As New SqlClient.SqlCommand

        sqlDBcon1.ConnectionString = ...
        sqlDBcom1.CommandType = CommandType.StoredProcedure
        sqlDBcom1.Connection = sqlDBcon1
        sqlDBcom1.CommandText = ProcedureName

        If Parameters.Length = 0 Then GoTo 10
        Select Case LCase(ProcedureName)
            Case "totalretailsales"
                If Parameters.Length < 1 Then Return Nothing
                sqlDBcom1.Parameters.AddWithValue("@begin_date", Parameters(0))
                If Parameters.Length >= 2 Then sqlDBcom1.Parameters.AddWithValue("@end_date", Parameters(1)) Else sqlDBcom1.Parameters.AddWithValue("@end_date", DateTime.Today)

        End Select
    
10:

        sqlDBcon1.Open()
        sqlDB1.SelectCommand = sqlDBcom1

        sqlDB1.Fill(DT)

        sqlDBcon1.Close()

        Return DT
    End Function