Classe de Acesso a Dados - VB.NET

[jonatas2 0]

Olá pessoal, sou iniciante em vb.net e gostaria da ajuda de vocês. Seguinte:

Tenho uma base de dados no SQL2005 e quero acessa-la, pra isso, criei um novo Solution no VisualStudio (vb.net),

adicionei um class.vb com e atribuí o nome "clsDados.vb"

 

dentro desta classe gostaria de deixar toda regra de acesso a dados no SQL, por exemplo:

-Conectar ao banco utilizando SQLClient

-Executar Comando (insert, delete, update, select)

-Retornar os resultados de procedures do banco...

 

etc

 

Ou seja, desejo centralizar todo acesso a dados nesta classe que criei!

 

Alguém poderia me ajudar?

 

Jonatas.

 

Jonatas2@gmail.com

[Ivan.Teles 23]

Leia esse artigo que vai lhe ajudar:

 

http://www.desenvolvendoparaweb.net/profiles/blogs/aplicacoes-em-n-camadas-com

http://www.desenvolvendoparaweb.net/profiles/blogs/aplicacoes-em-n-camadas-com-1

[quintelab 91]

Movido Plataforma .NET http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Plataforma .NET > Windows Applications

 

jonatas2, seja bem vindo ao Fórum iMasters, conheça nossas regras: Regras do Fórum

[nexus 0]

Public Function DR(ByVal sql As String) As FbDataReader
        ChecaConexao()
        addHist("DR(" & sql & ")")
        Try
            Dim command As FbCommand = New FbCommand(sql, CONEXAO)
            DR = command.ExecuteReader()
            'command.Dispose()
        Catch ex As FbException
            If MsgBox("Não consegui executar Consulta ao Banco de Dados. " & vbCrLf & "Deseja ver detalhes do erro?", MsgBoxStyle.YesNo + MsgBoxStyle.Critical) = MsgBoxResult.Yes Then
                MsgBox(sql & vbCrLf & vbCrLf & ex.ToString)
            End If
            Log(ex.Message, ex.ToString, ex.ErrorCode & " - Nao executou sql - DR", hist, dir)
            DR = Nothing
        End Try
    End Function

    Public Function DA(ByVal sql As String) As FbDataAdapter
        ChecaConexao()
        addHist("DA(" & sql & ")")
        Dim command As FbCommand
        Dim ada As FbDataAdapter
        Try
            command = New FbCommand(sql, CONEXAO)
            ada = New FbDataAdapter(command)
            Return ada
            ada.Dispose()
        Catch ex As Exception
            If MsgBox("Não consegui executar Consulta ao Banco de Dados. " & vbCrLf & "Deseja ver detalhes do erro?", MsgBoxStyle.YesNo + MsgBoxStyle.Critical) = MsgBoxResult.Yes Then
                MsgBox(sql & vbCrLf & vbCrLf & ex.ToString)
            End If
            Log(ex.Message, ex.ToString, "Nao executou sql - DA", hist, dir)
            DA = Nothing
        End Try
    End Function

    Public Function DT(ByVal sql As String) As DataTable
        ChecaConexao()
        'addHist("DT(" & sql & ")")
        Dim dda As FbDataAdapter
        DT = New DataTable
        Try
            dda = DA(sql)
            dda.Fill(DT)
            Return DT
            dda.Dispose()
            DT.Dispose()
        Catch ex As Exception
            If MsgBox("Não consegui executar Consulta ao Banco de Dados. " & vbCrLf & "Deseja ver detalhes do erro?", MsgBoxStyle.YesNo + MsgBoxStyle.Critical) = MsgBoxResult.Yes Then
                MsgBox(sql & vbCrLf & vbCrLf & ex.ToString)
            End If
            Return Nothing
            dda.Dispose()
            DT.Dispose()
        End Try
    End Function

    Public Function DB(ByVal sql As String) As Integer
        ChecaConexao()
        addHist("manut(" & sql & ")")
        'MsgBox(sql)
        Try
            Dim ma As FbCommand = New FbCommand(sql, CONEXAO)
            manut = ma.ExecuteNonQuery()
            ma.Dispose()
        Catch ex As FbException
            If MsgBox("Não consegui executar Atualizacao do Banco de Dados. " & vbCrLf & "Deseja ver detalhes do erro?", MsgBoxStyle.YesNo + MsgBoxStyle.Critical) = MsgBoxResult.Yes Then
                MsgBox(sql & vbCrLf & vbCrLf & ex.ToString)
            End If
            Log(ex.Message, ex.ToString, ex.ErrorCode & " - Nao executou sql - MANUT", hist, dir)
            manut = 0
        End Try
    End Function

onde:

DA -> DataAdapter

DR -> DataReader

DT -> DataTable (Para preencher DataGrids)

DB -> Executar Operacoes de Update, Insert, Delete

 

obs: com banco firebird.. para sqlserver eh soh mudar as classes que funcionara perfeitamente

 

flw