源代码如下:
FirstDay:='2002-11-11';
CAdoquery:=TADOQuery.Create(nil);
CAdoquery.ConnectionString:='provider=Microsoft.Jet.OLEDB.4.0;Data Source='+Path+'data\'+FirstDay+'.mdb;Persist Security Info=False';;
CAdoquery.ParamCheck:=false;
try
CAdoquery.Close;
CAdoquery.SQL.Text:='select File.Id,File.StartDate,File.FileName from ['+path+'data\'+FirstDay+'].File order by File.StartDate';
CAdoquery.Open;
Gauge1.MaxValue:=CAdoquery.RecordCount+10;
if CAdoquery.RecordCount>0 then
begin
CAdoquery.Recordset.MoveFirst;
while (not (CAdoquery.Recordset.EOF or Cadoquery.Recordset.Bof)) do begin
deletefile(path+'file\'+datetostr(CAdoquery.Recordset.Fields['StartDate'].Value)+'\'+CAdoquery.Recordset.Fields['Filename'].Value);
Cadoquery.Recordset.MoveNext;
CleanShowForm.Gauge1.Progress:=CleanShowForm.Gauge1.Progress+1;
end;
end;
CAdoquery.Close;
CAdoquery.Free;
deletefile(path+'data\'+FirstDay+'.mdb');
Gauge1.Progress:=Gauge1.Progress+10;
except
SaveLog(Datetimetostr(now)+' 自动清理录音文件时出现错误');
end;
此代码执行完毕后数据库2002-11-11.mdb却没有被删除,不知为何?有劳大家看一下,谢谢了
FirstDay:='2002-11-11';
CAdoquery:=TADOQuery.Create(nil);
CAdoquery.ConnectionString:='provider=Microsoft.Jet.OLEDB.4.0;Data Source='+Path+'data\'+FirstDay+'.mdb;Persist Security Info=False';;
CAdoquery.ParamCheck:=false;
try
CAdoquery.Close;
CAdoquery.SQL.Text:='select File.Id,File.StartDate,File.FileName from ['+path+'data\'+FirstDay+'].File order by File.StartDate';
CAdoquery.Open;
Gauge1.MaxValue:=CAdoquery.RecordCount+10;
if CAdoquery.RecordCount>0 then
begin
CAdoquery.Recordset.MoveFirst;
while (not (CAdoquery.Recordset.EOF or Cadoquery.Recordset.Bof)) do begin
deletefile(path+'file\'+datetostr(CAdoquery.Recordset.Fields['StartDate'].Value)+'\'+CAdoquery.Recordset.Fields['Filename'].Value);
Cadoquery.Recordset.MoveNext;
CleanShowForm.Gauge1.Progress:=CleanShowForm.Gauge1.Progress+1;
end;
end;
CAdoquery.Close;
CAdoquery.Free;
deletefile(path+'data\'+FirstDay+'.mdb');
Gauge1.Progress:=Gauge1.Progress+10;
except
SaveLog(Datetimetostr(now)+' 自动清理录音文件时出现错误');
end;
此代码执行完毕后数据库2002-11-11.mdb却没有被删除,不知为何?有劳大家看一下,谢谢了
解决方案 »
- 取 wwdbgrid 里修改过的值 在线...
- 查不到???在delphi7中如何给图形里(不是边线)涂色?
- 学习B/S结构的程序都需要掌握哪些语言?(除了Delphi)
- 关于报表的问题,求助
- 如何得到sql表在插入时自动加一的id值?
- QuickReport中的QrExpr问题。急~~
- 对这个程序实现上大家有什么想法?
- 关于SQL SERVER中时间存储的时间(time)在DBGRID里显示变成date+time 呢?
- 谁能说说IDUdpServer的BINDING,BINDINGS的含义?
- 关于D5和D6同时安装的问题
- Table.Active巨慢的问题。
- 为什么我作的Delphi程序编译后其他机器不能用?排除BDE等问题。
result:=false
else
result:=true;