SHOJI's Code
 仕事や趣味で書いた各種言語のプログラミングコード(エクセルVBA,PHP,C/C++/C#,JavaScript等)、その他雑記。
2017.08<<123456789101112131415161718192021222324252627282930>>2017.10
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

仕事で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 - ジャンル:コンピュータ
コメント
この記事へのコメント
コメントを投稿する

管理者にだけ表示を許可する
トラックバック
この記事のトラックバックURL
この記事へのトラックバック
copyright © 2004-2006 SHOJI, Powered By FC2ブログ all rights reserved.
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。