企业管理软件版1楼: procedure TMainForm.N3Click(Sender: TObject);

const sProvider=＇＇Provider=Microsoft.Jet.OLEDB.4.0＇＇;
var oJetEng:JetEngine;
sOLDMdb,SNewMdb:string;
oldfile,newfile:string;
begin
oldfile:=＇＇e:＼temp＼terren.mdb＇＇;
newfile:=＇＇e:＼temp＼temp.mdb＇＇;
sOLDMdb:=sProvider+＇＇data Source=＇＇+oldfile;
sNEWMdb:=sProvider+＇＇Data Source=＇＇+newfile;
try
try
oJetEng:=coJetEngine.Create;

[red] oJetEng.CompactDatabase(sOLDMdb,sNEWMdb);[/red]
if fileExists(＇＇e:＼temp＼temp.mdb＇＇) then
begin
copyfile(＇＇c:＼temp＼temp.mdb＇＇,＇＇c:＼temp＼terRen.mdb＇＇,false);
DeleteFile(＇＇c:＼temp＼temp.mdb＇＇);
end;
except
on E:exception do
showmessage(＇＇compact database failed＇＇);
end
finally
oJetEng:=nil;
end;


end;

编译能通过,但在运行这段程序时,显示class EOleException message＂没有注册类别＂,请问如何解决？我在uses引用了JRO_TLB单元

2楼: http://www.delphibbs.com/keylife/iblog_show.asp？xid=12367 如会计电算化考试软件

3楼: 楼上给的链接,说的是用ComObj,我是按照大富翁的大侠所说的用的JRO_TLB,这里应该不一样.

4楼: const

DB_AccessDBConnStr = ＇＇Data Source=%S;＇＇ +
＇＇Jet OLEDB:Database Password=＂%S＂＇＇;


function MCompactAccessDb(SourceFileName,SourcePassword,TargetFileName,TargetPassword:String):Boolean;
var
DbConn:OleVariant;
SourceCompactStr:String;
TargetCompactStr:String;
begin
Result:=False;
DbConn:=CreateOleObject(＇＇JRO.JetEngine＇＇);
If FileExists(SourceFileName) then
begin
If FileExists(TargetFileName) then
begin
if Not DeleteFile(TargetFileName) then
begin
exit;
end;
end;
SourceCompactStr:=Format(DB_AccessDBConnStr,[SourceFileName,SourcePassword]);
TargetCompactStr:=Format(DB_AccessDBConnStr,[TargetFileName,TargetPassword]);
Try
DbConn.CompactDatabase(SourceCompactStr,TargetCompactStr);
Result:=True;
except
end;
end;
end;

5楼: 难道这个问题真的这么难吗？

6楼: delphi6要打UP2补丁

企业管理软件版7楼: 不知道你用的D6还是D7

我给你一段代码吧，我一直使用，没有问题！
//压缩与修复数据库,覆盖源文件
const
SConnectionString = ＇＇Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;＇＇
+＇＇Jet OLEDB:Database Password=%s;＇＇;
var
SPath,SFile:Array [0..254] Of Char;
STempFileName:String;
JE:OleVariant;
begin
GetTempPath(40,SPath);//取得Windows的Temp路径
GetTempFileName(SPath,＇＇~CP＇＇,0,SFile);//取得Temp文件名,Windows将自动建立0字节文件
STempFileName:=SFile;//PChar->String
DeleteFile(STempFileName);//删除Windows建立的0字节文件
try
JE:=CreateOleObject(＇＇JRO.JetEngine＇＇);//建立OLE对象,函数结束OLE对象超过作用域自动释放
OleCheck(JE.CompactDatabase(format(SConnectionString,[AFileName,APassWord]),format(SConnectionString,[STempFileName,APassWord])));//压缩数据库
//复制并覆盖源数据库文件,如果复制失败则函数返回假,压缩成功但没有达到函数的功能
result:=CopyFile(PChar(STempFileName),PChar(AFileName),false);
DeleteFile(STempFileName);//删除临时文件
except
result:=false;//压缩失败
end;

8楼: 接受答案了.