とにかくVBAでSQLのクエリを実行したい
「もうとにかく、VBAでSQL Serverのクエリ発行したんじゃ!」
本当に時間がないけど、簡易ツールとしてVBAでクエリ発行したい時のメモ書き。
とりあえず次の手順を行えばOK。ある程度きれいな設計にしています。(本当か)
Visual Basicを開く
DBAccessクラスモジュールを作る
Visual Basicの画面左側にあるプロジェクト上で右クリック > 挿入 > クラスモジュールを選択。
作るとClass1ができる。F4キーでプロパティ開いて、「DBAccess」という名前にしておく。※お好きなお名前でどうぞ。
DBAccessクラスのコードを書く
DBAccessのコードは次のようにする。
ボタンを配置
Excelシートに戻って…
開発タブ > 挿入 > ActiveXコントロールのボタンを選択!
適当な場所に配置!(マウスでお好きな場所をクリック)
ボタンクリック時の動作を書く
ボタンをダブルクリック! するとVisual Basicの画面に遷移して、以下のコードが自動生成。
さらにこう書く!
10行目のExecuteQuery()の中に実行したいクエリを書こう!
例えば、
ExecuteQuery("SELECT userId, userName FROM tblUser")
参照設定
これはよく忘れるので注意!
Visual Basicのツール > 参照設定を選択。
「Microsoft ActiveX Data Objects 2.8 Libary」を選択して、OKボタンをクリック。
以上で、SQL Serverにアクセスし、クエリを実行できるだろう。
とりあえず、今回はクエリを実行することだけに焦点をおき、その結果を変数に返すところまでは書いていない。
時間があったら書いておきます(^^)