救急,无法删除数据库文件?
我要删除一个目录下的所有文件,其他文件全删除了就是access的mdb和ldb文件无法删除,程序中有对access文件的访问,大家帮忙看看是不是访问后没有断开连接,从而使得无法删除该文件
with adotable1 do
begin
ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+extractfilepath(application.ExeName)+'\scene\'+'result.mdb;Persist Security Info=False';
tablename:='studentinfo';
open;
first;
try
info.zkzh:=adotable1.fieldbyname('zkzh').Value;
info.xm:=adotable1.fieldbyname('xm').Value;
except
info.zkzh:='';
info.xm:='';
end;
close;
end;
我要删除一个目录下的所有文件,其他文件全删除了就是access的mdb和ldb文件无法删除,程序中有对access文件的访问,大家帮忙看看是不是访问后没有断开连接,从而使得无法删除该文件
with adotable1 do
begin
ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+extractfilepath(application.ExeName)+'\scene\'+'result.mdb;Persist Security Info=False';
tablename:='studentinfo';
open;
first;
try
info.zkzh:=adotable1.fieldbyname('zkzh').Value;
info.xm:=adotable1.fieldbyname('xm').Value;
except
info.zkzh:='';
info.xm:='';
end;
close;
end;
try
aa.ConnectionString := ‘’;
aa.TableName := ‘’;
aa.Open;
....................
finally
aa.free;
end;这样就可以。
ADOTable关闭后还是没有断开连接。 所以会出现这个问题。