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

現在EXCELとMSSQLを組み合わせて帳票を作成するシステムの設計を行っている。まず手始めにエクセルVBAからSQLサーバーにアクセスするサンプルと作ってみた。
Sub ShowSQLError()
e = SQLError()
For i = LBound(e) To UBound(e)
Debug.Print e(i)
Next i
End Sub

Sub RetrieveTable()
ch = SQLOpen("DSN=MS SQL Server")
SQLExecQuery ch, "select * from SAMPLE_TBL order by ID"
ShowSQLError
SQLRetrieve ch, Sheet1.Range("A1")
SQLClose ch
End Sub

Sub AddToTable()
ch = SQLOpen("DSN=MS SQL Server")
sql = "insert into SAMPLE_TBL(CODE,DESCRIPTION) values('A100', 'TEST')"
SQLExecQuery ch, sql
ShowSQLError
SQLClose ch
End Sub


SELECT文でデータの一覧を取得するサンプルとデータを追加するサンプルである。特に説明等は省く。
SQLOpen等の関数を使用するためにはあらかじめ「ツール」-「参照設定」でXLODBC.xlaを登録しておく必要があるので、注意。

テーマ:EXCEL - ジャンル:コンピュータ
コメント
この記事へのコメント
コメントを投稿する

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