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

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

SQL Server

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

如題 ,需要操作過(guò)程和代碼

查看完整描述

1 回答

翻閱古今

TA貢獻(xiàn)1780條經(jīng)驗(yàn) 獲得超5個(gè)贊

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

//還原
var sql:String;
begin
if (fname.Text='') then
begin
Application.MessageBox('請(qǐng)選擇文件','提示',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ù)庫(kù)還原成功','提示',MB_ICONWARNING);