MDBファイルを比較するツール（テーブル数、更新日付、サイズなど）ないですか？

今、ほとんど同じ構成のＭＤＢ２つがあって、
それぞれ５０つぐらいテーブルが入っています。

そのうちどちらか一方だけ、あるテーブルが
サイズや更新日付が違うとします。
テーブル名は同じです。

その時、違いを見つけるのに
いちいち、目で比較するのは大変つらいので
何か便利ツールがないか探しています。

どなたかご存知の方教えてください。
宜しくお願い致します。

No.1 ベストアンサー 回答者： noname#102878 回答日時： 2003/11/25 21:53

WindowsXPSP1, IE6.0SP1, Access2002 SP2, MDAC2.8, DAO3.6 ってな環境で作ってみました。

DAO3.6 が入っていれば、VB 系言語で動くかと。

C.mdb にこのまんまのコードで記述し、A.mdb と B.mdbについての情報を取得してみたところ正常稼動しました。

基本こんな感じなので、あとは使いやすいように工夫してみてはどうでしょうか。

Sub test()
　Const myUser As Long = 2
　Dim dbe As Object
　Dim ws As Object
　Dim dbA As Object
　Dim dbB As Object
　Dim tdfA As Object
　Dim tdfB As Object

　Set dbe = CreateObject("DAO.DBEngine.36")
　Set ws = dbe.Workspaces(0)

　Set dbA = ws.OpenDatabase("D:\hoge\A.mdb")
　Set tdfA = dbA.TableDefs("tbl01")

　Set dbB = ws.OpenDatabase("D:\hoge\b.mdb")
　Set tdfB = dbB.TableDefs("tbl01")

　Debug.Print dbA.Name
　Debug.Print tdfA.Name
　Debug.Print tdfA.LastUpdated
　Debug.Print tdfA.RecordCount

　Debug.Print dbB.Name
　Debug.Print tdfB.Name
　Debug.Print tdfB.LastUpdated
　Debug.Print tdfB.RecordCount

　Set tdfA = Nothing
　dbA.Close: Set dbA = Nothing

　Set tdfB = Nothing
　dbB.Close: Set dbB = Nothing

　ws.Close: Set ws = Nothing
　Set dbe = Nothing
End Sub

この回答へのお礼

おおぉぉぉ！？すごいです。
早速試してみます。
ありがとうございますっ！

お礼日時：2003/11/29 17:31