Paradox数据库中的备份 procedure Tbackup.SpeedButton1Click(Sender: TObject); begin if (Edit1.text='')or(Edit2.text='') then MessageDlg('不能备份数据,您没有选择源文件或目的文件!请正确选择文件后在操作一次', mtInformation, [mbOk], 0) else begin try //有问题! MainWindow.Table3.Active:=false; Table1.Tablename:=Edit1.Text; Table2.Tablename:=Edit2.Text; Table1.Active:=false; Table2.Active:=false; batchmove1.source:=Table1; batchmove1.destination:=Table2; batchmove1.mode:=batcopy; Label2.visible:=true; batchmove1.execute; if MessageDlg('数据表备份完成!', mtInformation, [mbOk], 0)=idOK then begin Label2.visible:=false; Table1.Active:=true; Table2.Active:=true; end; except on d:efopenerror do //这是什么意思? begin MessageDlg('不能进行备份操作,请检查路径及相关问题', mtError, [mbOk], 0); Table1.Active:=true; Table2.Active:=true; end end; end; MainWindow.Table3.Active:=true; end;
procedure Tbackup.SpeedButton1Click(Sender: TObject);
begin
if (Edit1.text='')or(Edit2.text='') then
MessageDlg('不能备份数据,您没有选择源文件或目的文件!请正确选择文件后在操作一次', mtInformation, [mbOk], 0)
else
begin
try //有问题!
MainWindow.Table3.Active:=false;
Table1.Tablename:=Edit1.Text;
Table2.Tablename:=Edit2.Text;
Table1.Active:=false;
Table2.Active:=false;
batchmove1.source:=Table1;
batchmove1.destination:=Table2;
batchmove1.mode:=batcopy;
Label2.visible:=true;
batchmove1.execute;
if MessageDlg('数据表备份完成!', mtInformation, [mbOk], 0)=idOK then
begin
Label2.visible:=false;
Table1.Active:=true;
Table2.Active:=true;
end;
except
on d:efopenerror do //这是什么意思?
begin
MessageDlg('不能进行备份操作,请检查路径及相关问题', mtError, [mbOk], 0);
Table1.Active:=true;
Table2.Active:=true;
end
end;
end;
MainWindow.Table3.Active:=true;
end;
如果数据库是SQL SERVER,
那应该怎么操作?
怎么样来停止SQLMANAEGER?
backup命令怎么使用呢?
抱歉,这点我不是很熟悉.to ChenAndy(网事) (
如果要以文件形式保存,那什么格式好点?向两位表示感谢!