vfp sql server 2000 进行备份恢复

主题：VFP+SQL Server 2000怎样进行数据库备份和恢复？
作者：itzhiren
等级：
信誉值：100
所属社区：其他数据库开发VFP
问题点数：20
回复次数：26
发表时间：2005-7-26 11:10:07
VFP+SQL Server 2000怎样进行数据库备份和恢复？
我看过myf1上的一篇帖子，但是看不太明白，感觉太麻烦了，请问各位高手，VFP有没有什么备份的命令之类的
怎样进行备份与恢复？
westbulls westbulls 信誉：100 2005-7-26 11:52:16 得分: 0
可以调用SQLSERVER自己的命令来备份和还原数据库
=sqlexec(cnn,"backup database lib to disk='c:\lib.dat'")
=sqlexec(cnn,"restore database lib from disk='c:\lib.dat'")
但是备份还原的文件只能够是服务器上的，如果要备份到本地或者还原本地的文件，可能只有采用映射网络驱动器的方法了。

Top
itzhiren itzhiren 信誉：100 2005-7-26 12:24:22 得分: 0
怎样映射？
Top
westbulls westbulls 信誉：100 2005-7-26 12:48:50 得分: 5
1.在服务器上共享一个目录,比如f:\data
2.在网上邻居打开你的服务器,找到f:\data,占击工具栏上的映射网络驱动器,比如k:
3.上现语句改为
=sqlexec(cnn,"backup database lib to disk='f:\data\lib.dat'")
=sqlexec(cnn,"restore database lib from disk='f:\data\lib.dat'")
4.你可以在你的k:盘上操作你的备份及恢复文件,实际上是服务器上的f:\data目录.
不过这种做法按全性比较低
Top
apple_8180 十豆三信誉：305 2005-7-26 14:36:52 得分: 15
转帖：
在VFP里操作和管理SQL SERVER(介绍SQL-DMO) (1)
在论坛混了这么多年，看到的一个很明显的趋势是，用VFP和SQL SERVER来做系统的网友越来越多。

怎么从VFP里来操作或者管理SQL SERVER也成为很多人关心的问题。

对SQL SERVER的数据操作，可以用视图，SPT或者ADO来做，但对服务器本身的管理，似乎只有用SPT来发送一些命令了。

其实，微软为客户端操作SQL SERVER开发了一套完整的工具，这就是SQL - DMO (Distributed Management Objects). 这是一套COM组件，可以在各种语言里使用，VFP里自然也可以用了。

我准备花点时间，写些这方面的介绍文章，然后做个实例，算是我通过MCDBA后，给大家的礼物吧。

下面的介绍和例子，是针对SQL SERVER 2000和VFP7的。

一. 用SQL -DMO的必要性
大部分VFPER开发的程序，都是中小规模的系统，因为这是VFP最适用的范围。

而这样的系统，很多情况下是，客户端没有专业IT人士维护，更不要说专门的DBA了。

对于使用SQL SERVER的系统，就带来了一些问题。

SQL SERVER是一套比较大的数据库专业软件，是经常需要维护和清理的，而我们这些系统开发者，总不能老跑去用户那里做维护工作吧，尤其对商业软件来说，这是很大的成本了。

如果可以把对SQL SERVER的维护工作放到自己的程序里，甚至把SQL SERVER的安装无缝并入到自己的程序的安装包里，相信大家都会很乐意的。

DMO的功能就能满足我们的这些需要。

通过它，可以从程序里用命令方式来操作SQL SERVER：停止/启动服务，建立数据库和表，添加用户和权限，备份/恢复数据库，数据导入/导出/发布... DMO的作用就是把我们能在Enterprise Manager里完成的功能，完全用代码来做.
二. 微软的桌面数据引擎(Desktop Database Engine)
我们都知道SQL SERVER 2000有四个版本: 个人版，开发者版，标准班和企业版. 其实，还有一个版本，就是桌面数据引擎(DDE)。

DDE几乎具有
SQL SERVER标准版和企业版的所有功能，不能支持的只是少数几个不常用的功能。

而它和其它版本的区别是，DDE没有任何图形管理界面，没有ENTERPRISE MANAGER，没有查询分析器等等工具。

对它的管理，主要是通过DMO或者专门的API来进行，它的另一个优点是，提供了安装程序，可以直接加到第3方软件里进行安装。

每个版本的SQL SERVER CD里都带有DDE，在MSDE目录下，运行SETUP程序就可以安装。

至于怎么把它加到自己的程序里安装，大家查一下SQL SERVER的帮助文件就可以找到。

DDE的限制是：只适宜中小型系统(比如没有5个以上的用户同时连接和运行大型SQL命令)，如果同时访问的用户很多，DDE就会比正常的SQL SERVER慢了。

这样，DDE+DMO就可以实现我们上面所要求的功能了。

这种做法甚至可以不让用户知道你是在使用SQL SERVER做为数据库。

当然，DMO不是只能操作DDE，它可以操作所有版本的SQL SERVER。

三. DMO的安装
其实DMO主要就是一个DLL文件而已: SQLDMO.DLL。

具体位置在C:\Program Files\Microsoft SQL Server\80\Tools\Binn目录里, 在同一目录里还有个帮助文件Sqldmo80.hlp. 如果你在程序里不能使用DMO，找到这个DLL文件，注册一下，就可以了。

另外在C:\Program Files\Microsoft SQL Server\80\Tools\ Devtools\Samples\Sqldmo 目录下，有SQLDMO的例子，但都是VB和VC++的。

VB的例子和VFP很接近的.
四. 初步接触DMO
在这里写几个简单的句子，来看看DMO的强大. 这些命令可以直接在命令窗口里一行一行测试, 只是用它们来显示数据库的信息。

至于添加数据库，数据表，备份和恢复等比较复杂的功能，得在实例里做。

oServer=CreateObject("SQLDMO.SQLServer") &&建立SERVER对象
oServer.Connect("Snoopy","sa","778899") &&连接到你的服务器
? oServer.Databases.Count &&显示服务器上的数据库总数
? oServer.Databases.Item(1).Name &&显示第一个数据库的名字
oDB=oServer.Databases("PUBS") &&建立数据库对象
? oDB.Tables.Count &&显示库里表的数目
oTable=oDB.Tables("Titles") &&建立表对象
? oTable.Rows &&显示表里的记录数
? oTable.Columns.Count &&显示表的列数
**显示列的属性
? oTable.Columns(1).Name
? oTable.Columns(1).type
? oTable.Columns(1).Datatype
? oTable.Columns(1).Identity
? oTable.Columns(1).InPrimaryKey
例子：
Backup和Restore数据库
oServer=CreateObject("SQLDMO.SQLServer") &&建立SERVER对象oServer.Connect("Snoopy","sa","778899") &&连接到你的服务器
**备份
oBackup=CreateObject("SQLDMO.Backup") &&建立备份对象oBackup.Database="PUBS" &&指定备份数据库
oBackup.Password="8899" &&给备份文件加密码
oBackup.Files="D:\Temp\PUBBack.Dat" &&指定目标文件oBackup.SQLBackup(oServer) &&运行备份命令，速度很快的
**备份恢复
oRestore=CreateObject("SQLDMO.Restore")
oRestore.Database="PUBS"
oRestore.Files="D:\Temp\PUBBack.Dat"
oRestore.SQLRestore
oRestore.SQLRestore(oServer) &&先试不加密码，备份失败oRestore.Password="8899"
oRestore.SQLRestore(oServer)
Top
apple_8180 十豆三信誉：305 2005-7-26 14:39:51 得分: 0
接上：
SQL SERVER提供几种数据库备份方式，
一种是完整备份(Full Backup), 第二种是差异备份(Differential Backup)，第三种是日志备份，第四种是文件备份
完整备份是把整个数据库做个备份，差异备份只是备份进行了完整备份后数据库里的新变化。

当数据库很大时，完整备份很费空间和时间，可以根据情况定期做，比如每周或者每月做一次完整备份。

其它时间可以进行差异备份，比如每天一次，或者半天一次，也可以结合进行日志备份。

文件备份是直接备份数据库的数据和日志文件。

和在操作系统里做备份一样.
在恢复的时候，只要先恢复完整备份，然后恢复最后一个差异备份就可以。

如果有日志备份，还需要恢复差异备份后所做的日志备份。

备份种类通过备份对象的Action属性来决定.
oBackup.Action=0 && 参数：0 - 完整备份,1- 差异备份, 2- 文件备份, 3 -日志备份
Server对象的一些属性和方法
属性
AutoReConnect: 当连接断开，后是否自动重连
ConnectionID: 本连接的ID
HostName: 本地机器的名字
Isdbcreator, Isdiskadmin, Isprocessadmin, Issecurityadmin, Isserveradmin, Issetupadmin, Issysadmin: 返回当前连接用户是否属于某类SERVER ROLE，比如是不是SA
LoginTimeout: 决定连接超时时间，默认为60秒
SaLogin: 当前连接是不是SA
Status：服务器当前状态
V ersionMajor,V ersionMinor: SQL SERVER的版本号
方法:
AttachDB, DetachDB: 添加或者剥离数据库
Connect, Disconnect, Close: 连接，断开，或者关闭当前服务器对象(oServer)
V erifyConnection: 测试当前连接是否断开
Reconnect: 重新连接
Start, Stop, Shutdown: 用来启动，停止或者关闭服务器
BeginTransaction, RollbackTransaction, CommitTransaction: 操作事务EnumServerAttributes: 返回服务器的大部分设置参数
EnumLocks: 返回服务器上所有的加锁进程
KillProcess:强行中断一个进程
在VFP里来操作和管理SQL SERVER (2) (介绍SQL-DMO)
用DMO来建立任务，并让它定时运行. 执行环境必须是NT或者WINDOWS 2000，因为需要运行SQL AGENT
***建立任务(JOB)
oJob=CreateObject("SQLDMO.Job") &&创建任务对象
="Pubs_Daily_Backup" &&任务名称
oServer.JobServer.Jobs.Add(oJob) &&加到SQL SERVER的任务里
oJob.BeginAlter &&开始定义任务
oJobStep=CreateObject("SQLDMO.JobStep") &&创建任务步骤对象
= "Step_1" &&步骤名称
oJobStep.StepID = 1 &&步骤号码
oJobStep.DatabaseName="Pubs" &&数据库名称
oJobStep.SubSystem= "TSQL" &&任务类型，可以是TSQL或者操作系统命令(CmdExec), 或者ActiveScripting
cFName="PubBack"+Dtoc(Date(),1)+".dat" &&备份目标文件名
mand ="Backup database Pubs to Disk='D:\Temp\"+cFname+"' With Password='7788'" &&执行备份的TSQL命令
oJobStep.OnFailAction = 2 && 如果任务失败退出。

也可以设成发送EMAIL或者用NT里的NETSEND发信息
oJobStep.OnSuccessAction= 1 && 如果任务成功，退出。

oJob.JobSteps.Add(oJobStep) &&添加任务步骤
oJob.StartStepID = 1 &&从第一步开始执行，对多步骤的任务起作用
oJob.DoAlter &&保存修改
***把任务加到SCHEDULER里
oJobSchedule =CreateObject("SQLDMO.JobSchedule") &&创建Schedule对象
oJob = oServer.JobServer.Jobs("Pubs_Daily_Backup")&&创建任务对象
= "Daily_Execution" &&名称
oJobSchedule.Schedule.FrequencyType= 4 && 运行频率，4是每日运行oJobSchedule.Schedule.FrequencyInterval = 1 &&运行间隔，1是每天
oJobSchedule.Schedule.ActiveStartDate =Dtoc(Date(),1) &&开始日期(今天)，必须是yyyymmdd格式
oJobSchedule.Schedule.ActiveStartTimeOfDay = "233000" &&开始时间(晚上11点30)，必须是hhmmss格式
**下面2句设置是使任务永不过期
oJobSchedule.Schedule.ActiveEndDate=99991231 &&no end date
oJobSchedule.Schedule.ActiveEndTimeOfDay =235959 &&No end time
添加任务到SCHEDULE里
oJob.BeginAlter
oJob.JobSchedules.Add(oJobSchedule)
oJob.DoAlter
上述命令我在VFP7里都测试成功，在SQL SERVER里也看到了新添加的命令和运行设置，但因为我是用的WINDOWS ME，没法测试任务是否真的运行了。

哪位有环境，可以帮我试试
Top
westbulls westbulls 信誉：100 2005-7-26 15:07:04 得分: 0
to apple_8180(十豆三) :
你所列的sql dmo是一种对象管理的方式,但是使用起来有点太麻烦了,而且也不能够解决备份文件位置的问题,其实本身T-SQL中本身就集成了很多方法,我想还是尽量不要使用SQL DMO好一些.
SQL DMO本身是SQL SERVER的SDK,还有估计下一版本SQL SERVER2005可能会换成.NET语句了,呵呵.
Top
apple_8180 十豆三信誉：305 2005-7-26 15:31:20 得分: 0
而且也不能够解决备份文件位置的问题
-------------------------------------
to : westbulls(westbulls)
oBackup.Files="D:\Temp\PUBBack.Dat" &&指定目标文件
Top
apple_8180 十豆三信誉：305 2005-7-26 15:42:46 得分: 0
下面这个帖子中的存储过程比较麻烦，不过调用起来比较简单。

------------------------------------------------
SQL SERVER2000数据库备份和恢复存储过程
我自己写的2个过程和一个函数,用于SQL SERVER2000数据库备份和恢复
拿出来和大家交流一下,过程和函数的详细说明在代码中
谢谢
/*备份数据库的过程*/
if exists(
select * from sysobjects
where name='pr_backup_db' and xtype='p'
)
begin
drop proc pr_backup_db
end
go
create proc pr_backup_db
@flag varchar(20) out,
@backup_db_name varchar(128),
@filename varchar(1000) --路径＋文件名字
as
declare @sql nvarchar(4000),@par nvarchar(1000)
if not exists(
select * from master..sysdatabases
where name=@backup_db_name
)
begin
select @flag='db not exist' /*数据库不存在*/
return
end
else
begin
if right(@filename,1)<>'\' and charindex('\',@filename)<>0
begin
select @par='@filename varchar(1000)'
select @sql='BACKUP DA TABASE '+@backup_db_name+' to disk=@filename with init'
execute sp_executesql @sql,@par,@filename
select @flag='ok'
return
end
else
begin
select @flag='file type error' /*参数@filename输入格式错误*/
return
end
end
GO
说明:pr_backup_db过程是备份你的数据库
/*创建函数,得到文件得路径*/
if exists(
select * from sysobjects
where name='fn_GetFilePath' and xtype='fn'
)
begin
drop function fn_GetFilePath
end
go
create function fn_GetFilePath(@filename nvarchar(260))
returns nvarchar(260)
as
begin
declare @file_path nvarchar(260)
declare @filename_reverse nvarchar(260)
select @filename_reverse=reverse(@filename)
select @file_path=substring(@filename,1,len(@filename)+1-charindex('\',@filename_reverse)) return @file_path
end
GO
/*恢复数据库的过程*/
if exists(
select * from sysobjects
where name='pr_restore_db' and xtype='p'
)
begin
drop proc pr_restore_db
end
go
CREA TE proc pr_restore_db
@flag varchar(20) out, /*过程运行的状态标志,是输入参数*/
@restore_db_name nvarchar(128), /*要恢复的数据名字*/
@filename nvarchar(260) /*备份文件存放的路径+备份文件名字*/
as
declare @proc_result tinyint /*返回系统存储过程xp_cmdshell运行结果*/
declare @loop_time smallint /*循环次数*/
declare @max_ids smallint /*@tem表的ids列最大数*/
declare @file_bak_path nvarchar(260) /*原数据库存放路径*/
declare @flag_file bit /*文件存放标志*/
declare @master_path nvarchar(260) /*数据库master文件路径*/
declare @sql nvarchar(4000),@par nvarchar(1000)
declare @sql_sub nvarchar(4000)
declare @sql_cmd nvarchar(100)
declare @sql_kill nvarchar(100)
/*
判断参数@filename文件格式合法性，以防止用户输入类似d: 或者c:\a\ 等非法文件名参数@filename里面必须有'\'并且不以'\'结尾
*/
if right(@filename,1)<>'\' and charindex('\',@filename)<>0
begin
select @sql_cmd='dir '+@filename
EXEC @proc_result = master..xp_cmdshell @sql_cmd,no_output
IF (@proc_result<>0) /*系统存储过程xp_cmdshell返回代码值:0(成功）或1（失败）*/ begin
select @flag='not exist' /*备份文件不存在*/
return /*退出过程*/
end
/*创建临时表,保存由备份集内包含的数据库和日志文件列表组成的结果集*/
create table #tem(
LogicalName nvarchar(128), /*文件的逻辑名称*/
PhysicalName nvarchar(260) , /*文件的物理名称或操作系统名称*/
Type char(1), /*数据文件(D) 或日志文件(L)*/
FileGroupName nvarchar(128), /*包含文件的文件组名称*/
[Size] numeric(20,0), /*当前大小（以字节为单位）*/
[MaxSize] numeric(20,0) /*允许的最大大小（以字节为单位）*/
)
/*
创建表变量，表结构与临时表基本一样
就是多了两列,
列ids（自增编号列）,
列file_path,存放文件的路径
*/
declare @tem table(
ids smallint identity, /*自增编号列*/
LogicalName nvarchar(128),
PhysicalName nvarchar(260),
File_path nvarchar(260),
Type char(1),
FileGroupName nvarchar(128)
)
insert into #tem
execute('restore filelistonly from disk='''+@filename+'''')
/*将临时表导入表变量中,并且计算出相应得路径*/
insert into @tem(LogicalName,PhysicalName,File_path,Type,FileGroupName)
select LogicalName,PhysicalName,dbo.fn_GetFilePath(PhysicalName),Type,FileGroupName from #tem
if @@rowcount>0
begin
drop table #tem
end
select @loop_time=1
select @max_ids=max(ids) /*@tem表的ids列最大数*/
from @tem
while @loop_time<=@max_ids
begin
select @file_bak_path=file_path
from @tem where ids=@loop_time
select @sql_cmd='dir '+@file_bak_path
EXEC @proc_result = master..xp_cmdshell @sql_cmd,no_output
/*系统存储过程xp_cmdshell返回代码值:0(成功）或1（失败）*/
IF (@proc_result<>0)
select @loop_time=@loop_time+1
else
BREAK /*没有找到备份前数据文件原有存放路径，退出循环*/
end
select @master_path=''
if @loop_time>@max_ids
select @flag_file=1 /*备份前数据文件原有存放路径存在*/
else
begin
select @flag_file=0 /*备份前数据文件原有存放路径不存在*/
select @master_path=dbo.fn_GetFilePath(filename)
from master..sysdatabases
where name='master'
end
select @sql_sub=''
/*type='d'是数据文件,type='l'是日志文件*/
/*@flag_file=1时新的数据库文件还是存放在原来路径，否则存放路径和master数据库路径一样*/
select @sql_sub=@sql_sub+'move '''+LogicalName+''' to '''
+case type
when 'd' then case @flag_file
when 1 then File_path
else @master_path
end
when 'l' then case @flag_file
when 1 then File_path
else @master_path
end
end
+case type
when 'd' then @restore_db_name
+'_DA TA'
+convert(sysname,ids) /*给文件编号*/
+'.'
+right(PhysicalName,3) /*给文件加入后缀名,mdf or ndf*/
+''','
when 'l' then @restore_db_name
+'_LOG'
+convert(sysname,ids) /*给文件编号*/
+'.'
+right(PhysicalName,3) /*给文件加入后缀名,mdf or ndf*/
+''','
end
from @tem
select @sql='RESTORE DA TABASE @db_name FROM DISK=@filename with ' select @sql=@sql+@sql_sub+'replace'
select @par='@db_name nvarchar(128),@filename nvarchar(260)'
/*关闭相关进程，把相应进程状况导入临时表中*/
select identity(int,1,1) ids, spid
into #temp
from master..sysprocesses
where dbid=db_id(@restore_db_name)
if @@rowcount>0 --找到相应进程
begin
select @max_ids=max(ids)
from #temp
select @loop_time=1
while @loop_time<=@max_ids
begin
select @sql_kill='kill '+convert(nvarchar(20),spid)
from #temp
where ids=@loop_time
execute sp_executesql @sql_kill
select @loop_time=@loop_time+1
end
end
drop table #temp
execute sp_executesql @sql,@par,@db_name=@restore_db_name,@filename=@filename select @flag='ok' /*操作成功*/
end
else
begin
SELECT @flag='file type error' /*参数@filename输入格式错误*/
end
GO
--run
--备份数据库test_database
declare @fl varchar(10)
execute pr_backup_db @fl out,'test_database','c:\test_database.bak'
select @fl
--恢复数据库,输入的参数错误
declare @fl varchar(20)
exec pr_restore_db @fl out,'sa','c:\'
select @fl
--恢复数据库,即创建数据库test_database的复本test_db
declare @fl varchar(20)
exec pr_restore_db @fl out,'test_db','c:\test_database.bak'
select @fl
以上过程和函数在MS SQL2000运行成功,由于MS SQL7不支持用户自定义函数和表变量,要在MS SQL7下使用可以把函数fn_GetFilePath改写成过
程,把过程pr_restore_db中的表变量改写为临时表即可运行,有兴趣的朋友可以试试!
Top
westbulls westbulls 信誉：100 2005-7-26 15:55:27 得分: 0
oBackup.Files="D:\Temp\PUBBack.Dat" &&指定目标文件
我的意思是只能够指定服务器路径,如果在客户机上运行就无法指定到本机这个问题,呵呵.
Top
itzhiren itzhiren 信誉：100 2005-7-29 9:32:51 得分: 0
对呀，怎样实现将文件备份到客户机呢？
Top
apple_8180 十豆三信誉：305 2005-7-29 10:01:45 得分: 0
把这句
oBackup.Files="D:\Temp\PUBBack.Dat"
改为：
oBackup.Files="\\客户机\D\Temp\PUBBack.Dat"
试试，此种方法真没用过，试试吧。

Top
westbulls westbulls 信誉：100 2005-7-29 17:33:49 得分: 0
对于"\\客户机\D\Temp\PUBBack.Dat"这句来说，要求服务器必须有能够访问客户机的权限，我想操作起来是不太安全。

我们在给客户做实施的时候一般采用两种方案备份：
1、将数据备份在服务器的指定硬盘或者磁带机上。

2、采用BCP方法将全部数据导出，然后用压缩软件打包。

对于第一种，看来只能够放在服务器上了，而对于第二种，可以实现数据备份到本机上，但是要求客户机上必须要有能够执行BCP命令的环境才可以。

Top
itzhiren itzhiren 信誉：100 2005-7-30 11:30:00 得分: 0
什么是BCP命令？需要怎样的环境？
Top
itzhiren itzhiren 信誉：100 2005-7-30 16:53:26 得分: 0
oServer=CreateObject("SQLDMO.SQLServer") &&建立SERVER对象
oServer.Connect("Snoopy","sa","778899") &&连接到你的服务器
**备份
oBackup=CreateObject("SQLDMO.Backup") &&建立备份对象
oBackup.Database="PUBS" &&指定备份数据库
oBackup.Password="8899" &&给备份文件加密码
oBackup.Files="D:\Temp\PUBBack.Dat" &&指定目标文件
oBackup.SQLBackup(oServer) &&运行备份命令，速度很快的
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////
OLE IDispatch异常代码3201出自Microsoft SQL-DMO（ODBC SQLState:42000）:[Microsoft][ODBC SQL Server Driver][SQL Server]无法打开部分设备'D:\Temp\Back.Dat'。

设备出现错误或设备脱机。

详细信息请参阅SQL Server错误日志。

[Microsoft][ODBC SQL Server Driver][SQL Server]BACKUP DA TABASE 操作异常终止。

...
Top
itzhiren itzhiren 信誉：100 2005-7-30 16:56:27 得分: 0
哦，我知道了，先将这个'D:\Temp\Back.Dat'路径及文件都建好之后，就没有错误了
Top
aspnet003 aspnet003 信誉：100 2005-8-1 9:40:44 得分: 0
关注
Top
itzhiren itzhiren 信誉：100 2005-8-1 9:42:11 得分: 0
恢复备份的时候是不是需要先断开连接呀？可是当使用以下代码的时候：
oServer=CreateObject("SQLDMO.SQLServer") &&建立SERVER对象
oServer.Connect("(local)","sa","") &&连接到你的服务器
**备份恢复
m.bfwj=ALLTRIM(thisform.bflj.V alue)
oRestore=CreateObject("SQLDMO.Restore")
oRestore.Database="ZW"
oRestore.Files=m.bfwj
oServer.disconnect
oRestore.SQLRestore(oServer)
=MESSAGEBOX('恢复完毕，请退出系统重新登录！',64,'恢复成功')
提示错误：
OLE IDispatch异常代码20512出自Microsoft SQL-DMO：
[SQL-DMO]此服务器已经断开。

必须重新连接以执行此操作。

...
当将以上代码去掉oServer.disconnect这一句的时候，又提示错误：
OLE IDispatch异常代码3101出自Microsoft SQL-DMO（ODBC SQLState:42000）:[Microsoft][ODBC SQL Server
Driver][SQL Server]因为数据库正在使用，所以未能获得对数据库的排他访问权。

[Microsoft][ODBC SQL Server Driver][SQL Server]RESTORE DA TABASE 操作异常终止。

... 请问这个怎么解决呢？
Top
itzhiren itzhiren 信誉：100 2005-8-1 10:40:01 得分: 0
把这句
oBackup.Files="D:\Temp\PUBBack.Dat"
改为：
oBackup.Files="\\客户机\D\Temp\PUBBack.Dat"
试试，此种方法真没用过，试试吧。

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
这种方法会提示：上述文件名无效。

还有没有别的方法？
Top
apple_8180 十豆三信誉：305 2005-8-1 10:57:54 得分: 0
上面的问题是你在执行恢复时，有其他连接句柄，改为：sqldisconnect(0) &&即在恢复前断开所有连接。

oServer=CreateObject("SQLDMO.SQLServer") &&建立SERVER对象oServer.Connect("(local)","sa","") &&连接到你的服务器
**备份恢复
m.bfwj=ALLTRIM(thisform.bflj.V alue)
oRestore=CreateObject("SQLDMO.Restore")
oRestore.Database="ZW"
oRestore.Files=m.bfwj
oServer.disconnect
oRestore.SQLRestore(oServer)
=MESSAGEBOX('恢复完毕，请退出系统重新登录！',64,'恢复成功') --------------------------
至于oBackup.Files="\\客户机\D\Temp\PUBBack.Dat"
这种方式，我试一下。

给你答复。

Top
apple_8180 十豆三信誉：305 2005-8-1 11:12:02 得分: 0
oBackup.Files="\\客户机\D\Temp\PUBBack.Dat"
这种方式刚刚试过了，是没有问题的，不过要有以下前提：
1、数据库所在服务器必须有访问客户机的权限，如果客户机是98就不用设置了，如果客户机是2k或XP，那么客户机上必须有服务器可读写权限的用户。

2、客户机上的这个文件夹必须是共享的，而且可读写。

通过以上可以看出，这样客户机的安全性问题就难解决了，所以推荐只需把数据库备份到服务器就够了。

只要备份目的达到了，就可以了，没有必要写到客户机上。

Top
LAIY ANGPJ 小丑信誉：110 2005-8-2 10:55:00 得分: 0
这是我的一段代码:供参考.:
1.数据备份:
Close All
Clear
mypath_old=Sys(5)+Sys(2003)
mypath_new=Alltrim(Alltrim(mypath_old)+'\MYDBCBF')
If !Directory("&MYPA TH_new.")
Md &mypath_new.
Endif
Set Default To &mypath_new.
mydbf_old=Getfile('bak','','',1,'请输入或选定备份文件名')
If Len(mydbf_old)=0
=Messagebox('你刚才没有录入任何文件名，备份没有成功!!',32,'提示信息')
Set Default To &mypath_old.
Else
mydbf_path=Left(mydbf_old,At('\',mydbf_old,Occurs('\',mydbf_old))-1)
If !Directory("&MYDBF_path.")
Md &mydbf_path.
ENDIF
ERASE &MYDBF_old.
handle=SQLExec(con,"backup database mydbc to disk=?MYDBF_old")
Set Default To &mypath_old.
If handle>0
=Messagebox('(^_^)数据成功备份到【'+mydbf_path+' 】文件夹下! ',64,'数据库备份') Else
=Messagebox(Message(),16,'数据库备份')
Endif
Endif
二.恢复:
Close All
Clear
mypath_old=Sys(5)+Sys(2003)
mypath_new=Alltrim(Alltrim(mypath_old)+'\MYDBCBF')
Set Default To &mypath_new.
mydbf=Getfile('bak','','',1,'请选定要恢复的文件名')
Restore From mypath_old+'\myurl\url' Additive
sql_server=Alltrim(my_server)
sql_path=Alltrim(Right(sql_server,Len(sql_server)-Atc('\',sql_server)))
If Len(sql_path)=0
sql_restore_mdf='C:\Program Files\Microsoft SQL Server\MSSQL\Data\mydbc.MDF'
sql_restore_ldf='C:\Program Files\Microsoft SQL Server\MSSQL\Data\mydbc_log.ldf'
Else
sql_restore_mdf='C:\Program Files\Microsoft SQL Server\MSSQL$'+sql_path+'\Data\mydbc.MDF'
sql_restore_ldf='C:\Program Files\Microsoft SQL Server\MSSQL$'+sql_path+'\Data\mydbc_log.ldf'
Endif
*now_timer=1
Try
=SQLDisconnect(con)
Catch
Finally
Endtry
=SQLSetprop(0,"displogin",3) &&永不显示信任连接提示
myurl="driver=sql server;server="+Alltrim(my_server)+;
";uid=sa;pwd="+Alltrim(my_pwd)+;
";database=MASTER"
con_master=Sqlstringconnect(myurl)
If con_master<0
=Messagebox('<@_@>本机已与服务器失去连接,您将退出本系统!',16,'系统信息')
Else
handle=SQLExec(con_master,"RESTORE DA TABASE mydbc FROM DISK=?MYDBF With Replace;
,Move 'MYDBC_DA TA' To ?SQL_RESTORE_mdf';
,Move 'MYDBC_LOG' To ?SQL_RESTORE_LDF'")
If handle>0
=MESSAGEBOX('^_^数据恢复成功!',32,'数据恢复')
Try
=SQLDisconnect(con_master)
Catch
Finally
Endtry
=SQLSetprop(0,"displogin",3) &&永不显示信任连接提示
myurl="driver=sql server;server="+Alltrim(my_server)+;
";uid=sa;pwd="+Alltrim(my_pwd)+;
";database=mydbc"
con=Sqlstringconnect(myurl)
If con<0
=Messagebox('<@_@>本机已与服务器失去连接,您将退出本系统!',16,'系统信息')
Else
now_timer=0
Endif
Else
=Messagebox(Message(),16,'数据恢复')
Endif
Endif
Set Default To &mypath_old.
Top
LAIY ANGPJ 小丑信誉：110 2005-8-2 11:04:49 得分: 0
数据备份不用多作解释.对于数据恢复:
1.要注意在选定恢复文件时可能会改变当前路径.要在恢复数据后还原当前路径.
2.测试与数据源的连接.因为SQL2000的数据库MASTER等是自带的,只要测试能否连接上其中一个就行.
因为在恢复时可能找不到你要恢复的自定义数据库,所以要测试SQL2000的数据表.
3.SQL2000的安装可能有自定义实例这个也要考虑.比方说你的服务实例名是SERVER那SQL2000生成的文件夹是:MSSQL$SERVER而不是MSSQL
4.在恢复数据时要断开与当前数据库的连接(与上面所述,用SQL2000的自带数据库作为当前连接),否则会产生异常.
5.数据恢复成功后,要恢复与自定义数据库的连接.
Top
westbulls westbulls 信誉：100 2005-8-2 14:09:40 得分: 0
bcp命令,请参照一下SQL SERVER中的帮助.
Top
taolixiang 飞扬信誉：100 2005-8-2 19:57:07 得分: 0
学习中
Top
itzhiren itzhiren 信誉：100 2005-8-5 8:47:11 得分: 0
sqldisconnect(0) &&即在恢复前断开所有连接。

oServer=CreateObject("SQLDMO.SQLServer") &&建立SERVER对象oServer.Connect("(local)","sa","") &&连接到你的服务器
**备份恢复
m.bfwj=ALLTRIM(thisform.bflj.V alue)
oRestore=CreateObject("SQLDMO.Restore")
oRestore.Database="ZW"
oRestore.Files=m.bfwj
oServer.disconnect
oRestore.SQLRestore(oServer)
=MESSAGEBOX('恢复完毕，请退出系统重新登录！',64,'恢复成功') 还是提示错误：
OLE IDispatch异常代码20512出自Microsoft SQL-DMO：
[SQL-DMO]此服务器已经断开。

必须重新连接以执行此操作。

... Top
apple_8180 十豆三信誉：305 2005-8-5 8:54:47 得分: 0 把这句去掉
oServer.disconnect。