delphi压缩ACCESS数据库时出现错误
function CompactDatabase(AFileName,APassWord:string):boolean;
//压缩与修复数据库,覆盖源文件
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;
vJE:OleVariant;
begin
GetTempPath(40,SPath);//取得Windows的Temp路径
GetTempFileName(SPath,'~CP',0,SFile);//取得Temp文件名,Windows将自动建立0字节文件
STempFileName:=SFile;//PChar->String
DataTxRx.adoconnection1.ConnectionString:='';
DeleteFile(STempFileName);//删除Windows建立的0字节文件
try
vJE:=CreateOleObject('JRO.JetEngine');
vJE.CompactDatabase(format(SConnectionString,[AFileName,APassWord]), format(SConnectionString,[STempFileName,APassWord])); //出错，，提示数据库为独占式打开
result:=CopyFile(PChar(STempFileName),PChar(AFileName),false);
DeleteFile(STempFileName);
except
result:=false;
end;
end;
你的数据库已经被打开，压缩时不能对已打开的数据库操作
我上面已经删除连接了啊！！！
DataTxRx.adoconnection1.ConnectionString:=&#
相关问答：
在MSSQL中，我们可以一次查询多个数据表并加入到数据集中，中间只需用分号隔开．如：
＂select * from A;select * from B;select * from C＂,填充数据集后在DS中就有了三张表．
但在用同样的语句访问ACCESS数� ......
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
请大侠指点，跪谢了，最好有代码
要用到ADOX对象，查下帮助文档，
http://hyadliujing.blog.163.com/blog/static/4484507420091020969233/?mode=edit
没有找到啊 看了你的博客了，我是想将access里面的附件保存 ......
我机子里面没有ACCESS,请问在不重装系统的情况下该如何把它装上,之前我试装过其它版本的SP3 OFFICE,但还是装不上,
请问有什么好办法吗?
安装OFFICE ，选择安装ACCESS就可以呀 。
引用
安装OFFICE ，选择安装 ......
