VB6+ADOでパスワード付MDBの最適化

解決

K 2002-12-10 02:27:11 No: 76547

[環境]
Windows2000/VB6SP4/ADO2.5/MDB(パスワードついてます)

こんにちは、Kと申します。
VB上からADOでMDBを最適化しようとしているのですが、
MDBにパスワードが付いている時の最適化の方法がわからずに困ってます。
現在のソースとしては、
-----
Dim myJet As JetEngine 'ジェットニンジン
Dim strCon As String '接続文字列
Set myJet = New JetEngine
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
'データベースの最適化
Call myJet.CompactDatabase(strCon & 元パス, strCon & TEMPパス)
Set L_Jet = Nothing
-----
な感じです。
パスワード付きのMDBを最適化する方法が
あれば教えていただけますでしょうか。m(_ _)m

K 2002-12-10 02:43:34 No: 76548

あちゃーと思いつつ、自己レス。(--;
出来ました。
最適化 VB ADO MDB パスワード
とかで検索してたんですが、
CompactDatabase
で検索したら一発でした。
一個発言を増やしてすみません。

ちなみに
接続文字列に
Jet OLEDB:Database Password=strPassword;
を追加して出来ました。

MDBで開くときは

myCon.Properties("Jet OLEDB:Database Password") = strPassword

等としていた為にわからなかったようです。
申し訳ありませんでした。