久々にお世話になります。

ＶＢ５のＤＡＯ3.51で作っていたアプリをＷｉｎｄｏｗｓ７でも動くようにＶＢ６のＤＡＯ3.6へ作り直しています。　ｍｄｂを自動的にＡｃｃｅｓｓ２０００形式に変換したいのです。
Webを検索したらサンプルがありＡｃｃｅｓｓ２００３が入っている状態では、Ａｃｃｅｓｓを起動し DoCmd.TransferDatabase を使い自動的に変換できたのですが、入っていない場合できません。
このサイトにも同じような質問が過去にありましたが、サンプルのリンクが切れておりわかりませんでした。

Ａｃｃｅｓｓは入っていなと言う条件で、ＶＢ６でＤＡＯで変換できるのでしょうか？　１つのデータベースにはテーブルは１つということで結構です。　開発環境はWindowsXP(SP3)+VB6(SP6)です。
よろしくお願いします。

> ＶＢ６のＤＡＯ3.6へ作り直しています。
DAO 3.6 を使う場合、VB6 の SP5 以上が必要となります。もっとも、
相手が Win7 である以上は SP6 を使うことになるでしょうけれども。

また当然、実行環境にも DAO 3.6 が必要となります。(Access は無くても良い)

なお、Access 固有の機能(標準モジュールやフォームなど)を使っていた場合、
それらの部分はコンバートされませんので、変換後のファイルを
Access で開いた場合、バージョン違いだと誤解されて、
追加の変換処理が要求されることがあります。


>　ｍｄｂを自動的にＡｃｃｅｓｓ２０００形式に変換したいのです。
DAO や JRO の場合は、「CompactDatabase メソッド」を使います。
たとえば下記のようなコードです。

Const dbLangJapanese = ";LANGID=0x0411;CP=932;COUNTRY=0"
Const dbVersion40 = 64
CreateObject("DAO.DBEngine.36").CompactDatabase oldMdbPath, newMdbPath, dbLangJapanese, dbVersion30

上記の他、レイトバインドせずに参照設定で使う方法もあります。


パスワード付mdbなどでは追加の記述が必要になりますが、
検索すれば具体的なサンプルも見つかるかと思いますので、
Access VBA のヘルプやここの過去ログ等にて、
「CompactDatabase」というキーワードを検索してみてください。

> DAO や JRO の場合は、「CompactDatabase メソッド」を使います。

解決しました。

魔界の仮面弁士さん、適切なアドバイスありがとうございました。
早速朝からCompactDatabaseの関連のWebを読みあさりＶＢのみで変換できました。
Ｗｉｎｄｏｗｓ７の環境でもうまく動きました。
ついでに、もう少しＤＡＯ３．６について勉強してみます。