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:=&#
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
Dbgrid连接access 显示数据时拖动滚动条死机？怎么解决啊？
机器太差了吧？
是不是你数据量太大了啊
你数据少一些看看还死机吗？
数据很少啊 就一页。
我在BCB6下做过不少 DBGRID+ACCESS ，从来没有遇到 ......
我将一段4000来字的文本赋值给它怎么就出错了,提示运行时错误2176 这个属性的设置值太长?
你是怎样赋值的？
测试了一下，用备注字段给文本框做数据源，没有提示设置值太长,14893字符
引用我将一段4000来字的� ......
问题１
我用ADO连接设了用户名密码的数据库
但是我发现我不输入 用户名和密码 都可以连接成功 而且还能把数据读出来
剪了一个名为test数据库 建了一个名为people的表
见了一个 用户名1234 密码1234 的 ......
