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:
Artigos relacionados:
