Access Labo #22 Jetデータベースエンジン3.5と4.0を比較する

Access2000のリリースとともに、Accessの基本的なデータベースエンジンである「Jetデータベースエンジン」もバージョン3.5から4.0にバージョンアップされました。それに伴いJetデータベースエンジンへのアクセスをカプセル化したオブジェクト「DAO(Data Access Object)」も3.5から3.6にバージョンアップされました。Access97の「Jet3.5＋DAO3.5」という組み合わせに対して、Access2000(.MDBの場合)では「Jet4.0＋DAO3.6」という組み合わせでテーブルやクエリーにアクセスします。データアクセスの中心がDAOからADO(Microsoft ActiveX Data Objects)に移行しつつあるという状況と、0.1だけのバージョンアップということもあり、DAOの持つオブジェクト、メソッド、プロパティなどには特に目新しいものはないようです。事実、データベースデザインに関する新機能やWeb対応、SQL Serverなどのフロントエンド開発ツールとしての新機能など、Access2000本体に関してはいろいろ取り沙汰されているものの、最新のDAOに関してはあまり情報を見かけません。一方、Jetデータベースエンジンの方は0.5のバージョンアップで、DAOがあまり外見的に変わっていないことからして刷新的なものはないにしても、多少は内部的な機能向上が図られているのではないかと想像できます。そこで今回は、データアクセスの基本的な操作についてそれらの実行時間の比較を行い、その違いを探ってみることにしました。

今回行うテストは、このAccess Laboですでに何回か使っているコードを利用して、テーブルへのレコード追加・読み込み・更新・削除を行うものです。総レコード数は１万件で、空のテーブルに１万レコードをループで追加、その後その全レコードに対して読み込みと更新、削除を行うという手順で２つのケースについてテストを行います。もちろん１つ目のケースは「Access97＋Jet3.5＋DAO3.5」、２つ目のケースは「Access2000+Jet4.0＋DAO3.6」です。

テストコードとしては次のようなものを使います。２つのテストケースについてはオブジェクトライブラリへの参照設定に違いがあるものの、コード自体はまったく同じものを使うことができます。

Dim dbs As Database
Dim rst As DAO.Recordset
Dim ilngLoop As Long
Dim varDummy As Variant
Const clngRecMax As Long = 10000

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("tblTest")

ts_watch "テスト開始", True
'レコードを追加
For ilngLoop = 1 To clngRecMax
  With rst
    .AddNew
      !Data1 = ilngLoop
      !Data2 = ilngLoop * 2
      !Data3 = "ABC"
      !Data4 = "EFG"
    .Update
  End With
Next ilngLoop
ts_watch "レコード追加"

'レコード読み込み
rst.MoveFirst
For ilngLoop = 1 To clngRecMax
  With rst
    varDummy = !Data1
    varDummy = !Data2
    varDummy = !Data3
    varDummy = !Data4
    .MoveNext
  End With
Next ilngLoop
ts_watch "レコード読み込み"

'レコード更新
rst.MoveFirst
For ilngLoop = 1 To clngRecMax
  With rst
    .Edit
      !Data2 = ilngLoop * 3
      !Data3 = "HIJK"
      !Data4 = "LMN"
    .Update
    .MoveNext
  End With
Next ilngLoop
ts_watch "レコード更新"

'レコード削除
rst.MoveFirst
For ilngLoop = 1 To clngRecMax
  With rst
    .Delete
    .MoveNext
  End With
Next ilngLoop
ts_watch "レコード削除"

rst.Close
dbs.Close