- ベストアンサー
ACCESSでの検索方法について
マスタファイル２万件、トランザクションファイル約５０件程度のデータベースがあります。 ５０件のデータを１件１件マスタから検索し（キーは２つ）、あればマスタを修正し、なければマスタに追加するプログラムを作成する場合、どういった方法が良いのでしょうか？ 1.Do until トランザクション.eof クエリの実行（約50回） loop 2.Do until トランザクション.eof findで検索（約50回） loop 3.２つともレコードセットを開いて上から順番に検索していく。 分かりづらかったらすみません。方法はこれ位しか思い浮かびませんでした。 ほかにあれば教えて下さい。 １の方法がプログラム的には一番楽なのですが、実行スピードは３なのでしょうか？ すみませんがご教授お願いします。
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
まず参考になる質問を一つ(続き物なので２つ上げています）を見てみてください。 http://www.okweb.ne.jp/kotaeru.php3?q=155505 http://www.okweb.ne.jp/kotaeru.php3?q=161189 で前置きはこの程度として まずトランザクションデータが格納されているファイルをワークテーブルに挿入して １．マスタテーブルとワークテーブルでキー項目で結合して更新が必要な部分更新する。 ２．ワークテーブルにあってマスタテーブルに無いキー項目をもつレコードを抽出(不一致クエリーの応用) ３．２の結果を追加クエリーでマスタテーブルに追加 という方法もありますね。
その他の回答 (2)
- imogasi
- ベストアンサー率27% (4737/17069)
アクセスのコーディングそのものになっていませんのでお気に 召さないかもしれませんが、寝る時間になったので・・・。 レコード数が多いマスターに対し、数が少ないトランザクションのマスター更新では、色々の処理ロジック考えられる（注）が、一般には （１）マスターレコードをキー項目でソート（２）トランザクションレコードを同じキー項目でソート（３）（情報処理試験の解説書に良く出てくる）マッチングのロジックで更新するのが一番早いと思います。 マッチングの処理はご存知でしょうが、 ｐ４：マスターを１レコード読む（キーをＫ１とする） もしＥＯＦならｋ１にハイバリューをセット（ハイバリュー例１６進Ｆ ＦＦＦ．．． ） 第１レコード以外はｐ６へ ｐ５：トランザクションを１レコード読む（キーをＫ２とする） もしＥＯＦならｋ２にハイバリューをセット（ハイバリュー例１６進Ｆ ＦＦＦ．．． ） ｐ６：ｉｆ ｋ１＝ｋ２ ｔｈｅｎ ｇｏｔｏ ｐ１ ｉｆ ｋ１＞ｋ２ ｔｈｅｎ ｇｏｔｏ ｐ２ ｉｆ ｋ１＜ｋ２ ｔｈｅｎ ｇｏｔｏ ｐ３ ｐ１： ｋ１がハイバリュ―なら終わり（ｐ７へ） でなければトランザクションでマスターを更新 ｐ２： トランザクションでマスターを作る。 次ぎのトランザクションレコードを読みにいく（ｐ５へ） ｐ３： 次ぎのマスターレコードを読みにいく（ｐ４へ） ｐ７：ファイルをクローズ ｅｎｄ 昔大型コンピュターのオフラインバッチ処理のマスター更新の定番 でした。メモリーが少ないコンピュター時代でそれなりの採用理由があったと思います。ソートプログラム（のロジックがメーカー製で優秀で）早かった事も寄与したでしょう。 （注）１例としてマスターを１レコード読むごとに、全トランザクションを舐めて等しいキーのものが見つかると更新するとか。トランザクションが同一キーが２以上あるかでロジックが変わる。ないと仮定して良いなら見つかって後は打ち切って、次ぎのマスターレコードへ行ける。
お礼
回答ありがとうございます。 おっしゃらる通りです。 私が３番目に考えていた方法がそんな感じです。 省略したコーディングを２番目に回答して頂いた方のお礼に書いています。 こんな感じでしょうか？ こういったやり方とクエリーを複数回実行するのとではどちらが負荷を掛けずに処理が行えるのか、またどちらが一般的なのかが分かりませんでした。 ご丁寧な回答ありがとうございました。
３の「２つともレコードセットを開いて上から順番に検索していく。」というのはトランザクションを読んでFindかSeekでマスタを検索するっていうやり方でしょうか？ でしたら一番遅いと思います。マスタの方が２万件ということでしたらOpen時だけでも時間かかると思いますよ。 どうしても、３の方法でやる場合でしたらキーはPrimaryKeyだけでなくそれぞれインデックスをつけて、 Do Until TRN.EOF Set MST=CurrentDB().OpenRecordset("抽出するSQL文",dbOpenDynaset) If MST.EOF=True Then MST.AddNew Else MST.Edit End If ・ ・ ・ MST.Update MST.Close TRN.MoveNext Loop TRN.Close っていう感じでやります。 上で書いたようにキーの２つのフィールドにインデックスが設定されている場合、１が一番速いように思います。
お礼
回答ありがとうございます。 ３の方法ですが、 findもseekも使わず、１件１件上から調べて行く方法を考えてました。 findやseekの場合、トランザクションファイルの件数分だけ行わないといけないですが、１件１件マッチングさせていくと２万件を１回見てやるだけで済むと思ったんです。（説明が分かりづらくてすみません。） 凄い省略して書くと MST = OpenRecordset(マスタ) TRN = OpenRecordset(トランザクション) Do Until TRN.EOF If MST.[キー] = TRN.[キー] then マスタ修正 MST.MoveNext TRN.MoveNext ElseIf MST.[キー] > TRN.[キー] then マスタ新規追加 TRN.MoveNext Else MST.MoveNext End If Loop MST.Close TRN.Close (キーを昇順とした場合です。) (マスタが先にEOFになった場合の処理とかは省略しています。) 合ってるかどうかよく分からないですが、非常に簡単に書くと3はこんな感じのつもりでした。 まず、一番最初の方に答えて頂いたクエリーの方法で試してみます。 ただ条件によってマスタの変更するフィールドが変ってくるので（１０箇所位）クエリが３０個位になるので条件によってSQLを切り替えるようにしていきたいと思います。 似たようなクエリーが増えるのって嫌じゃないですか？ みなさんどうなされているのでしょうか。 どうもありがとうございました。 またよろしくお願いします。
お礼
早速の回答ありがとうございます。 またよろしくお願いします。