Série Cadastro – Episódio #06

Criando a Classe Cliente Parte 2 em VB.net

Neste episódio vamos dar continuidade na criação da classe cadastro criando duas novas funções:

DeleteCliente – remove um cliente do banco de dados.
ConsultaDataSet – realiza consulta na tabela cliente e retorna os dados em um DataSet.

Veja o vídeo passo a passo abaixo:

Criando duas funções.

Código completo da classe:

Imports System.Data.SqlClient

Public Class CAD_CLIENTE
#Region "Propriedades"
    Public Property ID As Integer
    Public Property NOME As String
    Public Property ENDERECO As String
    Public Property NUMERO As String
    Public Property TELEFONE As String
#End Region

#Region "Funçoes"
    Public Function NovoCliente(ByVal SQL As String, ByVal parametros As List(Of SqlParameter)) As Boolean
        Dim retorno As Boolean = True
        Dim banco As New DataAccess

        Try
            retorno = banco.ExecuteQuery(SQL, parametros)

        Catch ex As Exception
            Throw New Exception(ex.Message)
        Finally
            banco.CloseConn()
        End Try

        Return retorno
    End Function

    Public Function AtualizaCliente(ByVal SQL As String, ByVal parametros As List(Of SqlParameter)) As Boolean
        Dim retorno As Boolean = True
        Dim banco As New DataAccess

        Try
            retorno = banco.ExecuteQuery(SQL, parametros)

        Catch ex As Exception
            Throw New Exception(ex.Message)
        Finally
            banco.CloseConn()
        End Try

        Return retorno
    End Function

    Public Function DeleteCliente(ByVal SQL As String, ByVal parametros As List(Of SqlParameter)) As Boolean
        Dim retorno As Boolean = True
        Dim banco As New DataAccess

        Try
            retorno = banco.ExecuteQuery(SQL, parametros)

        Catch ex As Exception
            Throw New Exception(ex.Message)
        Finally
            banco.CloseConn()
        End Try

        Return retorno
    End Function

    Public Function ConsultaDataSet(ByVal SQL As String, ByVal parametros As List(Of SqlParameter)) As DataSet
        Dim ds As DataSet
        Dim banco As New DataAccess

        Try
            ds = banco.ExecuteDataSet(SQL, parametros)

        Catch ex As Exception
            Throw New Exception(ex.Message)
        Finally
            banco.CloseConn()
        End Try

        Return ds
    End Function
#End Region

End Class