Excel VBAでSQL Serverデータベースを接続し、表のデータをExcelに表示します。


この例はVB言語とOLED EBクラスを使用してSQL Server 2005データベースに接続されている。
sheet 1で右クリック→コードを確認し、下記のコードを追加します。
Sub admin()
    Dim conn, xRs

    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;PWD=abc;Initial Catalog=GoodLuck;Data Source=localhost"
    Set xRs = CreateObject("ADODB.RecordSet")
    
    sSql = " Select * from View_S_E"
    xRs.Open sSql, conn, 1, 3

    Sheet1.Cells.Clear
    Sheet1.Range("A1").CopyFromRecordset xRs
    xRs.Close
    
    conn.Close
    Set xRs = Nothing
    Set conn = Nothing
End Sub