Acessando dados do SQL Server Express 2005

ADO é um recurso muito versátil, permite ao Excel acessar base de dados como o Access, arquivos texto e também do SQL Server.
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