ＶＢ６でＭＤＥファイルを最適化するには？

解決

ｗａｌｌ 2002-12-26 07:07:32 No: 105743

ＶＢ６でＡＣＣＥＳＳ２０００のＭＤＥファイルを最適化するにはどうすれば
いいのでしょうか？何か方法がありましたら教えてください。

ぢゃわ 2003-01-15 02:34:06 No: 105744

自分はいつもこんな感じでやってます。
（HELP等調べれば分かる程度のことしかやってませんが  ＾＾；）
参考になれば。。。
ちなみに下記ソースではDAOへの参照設定が必要です。念のため。
------------------------------
    Screen.MousePointer = vbHourglass
    '対象ＭＤＢのバックアップコピー
    FileCopy "db1.MDB", "db1_BAK.MDB"

    '最適化の為旧ＭＤＢを削除
    If Dir("db1.MDB") <> vbNullString Then
        Kill "db1.MDB"
    End If

    'ＭＤＢ最適化
    DBEngine.CompactDatabase "db1_BAK.MDB", "db1.mdb"
    Screen.MousePointer = vbDefault
    MsgBox "最適化が完了しました。"
------------------------------

wall 2003-01-16 05:45:42 No: 105745

ぢゃわさんわざわざ有難うございました。
テストしてみます。
また、宜しくお願いします。