mdbの最適化

質問

mdbの最適化をＶＢ６、またはExcelVBAで行っています。

DBEngine.CompactDatabase "最適化対象mdbのフルパス", "最適化後mdb一時ファイルのフルパス"
Kill "最適化対象mdbのフルパス"
Name "最適化後mdb一時ファイルのフルパス" As "最適化対象mdbのフルパス"

処理できていたのですが、パスワードつきのmdbの場合DBEngine.CompactDatabaseでエラーになります。
エラーは「パスワードが違います」です。
パスワードはどのように指定するのでしょうか？
Database Password=abcの場合、
DBEngine.CompactDatabase "最適化対象mdbのフルパス", "最適化後mdb一時ファイルのフルパス","Database Password=abc"などいくつか試してみましたがダメでした。

どなたかお教えいただけませんか。

回答No.3

kunkun_129 · ベストアンサー

下記の様にしたらどうです。

DBEngine.CompactDatabase "最適化対象mdbのフルパス", "最適化後mdb一時ファイルのフルパス", , , ";pwd=abc"

最適化後mdb一時ファイルのフルパスの後に「，」を３個つけています。これで私はうまくできています。

回答No.2

noname#259269

まずGoogleにきいてみる癖をつけるとよいと思いますよ。
いくつも回答がありますね。

http://www.google.co.jp/search?hl=ja&q=CompactDatabase+%E3%83%91%E3%82%B9%E3%83%AF%E3%83%BC%E3%83%89&lr=lang_ja

回答No.1

n-jun

他mdbのデータベースパスワードを、VBAで解除・変更する方法
http://www.accessclub.jp/bbs5/0012/vba3372.html

こちらの方法ではどうでしょうか。（未検証ですけど）