CONECTAR ACCESS 2010 VBA

ADILSOO 27/03/2016 18:43:56
#459956
Boa noite senhores!
Venho aqui pedir a ajuda de vocês a respeito de uma conexão que estou tentando fazer mas sempre me retorna erro, e pelo visto não consigo encontrar nada que esteja de errado, ele até passa pela linha que acessa o banco e conecta, mas quando tento acessar os dados diz que não possivel enquanto a sessão está fechada. O código que estou usando é esse abaixo...

 Global Conexao As New ADODB.Connection

Public Function Conecta(valor As Boolean)
    If valor = True Then
        If Conexao.State = 1 Then Conexao.Close
        Conexao.CursorLocation = adUseClient
                sConnString = [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Eletrostatica\Dados\Dados.accdb;Persist Security Info=False[Ô]
        Else
            Conexao.Close
    End If
End Function
OMAR2011 27/03/2016 21:25:13
#459957 Resposta escolhida
Tente assim,
Public Function Conecta(valor As Boolean)
If valor = True Then
If Conexao.State = 1 Then Conexao.Close
Conexao.CursorLocation = adUseClient
Conexao = [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Eletrostatica\Dados\Dados.accdb;Persist Security Info=False[Ô]
Conexao.open
ou

Conexao.Open [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Eletrostatica\Dados\Dados.accdb;Persist Security Info=False[Ô]
Else
Conexao.Close
End If


End Function
ADILSOO 27/03/2016 21:45:07
#459958
Valeu cara, deu certo com o primeiro método logo de cara, muito obrigado!!!
Tópico encerrado , respostas não são mais permitidas
Voltar