压缩数据库即可,转一个答案uses dao_2k;Var
Engine TCOM_DBEngine;
Begin
Engine := CoDBEngine.Create;
Engine.CompactDatabase( srcDatabase, destDatabase );
Engine.Free;
End;
Engine TCOM_DBEngine;
Begin
Engine := CoDBEngine.Create;
Engine.CompactDatabase( srcDatabase, destDatabase );
Engine.Free;
End;
解决方案 »
- ado 插入失败 大家帮忙看看那里有问题?
- 一个最小化的问题
- 有没有方法截取发送到某个句柄的一条消息。通过DragAcceptFiles(Handle, Enable),截取 WM_DROPFILES 消息
- 再一个quickreport分页问题!急…
- 怎样把STRINGGRID中的数据通过报表的形式打印出来?
- 高手求解:重启后覆盖 Windows 系统文件如何实现?
- 一直有个问题!?
- 如何实现在Trichedit中关键字变色?
- 我是初学者,帮忙指点一下学习方法
- 来拿高分吧。。。
- 如何实现在dll 中分配内存 和释放
- 有这样一个SQL语句:select sum(age) from Table 要把它的结果显示在TStatusBar上,怎么做?
var Access1:OleVariant;begin access1:= CreateOleObject('DAO.DBEngine.35');//access2000 是 .40 access1.CompactDatabase( srcDatabase, destDatabase );
access1.free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
dbe:olevariant;
begin
// DBEngine
dbe:= CreateOleObject('dao.DBEngine.36'); //or 'dao.DBEngine.35'
if OpenDialog1.Execute then
dbe.CompactDatabase(OpenDialog1.FileName, ExtractFilePath (OpenDialog1.FileName) + 'c.mdb', '', 0, '');
end;