E
eighteenzl
Unregistered / Unconfirmed
GUEST, unregistred user!
var
path:string;
N:integer;
begin
showmessage('请在恢复数据之前关闭所有与数据连接有关的程序,以免恢复失败!');
opendialog1.Filter:='(所有备份文件)|*.bak';
Opendialog1.Title := '选择恢复文件路径和文件名';
opendialog1.InitialDir:=extractfiledir(application.ExeName)+'/databack/';//打开备份的文件目录;
If opendialog1.Execute then
path:=opendialog1.FileName;
IF Path<>'' then
if messagebox(self.Handle,'确定要恢复数据库吗?这样会覆盖现在的数据。','提示信息',mb_yesno+mb_iconquestion)=idyes then
begin
TRY
try
begin
Screen.Cursor:=CrhourGlass;
close;
ADOQry_main.SQL.Clear;
ADOQry_main.SQL.Text:='use master restore database '+'人事管理系统'+' from disk ='+''''+ Trim(path)+'''';
ADOQry_main.ExecSQL();
progressbar1.Visible:=true;
for N:=0 to 500 do
progressbar1.Position:=N;
Screen.Cursor:=CrDefault;
messagebox(self.Handle,'数据恢复成功','提示信息',mb_iconinformation);
Progressbar1.Position:=0;
Close;
end;
except
Screen.Cursor:=CrDefault;
messagebox(self.Handle,'数据恢复失败','提示信息',mb_iconinformation);
exit;
end;
Finally
with ADOQry_main do
begin
Close;
SQL.Clear;
SQL.Add('USE 人事管理系统');
ExecSQL;
end;
end;
end;
end;
这是一段恢复的代码但是恢复不了,
各位大侠麻烦帮忙看看这段代码,那里出错了,编译是没有出误,提示也是成功的,可是我选择的数据确没有恢复过来,
而且在ADOQry_main.ExceSQL()也是没有提示有错误但数据却没有恢复过来,不知道是为什么
请高手们多多帮忙
path:string;
N:integer;
begin
showmessage('请在恢复数据之前关闭所有与数据连接有关的程序,以免恢复失败!');
opendialog1.Filter:='(所有备份文件)|*.bak';
Opendialog1.Title := '选择恢复文件路径和文件名';
opendialog1.InitialDir:=extractfiledir(application.ExeName)+'/databack/';//打开备份的文件目录;
If opendialog1.Execute then
path:=opendialog1.FileName;
IF Path<>'' then
if messagebox(self.Handle,'确定要恢复数据库吗?这样会覆盖现在的数据。','提示信息',mb_yesno+mb_iconquestion)=idyes then
begin
TRY
try
begin
Screen.Cursor:=CrhourGlass;
close;
ADOQry_main.SQL.Clear;
ADOQry_main.SQL.Text:='use master restore database '+'人事管理系统'+' from disk ='+''''+ Trim(path)+'''';
ADOQry_main.ExecSQL();
progressbar1.Visible:=true;
for N:=0 to 500 do
progressbar1.Position:=N;
Screen.Cursor:=CrDefault;
messagebox(self.Handle,'数据恢复成功','提示信息',mb_iconinformation);
Progressbar1.Position:=0;
Close;
end;
except
Screen.Cursor:=CrDefault;
messagebox(self.Handle,'数据恢复失败','提示信息',mb_iconinformation);
exit;
end;
Finally
with ADOQry_main do
begin
Close;
SQL.Clear;
SQL.Add('USE 人事管理系统');
ExecSQL;
end;
end;
end;
end;
这是一段恢复的代码但是恢复不了,
各位大侠麻烦帮忙看看这段代码,那里出错了,编译是没有出误,提示也是成功的,可是我选择的数据确没有恢复过来,
而且在ADOQry_main.ExceSQL()也是没有提示有错误但数据却没有恢复过来,不知道是为什么
请高手们多多帮忙