Série Cadastro – Episódio #04

Criando Classe de Acesso a Dados em VB.net

Neste episódio vamos criar a classe que fará toda a manipulação dos dados no banco de dados.

Nesta classe contém as funções:

ExecuteQuery – Para executar as rotinas de inclusão, edição e remoção de dados do banco.
ExecuteDataSet – Para executar consultas que serão retornadas dentro de um DataSet.
ExecuteDataReader – Para ececutar consultas que serão retornadas dentro de um DataReader.

A baixo segue o código da classe:

Imports System.Data.SqlClient

Public Class DataAccess
    Private conexao As SqlConnection
    Private comando As SqlCommand
    Private da As SqlDataAdapter
    Private dr As SqlDataReader

    Public Sub New()
        conexao = New SqlConnection("Server=CODE-DESENV\SQLEXPRESS;Database=cadastro;User Id=sa;Password=@mar147;")
    End Sub

    Public Sub CloseConn()
        If IsNothing(conexao) Then
            If conexao.State = ConnectionState.Open Then
                conexao.Close()
            End If
        End If
    End Sub

    Public Function ExecuteQuery(ByVal SQL As String, ByVal parametros As List(Of SqlParameter)) As Boolean
        Dim retorno As Boolean = True

        Try
            comando = New SqlCommand(SQL, conexao)

            For Each P As SqlParameter In parametros
                comando.Parameters.Add(P)
            Next

            conexao.Open()

            retorno = comando.ExecuteNonQuery()

        Catch ex As Exception
            retorno = False
            Throw New Exception("Problema com o banco de dados.")
        Finally
            comando = Nothing
        End Try

        Return retorno
    End Function

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

        Try
            comando = New SqlCommand(SQL, conexao)

            For Each P As SqlParameter In parametros
                comando.Parameters.Add(P)
            Next

            conexao.Open()

            da = New SqlDataAdapter(comando)
            da.Fill(ds)

        Catch ex As Exception
            Throw New Exception("Problema com o banco de dados.")
        Finally
            comando = Nothing
        End Try
        Return ds
    End Function

    Public Function ExecuteDataReader(ByVal SQL As String, ByVal parametros As List(Of SqlParameter)) As IDataReader
        Try
            comando = New SqlCommand(SQL, conexao)

            For Each P As SqlParameter In parametros
                comando.Parameters.Add(P)
            Next

            conexao.Open()

            dr = comando.ExecuteReader

        Catch ex As Exception
            Throw New Exception("Problema com o banco de dados.")
        Finally
            comando = Nothing
        End Try

        Return dr
    End Function
End Class

Veja o vídeo passo a passo da criação da classe em detalhes: