データベースをメモリ上で利用する場合のコーディングサンプルです。

（１）データベース＆テーブルの作成



（２）データの追加



（３）データの更新



（４）データの抽出



（５）データの削除



（６）データベースの削除



これでdhSQLiteをVBAで利用するのがわかりましたねm(__)m

今日はこの辺で。。。

　データベースをファイルで保管して利用する場合のコーディングサンプルです。画像をクリックすると大きく表示されます。

（１）データベース＆テーブルの作成



（２）データの追加


（３）データの更新


（４）データの抽出


（５）データの削除


（６）データベースの削除


今日はこの辺で。次は、メモリＤＢ編です。

実際にdhSQLiteを利用した方法について書いていきます。

　今回は、VBAであるExcelファイル（dhSQLiteSample.xls）の配下にデータベースを格納する「DB」フォルダ、dhSQLiteなどのライブラリを格納する「DLL」フォルダを作成した構成にしました。



　まず、dhSQLiteSample.xlsのVBエディタを開き、”DirectCOM.bas”をインポートします。”DirectCOM.basは、ダウンロードしたDirectCOM.dllと同じフォルダに入っています。このDirectCOM.basはDirectCOMを利用するための定義や汎用関数が入っているため、そのまま利用することをおすすめします。



　次にDirectCOMを利用するための環境をコーディングします。

・Excelの起動時に「DLL」のパスを設定します。


・次のように環境変数を操作するAPIを利用して一時的にパスを通します。


以上でdhSQLiteが利用できる環境が整いました。

僕が今回利用することに決めたのは「dhSQLite」です。この時点のバージョンは1.2です。理由はVBAと親和性が高く、コーディング時の違和感が少なかったからです。また、自分のマシン以外での利用も考えるとインストーラを作成してレジストリを操作して、COMを登録してなど色々と面倒なこともあります。しかしながら、このサイトには「DirectCOM」という直接COMを利用できるツールも用意してあるからありがたいです。このDirectCOMを利用することでファイルコピーだけで簡単に他のマシンへ展開できることが分かったことも選択した理由の１つです。

＜特徴＞
・sqliteのバージョン　3.4.0
・ADOライク
・VB関数がほぼ網羅（IIF,Instr,DateDiff,DatePartなど）
・ユーザ定義関数可能
・FullText-TableScans
・速い（JET＜SQLite、ADO＜dhSQLite）
・Unicodeサポート
・In-Memory動作可能
・DirectCOM.dllを利用すると簡単に展開可能

まずは、ダウンロードしましょう。
・dhSQLite


・DirectCOM


dhSQLite-Demo.zipを解凍してファイルを確認するとサンプルソースとDLLが入っています。必要なファイルは２つだけです。DirectCOM.zipを解凍すると同様にサンプルソースとDLLが入っています。必要なファイルは１つだけです。あとはサンプルソースなので随時、参考にしてコーディングしましょう。

dhSQLiteを利用するために必要なファイル
・dhSQLite.dll
・sqlite3_engine.dll

DirectCOMを利用するために必要なファイル
・DirectCOM.dll

最初は、DirectCOMを利用せずにVBAの参照設定を利用してdhSQLiteを使っていました。自分のマシンでの利用だけでしたら十分です。最終的にDirectCOMを利用して開発しましたので、その手順を記述していきます。

　最先端の職場ではあまり利用しないと想像されるVBAですが、中小企業ではExcelの利用は高く、ExcelVBAの需要もまだまだ高いものです。ちょっとしたツールを作成し、職場で利用してもらうには便利だなぁと感じています。

　先日、個人情報データ（Ａ）と顧客名簿マスタ（Ｂ）を付き合わせ、個人情報データ（Ａ）の顧客氏名が正しいことをチェックして欲しいという依頼がありました。（Ａ）のデータ件数が約１０万件、（Ｂ）のデータ件数が約１４０万件です。普通に頑張っても終わる作業ではありません。この作業が今後も随時、発生するためツール化して欲しいとのこと。また、個人情報なのでＤＢに保管せずに、作業の都度、（Ａ）と（Ｂ）をテキストファイルで渡すので読み込んで処理できるように。とのお話でした。

　データ件数が巨大のため、データベースを利用してＳＱＬで処理したいと思いました。まず、ＭＤＢを利用して処理しようと思いました。ＭＤＢにＭＳ−ＡＣＣＥＳＳを利用してデータをインポートして、クエリを作成することにしました。数件程度のデータでテストを実施し、正常に動作することが確認できたので本番データで処理を実行しました。

　結果は、ＮＧでした。問題点が２つ。１つは、インポートしたデータ件数が途中で終わっていること。もう１つは、処理時間がかかりすぎること。インポートは手動でＭＳ−ＡＣＣＥＳＳから実行すると正しく動作するので、コードから実行した場合の何か問題があるのでしょう。処理時間は、約２時間くらいかかりました。

　色々と粘りましたがＭＤＢファイルのサイズがどんどん膨れ上がり、あまり進展が望めないので他の方法を探すことにしました。ＭＤＢファイルのように簡単に扱え、クライアントで十分のフリーのＤＢＭＳはないか？と・・・。そこで見つけたのが「SQLite」でした。


　


SQLiteの情報は少ないです。あまりメジャーではないようですね。それもVBAで利用するという奇特な方は少ないようで、さらに少なくなります。まずは、情報集めから開始です。

(1) SQliteの特徴

・サーバ不要、軽量
・ライセンスはパブリック・ドメイン
・SQL92サポート(完全ではない)
・トランザクションサポート
・最大サイズ　2テラバイト

(2) SQLiteサイト

こちらから

(3) COM Wrappers/VisualBasicDLLs

・SQLitePlus

・dhSQLite

・SQLiteDB

・SQLite3VB

・LiteX

・SqLite2X

他にもありますが一部リンク切れもありました。

(4) ツール

・SQLite ControlCenter

・SQLite Database Browser

(5) SQLiteが認識できるSQL

こちらから

(6) 役に立つサイト

・rakutoネット

・MS Access庵

今日はこの辺で。また！