CONNECTION STRING

ACCIOLLY 22/10/2015 11:39:46
#452890
Antes de encerrar este tópico quero colocar uma pequena correção:

está faltando a linha
conectar.Close()

no método Pesquisar e no método TestaConexao dentro da classe de conexão. Caso contrário vai dar BO se colocar o programa em rede! rsrsrsrs
Portanto a codificação inteira seria essa:

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Windows.Forms

Public Class Conexao
    Dim ini As New Inicializa

    Private caminhoBanco As String = ini.pegaCaminhoBanco()
    Private Banco As String = [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=[Ô] & caminhoBanco & [Ô]\base.accdb; Jet OLEDB:Database Password = 12345;[Ô]

    Public Sub TestaConexao()
        Try
            Dim conectar As New OleDbConnection(Banco)
            conectar.Open()
           [txt-color=#e80000] conectar.Close()[/txt-color]
        Catch ex As Exception
            MessageBox.Show([Ô]O banco não foi localizado em: [Ô] & ini.pegaCaminhoBanco & [Ô], Informe o caminho correto[Ô])
            Form2.Show()
        End Try
    End Sub

    Public Function Pesquisar(ByVal SQL As String) As DataTable
        Dim dados As New DataTable
        Try
            dados.Rows.Clear()
            Dim conectar As New OleDbConnection(Banco)
            conectar.Open()
            Dim comando As New OleDbCommand(SQL, conectar)
            Dim adapter As New OleDbDataAdapter(comando)
            adapter.Fill(dados)
	    [txt-color=#e80000]conectar.Close()[/txt-color]

        Catch ex As Exception
            MessageBox.Show([Ô]Erro de Comando SQL: [Ô] & ex.Message)
        End Try

        Return dados
    End Function

    Public Sub CRUD(ByVal SQL As String)
        Try
            Dim conectar As New OleDbConnection(Banco)
            conectar.Open()
            Dim comando As New OleDbCommand(SQL, conectar)
            comando.ExecuteNonQuery()
            conectar.Close()
        Catch ex As Exception
            MessageBox.Show([Ô]Erro de Comando SQL: [Ô] & ex.Message)
        End Try
    End Sub

End Class


Té mais
Página 2 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar