レコードの追加・削除を繰り返して重たくなったAccessデータベースを軽くするために、手作業で「ツール→データベースユーティリティ→最適化」とやっているのですが、これをExcelVBAで自動化したいのです。
ADOのコマンドでできるのでは?と勝手に考えているのですが、どうなんでしょうか?
ExcelVBAから可能でしたら、どのように書けばよいか教えてください。
なお、ADOの知識は非常に乏しいのですが、「ConnectionオブジェクトやRecordsetオブジェクトを定義して、レコードの追加・削除を行う」程度なら分かります。(逆に言うとそれくらいしか分かりません…)
平易な言葉でお教えいただけると助かります。よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
ExcelでACCESSのライブラリを参照させます。
その上で以下のコードを実行してみてください。
ただし詳細設定は未確認です。とりあえず最適化はできてます。
(WinME+Office2000の場合)
C:\DB1.mdb を C:\DB1_2.MDBにします。
1.ExcelVBAのメニュー[ツール]-[参照設定]をクリック。
2.[Microsoft Access 9.0 ObjectLibrary]にチェックを付ける。
3.以下のコードを貼り付けて実行。
Sub ACCESSの最適化()
Dim mdbSourceDB As String
Dim mdbTargetDB As String
'最適化対象のデータベースファイル
mdbSourceDB = "C:\db1"
'最適化後のデータベースファイル
mdbTargetDB = "C:\db1_2"
'最適化を実行する
DBEngine.CompactDatabase mdbSourceDB, mdbTargetDB
End Sub
これでとりあえずは最適化できますがチューニングはがんばって見てください。
早速のご回答ありがとうございました。試してみましたら、うまくいきました。
この場で申し訳ありませんが、もう一つ質問させてください。
上記の回答では、最適化の前後でデータベースファイル名を変えなければならないと思うんですが、ファイル名を変えなくても良い方法があったらお教えいただけないでしょうか。
「そんな方法は無い!」ということでしたら、その旨をお返事いただければ幸いです。よろしくお願いします。
No.3
- 回答日時:
こんにちは。
maruru01です。つけたし程度ですが。
手順としては以下のような感じでしょうか。
Accessファイルを"db1.mdb"として、別に"temp.mdb"というファイル名を使用します。
1.temp.mdbファイルを削除する
2.Nameメソッドで、db1.mdb→temp.mdbに変名する
3.temp.mdb→db1.mdbに最適化する
4.次回最適化まで、temp.mdbはバックアップとして保存しておく
temp.mdbファイルは、最適化直後に削除してもいいんですが、タイミングによっては最適化中に削除を実行してしまい、エラーになってしまう可能性があるので、次回最適化直前がいいと思います。
あと、Accessのオプション設定で、「閉じる前に最適化する」という項目があるので、それをチェックしておき、いったん開いてすぐ閉じるという動作をすれば出来ます。
この場合は同じファイル名で最適化されます。
ちなみに、ファイルを開くには、Shell関数や、APIのShellExeCute関数を使用します。
閉じる場合は、自動化しようとするとちょっと面倒になりますが。
なるほど。
確かにバックアップファイルとして残すというのは、いい作戦ですね。
ファイルを開く2つの関数は知らなかったです。
ありがとうございました。
またよろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
字面がカッコいい英単語
あなたが思う「字面がカッコいい英単語」を教えてください。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
データベースの最適化をマクロでしたい
その他(データベース)
-
Access データベースの最適化をマクロでしたい
その他(データベース)
-
Excel VBAからAccessマクロを実行したい
Visual Basic(VBA)
-
-
4
Access終了時の最適化が失敗?
その他(データベース)
-
5
Accessの最適化について DBengine.CompactDatabaseを利用して最適化を行う
Access(アクセス)
-
6
マクロでデータベースの最適化をしたい
その他(データベース)
-
7
ADOを使ったDBアクセス後のメモリ解放
その他(データベース)
-
8
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
9
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
10
実行時エラー 3265「要求された名前、または序数
Visual Basic(VBA)
-
11
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
12
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
13
Accessのテーブルデータを一気にVBAで追加したい・・
その他(データベース)
-
14
Access VBAから使用したExcelプロセスを閉じる方法について
Visual Basic(VBA)
-
15
ACCESS 複数のフォームから同一テーブル参照
Access(アクセス)
-
16
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
17
アクセスで入力したデータの順番が変わってしまいます
その他(ビジネス・キャリア)
-
18
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
19
Accessの画面更新を一時的に停止する方法。
その他(データベース)
-
20
エクセルVBAでアクセスファイルを開く方法
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
accessのmdbが勝手にできている?
-
Accessでリンクテーブルのパス変更
-
アクセスをネットワークでリン...
-
「○○○.ldb」のAccess レコード ...
-
Accessのmdbを開こうとしたとき...
-
ACCESSのモジュールエラー?
-
Database.mdbと言うファイル
-
Access2000 で読み取り専用の...
-
ACCESS mdbファイル 更新日時
-
Accessデータベースの最適化をE...
-
アクセス2007でナビゲーション...
-
Access2003でVBAツールの参照設...
-
accessなしの人にも、accessのM...
-
ファイルは開くのに「見つから...
-
共有フォルダに誰が何にアクセ...
-
AccessのMDBファイルを開く際に...
-
VBAでCSVファイルが使用中かど...
-
WEBクエリが使えない場合のHPデ...
-
【Excel】[Expression.Error] ...
-
Becky!で「メールサーバーへの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「○○○.ldb」のAccess レコード ...
-
ACCESSのモジュールエラー?
-
accessのmdbが勝手にできている?
-
Accessデータベースの最適化をE...
-
ExcelのマクロでAccessのmdbを...
-
Accessで「誰々が使用中です」...
-
アクセスのファイルが壊れた!!!!!!
-
ファイルは開くのに「見つから...
-
Access2003でVBAツールの参照設...
-
Accessのmdbを開こうとしたとき...
-
ACCESS mdbファイル 更新日時
-
Excelでmdbファイルが簡単に開...
-
アクセスをネットワークでリン...
-
accessなしの人にも、accessのM...
-
排他のエラーメッセージ
-
Accessでリンクテーブルのパス変更
-
Database.mdbと言うファイル
-
ACCESS2003 ファイルが増えてい...
-
Accessのmdb分析(解析)方法ま...
-
ACCESS 複数のmdbでModuleを共...
おすすめ情報