我怀疑:你的是不是Access97的数据库?是不是用Access97建立的?
解决方案 »
- 求翻译
- 如何用资源管理器打开并选中文件,像网际快车、迅雷那样。
- 关于gifimage控件,大虾们救命啊,在线等……
- 两个ACCESS数据库如何将一个的数据合并到另一个!
- pagecontrol的使用?
- 我用delphi自带的打包程序打包好以好,在xp下运行,为什么安装好以好,系统老是发送错误报告,我昨天还用的好好的,今天就不能用了。
- 主线程退出时如何杀死所有挂起的子线程?
- 如何在TShellListView中实现文件过滤?
- 请问如何做一个当某个目录有文件时就执行某段代码?
- accessapplication 数据库引擎找不到表?
- WaveInPrepareHeader函数什么情况下报MMSYSERR_NOMEM错误,
- hank,为什末压缩数据库(mdb)时总报错(用dao97)?急!
Engine:=CoDBEngine.Create;
当时我的文章里面没有全部写出,是不好意思,全部的应该是:
uses DAO97;procedure TKitlyform.BitBtn5Click(Sender: TObject);
var
Engine:DBEngine;
begin
Engine:=CoDBEngine.Create;
Engine.CompactDatabase('c:\invoice.mdb','c:\God.mdb','',0,'');
DeleteFile('c:\invoice.mdb');
RenameFile('c:\God.mdb','c:\invoice.mdb');
end;