José Machado 28/3/2018, 14:27
Bom dia Amigo
Crie um Modulo de Classe com nome Cls_Conexao e cole o código abaixo nele, Importa a biblioteca Microsoft Activex Data Objects 2.8 Library
Dim CONEXAO As ADODB.Connection
Dim CONEXAO_STRING As String
Public DATA_READER As ADODB.Recordset
Sub Initialize()
Dim DATA_BASE_PROVIDER As String
Dim DATA_BASE_LOCAL As String
Dim DATA_BASE_NOME As String
Dim DATA_BASE_USUARIO As String
Dim DATA_BASE_SENHA As String
DATA_BASE_PROVIDER = "Microsoft.ACE.OLEDB.12.0"
DATA_BASE_LOCAL = " C:\"
DATA_BASE_NOME = " Nome do Arquivo mais a extensão .accdb"
DATA_BASE_USUARIO = ""
DATA_BASE_SENHA = ""
CONEXAO_STRING = "Provider = " & DATA_BASE_PROVIDER & _
";DATA SOURCE = " & DATA_BASE_LOCAL + DATA_BASE_NOME & _
";USER ID = " & DATA_BASE_USUARIO & _
";PASSWORD = " & DATA_BASE_SENHA & ";"
Set CONEXAO = New ADODB.CONEXAO
CONEXAO.CursorLocation = adUseClient
End Sub
Public Sub Abrir_Conexao()
Initialize
CONEXAO.Open CONEXAO_STRING
End Sub
Public Sub Fechar_Conexao()
CONEXAO.Close
Set CONEXAO = Nothing
End Sub
Public Sub Executar_Query(query As String)
Abrir_Conexao
CONEXAO.Execute (query)
Fechar_Conexao
End Sub
Public Sub Executar_DATA_READER(query As String)
Set DATA_READER = New ADODB.Recordset
DATA_READER.Open query, CONEXAO, adOpenStatic, adLockReadOnly
End Sub
Public Sub Fechar_DATA_READER()
DATA_READER.Close
Set DATA_READER = Nothing
Fechar_Conexao
End Sub