Excel VBA – Connect to SQL Server & Retrieve Data to Excel Spread Sheet

VBA – Connect to SQL Server & Retrieve Data to Excel Spread Sheet

Tools -> References -> Microsoft ActiveX Data Objects 2.8 Library      Dim conn As ADODB.Connection    Dim rs As ADODB.Recordset    Dim sConnString As String      sConnString = "Provider=SQLOLEDB; Data Source=database1; Initial Catalog=inventory; User id=admin; Password=linuxpasswd;"      Set conn = New ADODB.Connection    Set rs = New ADODB.Recordset      conn.Open sConnString    Set rs = conn.Execute("SELECT [UserName], [FullComputerName] FROM [dbo].[Inventory];")      If Not rs.EOF Then       Sheets(1).Range("A2").CopyFromRecordset rs       rs.Close    Else       MsgBox "Error: No records returned.", vbCritical    End If      If CBool(conn.State And adStateOpen) Then conn.Close      Set conn = Nothing    Set rs = Nothing