Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

23249 / 76732

←次へ　｜　前へ→


	【58852】mdbファイルの最適化（２）

ようたん - 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ファイルの最適化（２） ようたん 08/11/14(金) 1:33

≪