VBA - Connect SQL Server from Excel
Private Sub CommandButton1_Click()
Set con = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
con.Open "Provider=sqloledb; Data Source=db-serv;Initial Catalog=test; User Id=admin; Password=admin;"
rs.Open "select *from test2", con
i = 2
Do While Not rs.EOF
Cells(i, 2) = rs("categorie")
rs.movenext
i = i + 1
Loop
rs.Close
Set rs = Nothing
Set con = Nothing
End Sub
Related posts:
Leave a Reply
You must be logged in to post a comment.