Delphi中如何将数据库Sql server中的数据库备份、如何恢复出来？

Question

主要实现的是功能将数据库中的数据库备份导出来？
还有一个如何恢复啊？
SQL server本身支持这些功能，
但是我想通过Delphi代码来实现这些功能，哪位大侠请赐教！

Answer 1

这是我看到的一片关于数据库备份与恢复的文章,不知道对你有没有帮助.
利用SQL语言,实现数据库的备份/恢复的功能体现了SQL Server中的四个知识点：1．   获取SQL Server服务器上的默认目录2．   备份SQL语句的使用3．   恢复SQL语句的使用，同时考虑了强制恢复时关闭其他用户进程的处理4．   作业创建SQL语句的使用 /*1.--得到数据库的文件目录
 
 @dbname 指定要取得目录的数据库名
   如果指定的数据不存在,返回安装SQL时设置的默认数据目录
   如果指定NULL,则返回默认的SQL备份目录名
----*//*--调用示例
 select 数据库文件目录=dbo.f_getdbpath('tempdb')
  ,[默认SQL SERVER数据目录]=dbo.f_getdbpath('')
  ,[默认SQL SERVER备份目录]=dbo.f_getdbpath(null)
--*/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[f_getdbpath]') and xtype in (N'FN', N'IF', N'TF'))
drop function [dbo].[f_getdbpath]
GOcreate function f_getdbpath(@dbname sysname)
returns nvarchar(260)
as 
begin
 declare @re nvarchar(260)
 if @dbname is null or db_id(@dbname) is null
  select @re=rtrim(reverse(filename)) from master..sysdatabases where name='master'
 else
  select @re=rtrim(reverse(filename)) from master..sysdatabases where name=@dbname if @dbname is null
  set @re=reverse(substring(@re,charindex('\',@re)+5,260))+'BACKUP'
 else
  set @re=reverse(substring(@re,charindex('\',@re),260))
 return(@re)
end
go/*2.--备份数据库--*//*--调用示例--备份当前数据库
exec p_backupdb @bkpath='c:\',@bkfname='db_\DATE\_db.bak'--差异备份当前数据库
exec p_backupdb @bkpath='c:\',@bkfname='db_\DATE\_df.bak',@bktype='DF'--备份当前数据库日志
exec p_backupdb @bkpath='c:\',@bkfname='db_\DATE\_log.bak',@bktype='LOG'--*/if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_backupdb]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_backupdb]
GOcreate proc p_backupdb
@dbname sysname='',   --要备份的数据库名称,不指定则备份当前数据库
@bkpath nvarchar(260)='', --备份文件的存放目录,不指定则使用SQL默认的备份目录
@bkfname nvarchar(260)='', --备份文件名,文件名中可以用\DBNAME\代表数据库名,\DATE\代表日期,\TIME\代表时间
@bktype nvarchar(10)='DB', --备份类型:'DB'备份数据库,'DF' 差异备份,'LOG' 日志备份
@appendfile bit=1   --追加/覆盖备份文件
as
 declare @sql varchar(8000)
 if isnull(@dbname,'')='' set @dbname=db_name()
 if isnull(@bkpath,'')='' set @bkpath=dbo.f_getdbpath(null)
 if isnull(@bkfname,'')='' set @bkfname='\DBNAME\_\DATE\_\TIME\.BAK'
 set @bkfname=replace(replace(replace(@bkfname,'\DBNAME\',@dbname)
  ,'\DATE\',convert(varchar,getdate(),112))
  ,'\TIME\',replace(convert(varchar,getdate(),108),':',''))
 set @sql='backup '+case @bktype when 'LOG' then 'log ' else 'database ' end +@dbname
  +' to disk='''+@bkpath+@bkfname
  +''' with '+case @bktype when 'DF' then 'DIFFERENTIAL,' else '' end
  +case @appendfile when 1 then 'NOINIT' else 'INIT' end
 print @sql
 exec(@sql)
go /*3.--恢复数据库--*//*--调用示例
--完整恢复数据库
exec p_RestoreDb @bkfile='c:\db_20031015_db.bak',@dbname='db'--差异备份恢复
exec p_RestoreDb @bkfile='c:\db_20031015_db.bak',@dbname='db',@retype='DBNOR'
exec p_backupdb @bkfile='c:\db_20031015_df.bak',@dbname='db',@retype='DF'--日志备份恢复
exec p_RestoreDb @bkfile='c:\db_20031015_db.bak',@dbname='db',@retype='DBNOR'
exec p_backupdb @bkfile='c:\db_20031015_log.bak',@dbname='db',@retype='LOG'--*/if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_RestoreDb]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_RestoreDb]
GOcreate proc p_RestoreDb
@bkfile nvarchar(1000),  --定义要恢复的备份文件名
@dbname sysname='',      --定义恢复后的数据库名,默认为备份的文件名
@dbpath nvarchar(260)='', --恢复后的数据库存放目录,不指定则为SQL的默认数据目录
@retype nvarchar(10)='DB', --恢复类型:'DB'完事恢复数据库,'DBNOR' 为差异恢复,日志恢复进行完整恢复,'DF' 差异备份的恢复,'LOG' 日志恢复
@filenumber int=1,   --恢复的文件号
@overexist bit=1,        --是否覆盖已经存在的数据库,仅@retype为
@killuser bit=1       --是否关闭用户使用进程,仅@overexist=1时有效
as
declare @sql varchar(8000)--得到恢复后的数据库名
if isnull(@dbname,'')=''
 select @sql=reverse(@bkfile)
  ,@sql=case when charindex('.',@sql)=0 then @sql
   else substring(@sql,charindex('.',@sql)+1,1000) end
  ,@sql=case when charindex('\',@sql)=0 then @sql
   else left(@sql,charindex('\',@sql)-1) end
  ,@dbname=reverse(@sql)--得到恢复后的数据库存放目录
if isnull(@dbpath,'')='' set @dbpath=dbo.f_getdbpath('')--生成数据库恢复语句
set @sql='restore '+case @retype when 'LOG' then 'log ' else 'database ' end+@dbname
 +' from disk='''+@bkfile+''''
 +' with file='+cast(@filenumber as varchar)
 +case when @overexist=1 and @retype in('DB','DBNOR') then ',replace' else '' end
 +case @retype when 'DBNOR' then ',NORECOVERY' else ',RECOVERY' end
print @sql
--添加移动逻辑文件的处理
if @retype='DB' or @retype='DBNOR'
begin
 --从备份文件中获取逻辑文件名
 declare @lfn nvarchar(128),@tp char(1),@i int --创建临时表,保存获取的信息
 create table #tb(ln nvarchar(128),pn nvarchar(260),tp char(1),fgn nvarchar(128),sz numeric(20,0),Msz numeric(20,0))
 --从备份文件中获取信息
 insert into #tb exec('restore filelistonly from disk='''+@bkfile+'''')
 declare #f cursor for select ln,tp from #tb
 open #f
 fetch next from #f into @lfn,@tp
 set @i=0
 while @@fetch_status=0
 begin
  select @sql=@sql+',move '''+@lfn+''' to '''+@dbpath+@dbname+cast(@i as varchar)
   +case @tp when 'D' then '.mdf''' else '.ldf''' end
   ,@i=@i+1
  fetch next from #f into @lfn,@tp
 end
 close #f
 deallocate #f
end--关闭用户进程处理
if @overexist=1 and @killuser=1
begin
 declare @spid varchar(20)
 declare #spid cursor for
  select spid=cast(spid as varchar(20)) from master..sysprocesses where dbid=db_id(@dbname)
 open #spid
 fetch next from #spid into @spid
 while @@fetch_status=0
 begin  
  exec('kill '+@spid)
  fetch next from #spid into @spid
 end  
 close #spid
 deallocate #spid
end--恢复数据库
exec(@sql)go/*4.--创建作业--*//*--调用示例--每月执行的作业
exec p_createjob @jobname='mm',@sql='select * from syscolumns',@freqtype='month'--每周执行的作业
exec p_createjob @jobname='ww',@sql='select * from syscolumns',@freqtype='week'--每日执行的作业
exec p_createjob @jobname='a',@sql='select * from syscolumns'--每日执行的作业,每天隔4小时重复的作业
exec p_createjob @jobname='b',@sql='select * from syscolumns',@fsinterval=4--*/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_createjob]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_createjob]
GOcreate proc p_createjob
@jobname varchar(100),  --作业名称
@sql varchar(8000),   --要执行的命令
@dbname sysname='',   --默认为当前的数据库名
@freqtype varchar(6)='day', --时间周期,month 月,week 周,day 日
@fsinterval int=1,   --相对于每日的重复次数
@time int=170000   --开始执行时间,对于重复执行的作业,将从0点到23:59分
as
if isnull(@dbname,'')='' set @dbname=db_name()--创建作业
exec msdb..sp_add_job @job_name=@jobname--创建作业步骤
exec msdb..sp_add_jobstep @job_name=@jobname,
 @step_name = '数据处理',
 @subsystem = 'TSQL',
 @database_name=@dbname,
 @command = @sql,
 @retry_attempts = 5, --重试次数
 @retry_interval = 5  --重试间隔--创建调度
declare @ftype int,@fstype int,@ffactor int
select @ftype=case @freqtype when 'day' then 4
     when 'week' then 8
     when 'month' then 16 end
 ,@fstype=case @fsinterval when 1 then 0 else 8 end
if @fsinterval<>1 set @time=0
set @ffactor=case @freqtype when 'day' then 0 else 1 endEXEC msdb..sp_add_jobschedule @job_name=@jobname, 
 @name = '时间安排',
 @freq_type=@ftype ,      --每天,8 每周,16 每月
 @freq_interval=1,     --重复执行次数
 @freq_subday_type=@fstype,   --是否重复执行
 @freq_subday_interval=@fsinterval,  --重复周期
 @freq_recurrence_factor=@ffactor,
 @active_start_time=@time     --下午17:00:00分执行
go

Answer 2

我在delphi中写了这样的程序，带进度条的，如果你想要，留下E_Mail

Answer 3

hnhb(不死鸟
请给我一份
[email protected]

Answer 4

给我一份，谢谢
[email protected]

Answer 5

我也想要
 [email protected]

Answer 6

我有 Delphi中如何将数据库Sql server中的数据库备份、如何恢复出来的代码，要的发email给我
email:[email protected]

Answer 7

谢谢，能给我一份吗？[email protected]

Answer 8

谢谢，能给我一份吗？[email protected]

Answer 9

谢谢，能给我一份吗？
[email protected]

Answer 10

也给我一份可以吗?
[email protected]

Answer 11

要啊，谢谢。
hnhb(不死鸟)厚道啊：）
[email protected]

Answer 12

多给我一个没关系吧，hnhb(不死鸟)？谢谢了

Answer 13

多给我一个没关系吧，hnhb(不死鸟)？谢谢了
[email protected]

Answer 14

先谢了
[email protected]

Answer 15

有这么好的事情？我也要哦，[email protected]

Answer 16

方便给我一份：
[email protected]

Answer 17

谁收到了有进度条的备份程序能否能我一份
[email protected]

Answer 18

我也来一份
[email protected]

Answer 19

来一份
[email protected]

Answer 20

备份
backup database database_name to disk='d:\backup\data\databasename.bak'
恢复
restore database database_name from disk='d:\backup\data\databasename.bak'
象写SQL 语句一样写在ADOQuery里就行了

Answer 21

有便宜的来一份
[email protected]

Answer 22

方便给来一份吗？！！谢！~
[email protected]

Answer 23

大虾给我一份吧：[email protected]

Answer 24

to: hnhb(不死鸟)
给我也发一分吧
[email protected]

Answer 25

to:hnhb(不死鸟)
给我也发一分吧!非常感谢!!!
[email protected]

Answer 26

to:hnhb(不死鸟)
给我也一份,谢谢！
[email protected]

Answer 27

to:hnhb(不死鸟)
给我也一份,谢谢！
[email protected]

Answer 28

to:hnhb(不死鸟)
哈哈,你一般上什么论坛,干脆放到一个地方算了,好多人要啊,我也是
[email protected]
谢谢

Answer 29

to:hnhb(不死鸟)
给我也一份,谢谢！
[email protected]

Answer 30

前两天我在CSDN中就看到有一篇 这样的文章 ，而且在SQL SERVER版也有很多这样的问题呀：
//数据备份我用delphi实现的：
unit backup;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, ComCtrls, DB, ADODB;type
  TFbackup = class(TForm)
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    Panel3: TPanel;
    btnClose: TBitBtn;
    btnBackup: TBitBtn;
    btnRestore: TBitBtn;
    pgBar: TProgressBar;
    Label1: TLabel;
    SaveDialog1: TSaveDialog;
    ADOQuery1: TADOQuery;
    procedure btnBackupClick(Sender: TObject);
    procedure btnRestoreClick(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Fbackup: TFbackup;implementation
uses dldata;
{$R *.dfm}procedure TFbackup.btnBackupClick(Sender: TObject);
var
  i:integer;
  device_is:boolean;
begin
with pgbar do
begin
pgbar.Max:=100;
pgbar.Min:=0;
pgbar.Position:=0;
pgbar.Step:=20;
end;
with savedialog1 do
  begin
    filter:='备份文件(*.dat)*.dat';
    defaultext:='dat';
    filename:='';
    options:=[ofhidereadonly,offilemustexist,ofpathmustexist];
    device_is:=false;
    if execute then
      begin
        statusbar1.Panels[1].Text:='正在备份中....';
try
        with adoquery1 do
          begin
            close;
            sql.Clear;
            sql.Add('execute sp_helpdevice');
            open;
            pgbar.Stepit;
            first;
            while not eof do
              begin
                if trim(fieldbyname('device_name').AsString)='dl_1' then
                  begin
                    device_Is:=true;
                    break;
                  end;//if fieldbyname('name').AsString='dl_1' then
                  next;
              end;//for i:=0 to recordcount-1 do
              pgbar.Stepit;
            //-----------------------------------------------------------
            if device_Is then
              begin
                close;
                sql.Clear;
                sql.Add('execute sp_dropdevice ''dl_1''');
                execsql;
              end;//if not device_Is then
              pgbar.Stepit;
            //------------------------------------------------------------
            close;
            sql.Clear;
            sql.Add('execute sp_addumpdevice ''disk'',''dl_1'','''+filename+'''');
            execsql;
            //--------------------------------------------------------
            pgbar.Stepit;
            close;
            sql.Clear;
            sql.Add('backup database dl to dl_1');
            execsql;
            pgbar.Stepit;
          end;//with adoquery1 do
except
  showmessage('备份失败！');
end;//try
      end;//if execute then
  end;//with savedialog1
  statusbar1.Panels[1].Text:='备份完成。';
end;
procedure TFbackup.btnRestoreClick(Sender: TObject);
begin
with pgbar do
begin
pgbar.Max:=100;
pgbar.Min:=0;
pgbar.Position:=0;
pgbar.Step:=50;
end;
if messagedlg('恢复数据库后必须重新登陆！是否继续？',mtwarning,[mbok,mbcancel],0)=mrok then
begin
statusbar1.Panels[1].Text:='正在恢复中....';
dm.dlconnection.Close;
dm.Free;
//try
with adoquery1  do
  begin
    close;
    sql.Clear;
    sql.Add('restore database dl from dl_1');
    execsql;
  end;//with do
//except
//  showmessage('备份文件不存在！ss');
//end;
pgbar.StepIt;pgbar.StepIt;
statusbar1.Panels[1].Text:='恢复完成.';
application.MainForm.Caption:='正在关闭系统....';
winexec(pchar(application.exename),sw_show);
application.Terminate;
end;//if messagedlg()=mrok
end;procedure TFbackup.btnCloseClick(Sender: TObject);
begin
close;
end;procedure TFbackup.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;end.备份：
begin
    pgbar.Max:=100;
    pgbar.Min:=0;
    pgbar.Step:=20;
     adoconnection1.Close;
     if adoconnection1.Connected then
     begin
        application.MessageBox('数据库数据正在使用','系统提示')
     end
     else
          begin
          try
            adocommand1.CommandText:='use master';
            pgbar.StepIt;
            adocommand1.Execute ;
            adocommand1.CommandText:='execute sp_helpdevice';
            pgbar.StepIt;
            adocommand1.Execute ;
            pgbar.stepit;
            adocommand1.CommandText:='backup database docmanage to disk=''c:\back1.bak'' with init';
            pgbar.StepIt;
            adocommand1.Execute ;
            adocommand1.CommandText:='backup log docmanage to back1';
            pgbar.StepIt;
            adocommand1.Execute;
            try
               aDOConnection1.Connected:=true;
            except
              ShowMessage('无法连接指定的数据库！');
              application.Terminate;
            end;
            form1.Hide;
              if messagedlg('数据库docmanage已成功备份到c:\back1.bak!是否继续？',mtwarning,[mbok],0)=mrok then
                 begin
                   form1.close
                 end;
          except
             on exception do
                 if ADOConnection1.InTransaction then
                     ADOConnection1.RollbackTrans
end;
end;
end;
还原：
 begin
            pgbar.Max:=100;
            pgbar.Min:=0;
            pgbar.Step:=20;
            try
                ADOCommand1.CommandText:='use master ';
                pgbar.StepIt;
                 pgbar.StepIt;
                adocommand1.Execute ;
                adocommand1.CommandText:='RESTORE database docmanage FROM DISK = ''c:\back.bak''  with replace ';
                pgbar.StepIt;                pgbar.StepIt;
                pgbar.StepIt;
                adocommand1.Execute ;
                 try
                     aDOConnection1.Connected:=true;
                 except
                    ShowMessage('无法连接指定的数据库！');
                    application.Terminate;
                 end;
                form1.Hide;
                  if messagedlg('c:\back.bak已成功还原到数据库docmanage！继续？',mtwarning,[mbok],0)=mrok then
                     begin
                       form2.close
                  end;
            except
               on exception do
                   if ADOConnection1.InTransaction then
                      ADOConnection1.RollbackTrans;
            end;
end;
end;
你试试看了我这里能用！！！！用Delphi程序实现起来不难，在Form中放上一个ADOConnection和一个ADOCommand,设好ADOConnection的DefaultDatabase和Connected为True,ADOCommand的Connection为ADOConnection1,CommandText写为backup database mydatabase to disk='\\mycomputer\mypath\bk_mydat.dat' with init,你想把数据备份到哪台机器上，就在那台机器上设置一个完全共享的目录即可，想同时备份多个数据库就在CommandText中写多条语句，在Form的onShow事件中加入ADOCommand1.Execute，然后利用Windows自带的“计划任务”程序，让你编译好的程序在某个时间执行即可，如果还有什么不懂，欢迎来信：[email protected]

Answer 31

给我也一份,谢谢！
[email protected]

Answer 32

真是好心人 给我一份了！
email:[email protected]

Answer 33

给我也一份,谢谢！
[email protected]

Answer 34

好心人,也给我一份,谢谢！
[email protected]

Answer 35

2ccc上好象有个现成的控件 你去看看

Answer 36

对不起，我的E-mail:[email protected]

Answer 37

我来迟了吗？
msn:[email protected]

Answer 38

我也排队！麻烦了！[email protected]

Answer 39

to:hnhb(不死鸟)
给我也一份,谢谢！
[email protected]

Answer 40

to:hnhb(不死鸟)
给我也一份,谢谢！
[email protected]

Answer 41

hnhb(不死鸟)
也给我发一份，谢谢
[email protected]

Answer 42

排队来晚了。呵呵，能给我一个吗？
[email protected]

Answer 43

不知道来晚没有,我也想要一份 
[email protected]

Answer 44

不知道来晚没有,我也想要一份 
[email protected]

Answer 45

hnhb(不死鸟
请给我一份 [email protected]

Answer 46

hnhb(不死鸟)
请给我一份
谢谢
[email protected]

Answer 47

hnhb（不死鸟）
给我一份吧！
谢谢
[email protected]

Answer 48

To:
hnhb（不死鸟）
谢谢
[email protected]

Answer 49

太复杂
有人要的联系我：[email protected]
我的简单，实用~！~！不行你骂我~！~！

Answer 50

给我一份吧谢谢
[email protected]

Answer 51

致:
hnhb（不死鸟）我诚意要求一份！谢谢
[email protected]

Answer 52

这么多人要呀我也要[email protected]

Answer 53

大虾，me  too！
[email protected]

Answer 54

也给我一份啊
我刚好现在要急着用这个东西
 [email protected]

Answer 55

我也要一份[email protected]
谢谢