VB.NET上から、ACCESS内のクエリを含んだSQLの実行

Question

MDBファイルからレコードを読み込み、
データグリッド・フォームに内容を表示させるアプリを作成しています。

■前提

MDBにBOOK_NAMEというテーブルがありました。
しかし、BOOK_NAMEのレコード数が増えて、
ファイルのサイズが2GBを超えてしまいそうになったため、
一部のデータを別のMDB_2に移すことになりました。

アプリはBOOK_NAMEをみてデータの抽出を行っておりました。

今回テーブルが増えてしまいましたが、アプリのロジックは変えずに、
下記のようなクエリ（BOOK_NAME）を作成して、
データ抽出の際はそのクエリを見に行くようにしたいです。
また、クエリ「BOOK_NAME」を中心に、
WRITER_NAME_1等を結合してデータの抽出を行いたいと思っております。

SELECT * FROM (
SELECT * FROM BOOK_NAME_1
UNION ALL
SELECT * FROM BOOK_NAME_2
) AS BOOK_NAME

■質問

ACCESSからは、クエリとテーブルを一つのSQL文で扱うことができますが、
VB.NET上から同様の処理は可能でしょうか。

SELECT ID, TITLE, WRITER
FROM BOOK_NAME
LEFT JOIN WRITER_NAME_1 ON BOOK_NAME.WRITER_ID = WRITER_NAME_1.WRITER_ID 

下記のような作りで、VB.NET上からクエリを呼び出せることは確認しております。

Dim strID As String = ""
Dim strNAME As String = ""
Dim strSql As String
Dim con As New OleDb.OleDbConnection()
Dim cmd As New OleDb.OleDbCommand()

con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= D:\MDB_1.mdb;"

' コネクションの設定
cmd.Connection = con
' DB接続
con.Open()

' テーブルからレコードデータを取得する
strSql = "Execute BOOK_NAME"
cmd.CommandText = strSql

Using dr As OleDb.OleDbDataReader = cmd.ExecuteReader()
' 取得レコード有無チェック
If dr.HasRows = True Then
' レコードが取得できた時の処理
dr.Read()
strID = dr.GetValue(0)
strTITLE = dr.GetValue(1)
End If
End Using

■開発環境

・作成アプリケーションの種類：Windowsフォーム
・開発環境：Windows7 64bit／Visual Studio Professional 2012 ／.NET Framework 4

Answer 1

結合させたクエリをMDBに保存させておいて、それをVB.NETから呼んで処理する方法でよろしいかと思われます。

また、今後の課題として、さらにデータが増え続けるようでしたら「BOOK_NAME_3」「BOOK_NAME_4」と増えていくとメンテナンスが難しくなっていくと思われますので、無料で10GBまで使えるSQL Server Express の検討を始めてみるのもよろしいかと思います。MDBからの移行作業であれば簡単だと思われます。

Answer 2

実際にそのSQLを投げてみれば済む話だと思いますが..
結構大きいDBみたいなので、壊さないうちに別のデータベースシステムに載せ替えを検討された方がよろしいかと