Excel VBAでSQL Serverデータベースを接続し、表のデータをExcelに表示します。
641 ワード
この例はVB言語とOLED EBクラスを使用してSQL Server 2005データベースに接続されている。
sheet 1で右クリック→コードを確認し、下記のコードを追加します。
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