Uso di Excel come front-end di una semplice query in SQL Server
Â
Questo che segue è un semplice esempio dell'uso di MS Excel come front-end per una semplice query su MS SQL Server.
Sub ADOExcelSQLServer()
     Dim Cn As ADODB.Connection
     Dim Server_Name As String
    Dim Database_Name As String
     Dim User_ID As String
     Dim Password As String
     Dim SQLStr As String
      Dim rs As ADODB.Recordset
     Set rs = New ADODB.Recordset
     Server_Name = "LAPTOP\SQL_EXPRESS" ' Enter your server name here
     Database_Name = "Northwind" ' Enter your database name here
      User_ID = "" ' enter your user ID here
     Password = "" ' Enter your password here
     SQLStr = "SELECT * FROM Orders" ' Enter your SQL here
     Set Cn = New ADODB.Connection
     Cn.Open "Driver={SQL Server};Server=" & Server_Name & ";Database=" & Database_Name & _ ";Uid=" & User_ID & ";Pwd=" & Password & ";" rs.Open SQLStr, Cn, adOpenStatic
     With Worksheets("Sheet1")
          .Range("A2:Z500")
          .ClearContents
         .CopyFromRecordset rs
    End With
    rs.Close
    Set rs = Nothing
    Cn.Close
    Set Cn = Nothing
End Sub