大家帮忙

Question

帮忙看看这段备份代码有没有问题
begin
label1.Caption:='正在备份....';
a1.Active:=true;
data.adocbf.CommandText:='backup database yb to disk=''E:\offcice\microsoft access2000\database''';
try
data.adocbf.Execute;
label1.Caption:='备份成功！'; a1.Active:=false;
except
label1.Caption:='备份失败！';a1.Active:=false;
end;
end;

Answer 1

不知道data.adocbf在作此操作之前还有什么操作吗？
最好data.adocbf.CommandText.clear，晴空一下。
如果不能实现备份功能的话，试试这么作
 data.adocbf:= 'use Master';
 data.adocbf.Execute;
 data.adocbf.CommandText := 'execute sp_helpdevice';
 data.adocbf.Execute;
 data.adocbf.CommandText := 'backup database yb to disk=''E:\offcice\microsoft access2000\database'' with init';
  data.adocbf.Execute;
  data.adocbf.CommandText := 'Use ' + database;
  data.adocbf.Execute;