Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


23249 / 76732 ←次へ | 前へ→

【58852】mdbファイルの最適化(2)
質問  ようたん  - 08/11/14(金) 1:33 -

引用なし
パスワード
   どなたかご指導お願いいたします。

以下のコードでカレントフォルダにある myData という名のmdbファイル
の最適化ができました。

 Dim J_JET As New JRO.JetEngine
 Dim S_MDBName As String
 Dim S_MDBName2 As String
 Dim Pv As String
 
 Pv = "Provider=Microsoft.Jet.OLEDB.4.0;"
 S_MDBName = ThisWorkbook.Path & "\myData.mdb"
 S_MDBName2 = ThisWorkbook.Path & "\tempmdb1.mdb"

 J_JET.CompactDatabase Pv & "Data Source=" & S_MDBName, _
            Pv & "Data Source=" & S_MDBName2

 Kill S_MDBName
 Name S_MDBName2 As S_MDBName


次に myLock というパスワードのかかったmdbファイルの InfoData
に対し最適化を行うために以下のコードを実行したのですがエラー
になってしまいます。いったいどのようにすれば最適化を実現でき
るのでしょうか。どなたか教えて下さい。


 Dim J_JET As New JRO.JetEngine
 Dim S_MDBName As String
 Dim S_MDBName2 As String
 Dim Pv As String
 
 Pv = "Provider=Microsoft.Jet.OLEDB.4.0;"
 S_MDBName = ThisWorkbook.Path & "\InfoData.mdb"
 S_MDBName2 = ThisWorkbook.Path & "\tempmdbfile.mdb"

 J_JET.CompactDatabase Pv & "Data Source=" & S_MDBName, _
            Pv & "Data Source=" & S_MDBName2, _
            , , ";pwd=myLock"

 Kill S_MDBName
 Name S_MDBName2 As S_MDBName
2 hits

【58852】mdbファイルの最適化(2) ようたん 08/11/14(金) 1:33 質問
【58853】Re:mdbファイルの最適化(2) ichinose 08/11/14(金) 7:03 発言
【58870】Re:mdbファイルの最適化(2) ようたん 08/11/14(金) 23:48 お礼

23249 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free