Olá pessoal,
Estou usando uma função para listar determinados registros de uma tabela através de uma stored procedure.
Criei a sp da seguinte maneira:
CREATE PROCEDURE spListarStatusChamados
AS
SELECT * FROM TStatusChamados
ORDER BY IdStatusChamado
GO
Está funcionado corretamente, trazendo todos os registros da tabela. A função pode receber parämetros opcionais, os quais estariam na cláusula WHERE. A dúvida é: como devo montar a sp para que ela funcione com ou sem a passagem de parâmetros?
Obrigada.
Public Function Listar(Optional ByVal hs As Hashtable = Nothing) As DataSet
Dim obj As New ClassCamadaDados()
Dim dt As DataTable
dt = obj.obterDadosProcedure(getDataTable, getProcListar, hs)
obj =
Nothing
Return (dt.DataSet)
End Function
Public Function obterDadosProcedure(ByVal dt As DataTable, ByVal NomeProcedure As String, Optional ByVal parametros As Hashtable = Nothing) As DataTable
Dim banco As New ClassCamadaObjetosBanco()
Try
banco.CriarObjetosBanco()
banco.command.CommandText = NomeProcedure
dt.BeginLoadData()
Dim DTM As New Common.DataTableMapping("Table", dt.TableName)
banco.DataAdapter.TableMappings.Add(DTM)
If Not IsNothing(parametros) Then
banco.conexao.Open()
banco.ObterParametros(banco.command)
preencherParametros(banco.command, parametros)
End If
Dim ds As DataSet
ds = dt.DataSet
banco.DataAdapter.Fill(ds)
Catch er As OleDb.OleDbException
Throw New ApplicationException("Ocorreu um erro durante o processo de obtenção do dataset", er)
End Try
banco.FechaConexao()
dt.EndLoadData()
Return (dt)
End Function
Protected Overrides Function getProcListar() As String
Return "spListarStatusChamados"
End Function
Protected Overrides Function getDataTable() As DataTable
Dim _DataBase As New DataSet
Return _DataBase.Tables.Add("TStatusChamados")
End Function
