delphi中实现Sqlserver2000数据库的备份与还原！

最新推荐文章于 2025-05-25 11:52:39 发布

原创最新推荐文章于 2025-05-25 11:52:39 发布 · 3.1k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#sqlserver #数据库 #delphi #database #数据备份

deiphi技术专栏收录该内容

7 篇文章

订阅专栏

本文展示了使用Delphi实现SQL Server数据库备份与还原的代码。备份部分通过执行SQL语句将数据库备份到指定文件；还原部分先关闭数据库连接，执行离线操作，再进行还原，最后重新连接数据库。

备份：
var
FileName:string;
strsql:string;

begin
if openDialog1.Execute then
begin
FileName:=openDialog1.FileName;
showmessage(FileName);
try
strsql:='backup database carxt to disk='''+FileName+'''';
rs.Close;
rs.SQL.Clear;
rs.SQL.Add(strsql);
rs.ExecSQL;
if fileExists(FileName)then
showmessage('已经将carxt备份为:'+FileName);
except
messageDlg('数据备份异常！',MTError,[mbok],0);
end;
end;

还原：
if openDialog1.Execute then
begin
try
conn.Connected:=false;//关闭carxt数据库
conn2.Open;
rs.Connection:=conn2;
rs.Close;
rs.SQL.Clear;
rs.SQL.Add('ALTER DATABASE carxt01 SET OFFLINE WITH ROLLBACK IMMEDIATE');
rs.ExecSQL;
rs.Close;
rs.SQL.Clear;
rs.SQL.Add('restore database carxt01 From disk='''+openDialog1.FileName+''' ');
rs.ExecSQL;
showmessage('顺利完成数据库还原！');
finally
rs.Close;
rs.SQL.Clear;
rs.SQL.Add('ALTER DATABASE carxt01 SET ONLINE WITH ROLLBACK IMMEDIATE');//重新连接数据库carxt01
rs.ExecSQL;
conn2.Connected:=false;//关闭master的连接
conn.Connected:=true;
rs.Connection:=conn;
end;
end;
end;