Aqui está um exemplo de como você pode usar o VBA do Outlook para acessar bancos de dados externos.
Série VBA Outlook:
O exemplo está comentado para ajudá-lo a entender o que cada parte do código está fazendo:
Usando um Recordset desconectado
Sub UseDisconnectedRecordset()
Dim conn As Object
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\database.accdb;"
Dim rs As Object
Set rs = CreateObject("ADODB.Recordset")
rs.CursorLocation = 3 ' adUseClient
rs.Open "SELECT * FROM Customers", conn, 3, 1 ' adOpenStatic, adLockReadOnly
conn.Close
' Agora você tem um conjunto de registros desconectado que você pode usar sem a conexão aberta
End Sub
Série de Livros nut Project
Série DONUT PROJECT 2015
Clique aqui e nos contate via What's App para avaliarmos seus projetos
Nenhum comentário:
Postar um comentário