示例 A. 备份整个 MyNwind 数据库 说明 MyNwind 数据库仅用于演示。 下例创建用于存放 MyNwind 数据库完整备份的逻辑备份设备。-- Create a logical backup device for the full MyNwind backup. USE master EXEC sp_addumpdevice 'disk', 'MyNwind_1', DISK ='c:\Program Files\Microsoft SQL Server\MSSQL\BACKUP\MyNwind_1.dat'-- Back up the full MyNwind database. BACKUP DATABASE MyNwind TO MyNwind_1
with adoquery1 do begin close; sql.Clear; sql.add('user Master '); sql.add(' backup database yejs to disk=''d:\dat.dat'''); ExecSQL; end;
做完全共享,用下面的方法备份:backup database 数据库 to disk='\\你的计算机名\共享目录名\备份文件名'---或通过映射网络驱动器(这样可以解决权限问题)--1.映射 exec master..xp_cmdshell 'net use z: \\xz\c$ "" /user:xz\administrator'/*--说明: z: 是映射网络路径对应本机的盘符,与下面的备份对应 \\xz\c$ 是要映射的网络路径 xz\administrator xz是远程的计算机名,administrator是登陆的用户名 --*/--2.进行数据库备份 backup database 数据库名 to disk='z:\备份文件名' --3.备份完成后删除映射 exec master..xp_cmdshell 'net use z: /delete' =======================================================这是我看到的一片关于数据库备份与恢复的文章,不知道对你有没有帮助. 利用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分执行 =================================================================前两天我在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]
A. 备份整个 MyNwind 数据库
说明 MyNwind 数据库仅用于演示。
下例创建用于存放 MyNwind 数据库完整备份的逻辑备份设备。-- Create a logical backup device for the full MyNwind backup.
USE master
EXEC sp_addumpdevice 'disk', 'MyNwind_1',
DISK ='c:\Program Files\Microsoft SQL Server\MSSQL\BACKUP\MyNwind_1.dat'-- Back up the full MyNwind database.
BACKUP DATABASE MyNwind TO MyNwind_1
begin
close;
sql.Clear;
sql.add('user Master ');
sql.add(' backup database yejs to disk=''d:\dat.dat''');
ExecSQL;
end;
这个是怎么回事呢,请指教
exec master..xp_cmdshell 'net use z: \\xz\c$ "" /user:xz\administrator'/*--说明:
z: 是映射网络路径对应本机的盘符,与下面的备份对应
\\xz\c$ 是要映射的网络路径
xz\administrator xz是远程的计算机名,administrator是登陆的用户名
--*/--2.进行数据库备份
backup database 数据库名 to disk='z:\备份文件名'
--3.备份完成后删除映射
exec master..xp_cmdshell 'net use z: /delete'
=======================================================这是我看到的一片关于数据库备份与恢复的文章,不知道对你有没有帮助.
利用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分执行
=================================================================前两天我在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]
还有一种方法,使用SQLSERVER提供的组件,安装SQLSERVER后,我们可以在IMPORT LIBRARY中导入一些SQLDMO等相关的库,者其中包含了对SQLSERVER的操作。
// 执行备份设备文件
//------------------------------------------------------------------------------------------------------------------------
给你个自己写的函数可以参考一下,只是其中一部份参数:INT_PATHFullNAME为
当前要存盘的路径+文件名,当然数据库名也可传送的,这看你的需要了.
procedure TMainFrm.BACKUP(INT_PATHFullNAME:string);
var
CommandType: String;
OleFileName: TextFile;
begin
CommandType := ' USE pubs '
+' BACKUP DATABASE pubs TO disk ='''
+ INT_PATHFullNAME + '''';
try
AssignFile(OleFileName, INT_PATHFullNAME);
Reset(OleFileName);
CloseFile(OleFileName);
Erase(OleFileName);
except
on EInOutError do
MessageDlg('File I/O error.', mtError, [mbOk], 0);
end; with DMBacu do
begin
QueryBackup.SQL.Clear;
QueryBackup.SQL.Add(CommandType);
QueryBackup.ExecSQL;
end;
end;