VB6 ABRIR NOVO ACESS
Bom dia a todos.
Alguém tem algum exemplo do vb abrindo o Acess na versão: Office Professional Plus 2019 (extensão accdb).
Desde já agradeço.
Elieudo70
Alguém tem algum exemplo do vb abrindo o Acess na versão: Office Professional Plus 2019 (extensão accdb).
Desde já agradeço.
Elieudo70
Alterado em 30/12/2024 10:19:18
Bom dia.
Essa seria a string de conexão:
Fonte: https://www.connectionstrings.com/microsoft-access-accdb-odbc-driver/
Essa seria a string de conexão:
Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=C:\mydatabase.accdb;Uid=Admin;Pwd=;Fonte: https://www.connectionstrings.com/microsoft-access-accdb-odbc-driver/
Dim conn As ADODB.Connection
Dim connString As String
Set conn = New ADODB.Connection
' String de conexão para arquivos .accdb com usuário e senha
connString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=C:\caminho\para\o\arquivo.accdb;" & _
"Persist Security Info=True;" & _
"User ID=SeuUsuarioAqui;" & _
"Password=SuaSenhaAqui;"
On Error GoTo erro
' Abrindo a conexão
conn.Open connString
MsgBox "Conexão estabelecida com sucesso!"
Exit Sub
erro:
MsgBox "Erro ao conectar ao Access: " & Err.Description
Dim connString As String
Set conn = New ADODB.Connection
' String de conexão para arquivos .accdb com usuário e senha
connString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=C:\caminho\para\o\arquivo.accdb;" & _
"Persist Security Info=True;" & _
"User ID=SeuUsuarioAqui;" & _
"Password=SuaSenhaAqui;"
On Error GoTo erro
' Abrindo a conexão
conn.Open connString
MsgBox "Conexão estabelecida com sucesso!"
Exit Sub
erro:
MsgBox "Erro ao conectar ao Access: " & Err.Description
Faça seu login para responder