首頁猿問如何用delphi實現(xiàn)SQL數(shù)據(jù)庫...

如何用delphi實現(xiàn)SQL數(shù)據(jù)庫備份和還原?

SQL Server

浮云間 2018-08-29 17:17:19

如題 ,需要操作過程和代碼

查看完整描述

1 回答

翻閱古今

TA貢獻1780條經(jīng)驗獲得超5個贊

//下面代碼針對sqlserver的 Q是AdoQuery 組件
//備份
var sql:String;
begin
if (filename.Text='') then
begin
Application.MessageBox('請選擇文件','提示',MB_ICONWARNING);
exit;
end;
sql:='BACKUP DATABASE "mao" TO DISK ='''+filename.Text+''' with init';
Q.SQL.Text:=sql;
q.ExecSQL;
Application.MessageBox('數(shù)據(jù)庫備份成功','提示',MB_ICONWARNING);
end;

//還原
var sql:String;
begin
if (fname.Text='') then
begin
Application.MessageBox('請選擇文件','提示',MB_ICONWARNING);
exit;
end;
Q.SQL.Text:='use master';
Q.ExecSQL;
sql:='RESTORE DATABASE "mao" FROM DISK='''+fname.Text+'''';
Q.SQL.Text:=sql;
q.ExecSQL;
Q.SQL.Text:='Use mao';
Q.ExecSQL;
Application.MessageBox('數(shù)據(jù)庫還原成功','提示',MB_ICONWARNING);