掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Accessの最適化 (ID：23864)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ニューズグループから拾ってきたコードで、試してませんが。 http://groups.google.co.jp/group/borland.public.delphi.database.ado/msg/f26b02cf1a6624d9?hl=ja& procedure CompactDatabase(FileName : string); var V : OleVariant; NewDBName, Ext : string; begin V := CreateOleObject('Access.Application'); // get new name Ext := ExtractFileExt(FileName); NewDBName := ChangeFileExt(FileName, ''); NewDBName := NewDBName + ' ' + FormatDateTime('MMDDYY',Date) + Ext; // call compact function V.DBEngine.CompactDatabase(FileName, NewDBName); // delete original db DeleteFile(FileName); // copy newly compacted db CopyFile(PChar(NewDBName), PChar(FileName), false); // delete temp file db DeleteFile(NewDBName); V.Quit; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.