Série Cadastro – Episódio #05

Criando a Classe de Clientes em VB.net

Neste episódio vamos criar a classe que será o espelho da tabela de cadastro de cliente, ou seja, vamos criar todos os campos da tabela como propriedades e depois criar as funções de acesso ao banco que será retornado pela classe DataAcces do episódio 04.

Está classe possui as seguintes:

NovoCliente – Adiciona um novo cliente no banco de dados.
AtualizaCliente – Edita um cliente no banco de dados.

Veja o código completo da classe CAD_CLIENTE:

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
#End Region

End Class

Veja o vídeo completo em passo a passo abaixo: