Vou mostrar aqui um exemplo bem simples de como acessar a tabela de clientes ("Customers") do Northwind.
Para quem quiser utilizar o recurso, não esqueça de marcar o "Microsoft Active Data Objects" nas referências do projeto VBA, pode ser qualquer versão. Aqui eu utilizei a 2.8.
;-)
Option Explicit
Sub SQL_Express()
Dim rst As New ADODB.Recordset
Dim cnn As New ADODB.Connection
Dim i As Integer
cnn.Open "Provider=SQLNCLI;Data Source=(local)\SQLEXPRESS;uid=sa;pwd=123;database=northwind"
rst.CursorLocation = adUseClient
rst.Open "SELECT CompanyName FROM customers", cnn, adOpenKeyset, adLockOptimistic
i = 1
Do While Not rst.EOF
Cells(i, 1).Value = rst!CompanyName
i = i + 1
rst.MoveNext
Loop
rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing
End Sub
Nenhum comentário:
Postar um comentário