VBA 和 SQL Server 連線 並 查詢

VBA 和 SQL Server 連線 並 查詢

Sub ConnSQL()
SqlStr = "SELECT * FROM Jacky"
ConnStr = "Driver={SQL Server}; DATABASE=skg; SERVER=TWJALU-NB\SQLEXPRESS; UID=; PASSWORD="

Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.recordset")
conn.ConnectionString = ConnStr
conn.Open
rs.Open SqlStr, conn
counter = 0
Do While Not rs.EOF
counter = counter + 1
For i = 1 To rs.fields.Count
Cells(counter, i).Value = rs(i - 1)
Next
rs.movenext
Loop
End Sub