[Resolvido] Conexao do excel com tabelas access via VBA

[Rafaeljuni0.ti 0]

Ola pessoal boa noite ! sou novo na linguagem e novo como desenvolvedor tbm .. preciso de uma ajuda please .. tenho tabelas em um banco access e preciso accessa - las por uma front end do excel como faco a conexao via VBA do excel alguem poderia me ajudar !

 

 

Obrigado pela atencao Boas festas !

[Ueifous 0]

Olá Rafael,

 

Sou novo também como desenvolvedor mas até que tenho um pouco de experiência com aplicações em VBA porém só agora estou tentando utilizar conexões com banco de dados.

 

Veja essa referência, é bastante útil: http://www.connectionstrings.com/access

 

Eu testei algumas maneiras de realizar a conexão e pelo menos no meu caso, utilizando office 2010, só consegui sucesso utilizando ADODB Connection. (Ou pelo menos foi o método mais fácil hehe)

 

Espero que ajude em algo!

[Rafaeljuni0.ti 0]

Valew amigao consegui revolver da seguinte forma

 

Function consulta_SQL()

Dim cn As New ADODB.Connection

Dim Rs As New ADODB.Recordset

Set cn = New ADODB.Connection

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\meubanco.mdb;"

cn.CursorLocation = adUseClient

cn.Open

Set Rs = cn.Execute("cons_itens_zerados")

Plan3.Range("A1").Value = (" Relatorio")

Plan3.Range("A2").Value = ("Itens com saldo consumo zerado no estoque")

' Vai para a planilha onde o relatorio sera mostrado

Worksheets("Relatorio").Select

Range("A6").Select

' preenshe as a planilha com a consulta entre D7 e J7

Plan3.Range("A6, G6").Select

Plan3.Range("A6,G6").CopyFromRecordset Rs

cn.Close

Set Rs = Nothing

End Function