Nargaroth

Esta aula Demonstra uma Classe de Conexão com BANCO DE DADOS... Tanto Para ASP.NET Quanto para VB.NET...


'-------------------------Classe----------------------------


Imports System.Data.SqlClient
Imports System.data


Public Class CldBanco
    Dim StringConexao As String = "Server=Local Onde se encontra o Banco;Database=Nome Do Banco;user id=Usuario Do Banco;pwd=Senha Do Banco"
    Private Function AbreBanco() As SqlConnection

        Dim Conn As New SqlConnection
        With Conn
            .ConnectionString = StringConexao
            .Open()
        End With
        Return Conn
    End Function

    Public Sub ExecutaComando(ByVal strQuery As String)
        Dim Conn As New SqlConnection
        Try
            Conn = AbreBanco()
            Dim cmdComando As New SqlCommand
            With cmdComando
                .CommandText = strQuery
                .CommandType = CommandType.Text
                .Connection = Conn
                .ExecuteNonQuery()
            End With

        Catch ex As Exception
            Throw ex
        Finally

            FechaBanco(Conn)
        End Try
    End Sub

    Private Sub FechaBanco(ByVal Conn As SqlConnection)
        If Conn.State = ConnectionState.Open Then
            Conn.Close()
        End If
    End Sub

    Public Function RetornaDataReader(ByVal strQuery As String) As SqlDataReader
        Dim Conn As New SqlConnection
        Try
            Conn = AbreBanco()
            Dim cmdComando As New SqlCommand
            With cmdComando
                .CommandText = strQuery
                .CommandType = CommandType.Text
                .Connection = Conn
            End With
            Return cmdComando.ExecuteReader
        Catch ex As Exception
            Throw ex
        End Try
    End Function

    Public Function RetornaDataSet(ByVal strQuery As String) As DataSet

        Dim Conn As New SqlConnection
        Try
            Conn = AbreBanco()
            Dim cmdComando As New SqlCommand
            With cmdComando
                .CommandText = strQuery
                .CommandType = CommandType.Text
                .Connection = Conn
            End With

            Dim daAdaptador As New SqlDataAdapter
            Dim dsDataSet As New DataSet
            daAdaptador.SelectCommand = cmdComando
            daAdaptador.Fill(dsDataSet)
            Return dsDataSet
        Catch ex As Exception

            Throw New Exception("Erro na Camada 1: " & ex.Message)
        Finally
            FechaBanco(Conn)
        End Try
    End Function
End Class