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