SHOJI's Code
仕事でMSSQLに格納されているデータをEXCEL帳票に展開する必要があり、ちょこっとデータベースにアクセスするサンプルを書いてみた。
Sub dbtest()
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.RecordSet")
s = Timer
cn.Open "DSN=MSSQL;UID=username;PWD=password"
rs.Open "SELECT * FROM table", cn
For i = 1 To rs.Fields.Count
Sheet1.Cells(1, i).Value = rs.Fields(i - 1).Name
Next i
rn = 2
rs.MoveFirst
While Not rs.EOF
For i = 0 To rs.Fields.Count - 1
Sheet1.Cells(rn, i + 1).Value = rs.Fields(i).Value
Next i
rs.MoveNext
rn = rn + 1
Wend
cn.Close
Debug.Print cn.Version
Debug.Print Timer - s
Set rs = Nothing
Set cn = Nothing
End Sub
テーマ:EXCEL - ジャンル:コンピュータ
|
| ホーム |