在论坛混了这么多年， 看到的一个很明显的趋势是， 用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)
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：服务器当前状态
VersionMajor,VersionMinor: SQL SERVER的版本号
方法:
AttachDB, DetachDB: 添加或者剥离数据库
Connect, Disconnect, Close: 连接， 断开，或者关闭当前服务器对象(oServer)
VerifyConnection: 测试当前连接是否断开
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") &&创建任务对象
ojob.Name="Pubs_Daily_Backup" &&任务名称
oServer.JobServer.Jobs.Add(oJob) &&加到SQL SERVER的任务里
oJob.BeginAlter &&开始定义任务
oJobStep=CreateObject("SQLDMO.JobStep") &&创建任务步骤对象
oJobStep.Name = "Step_1" &&步骤名称
oJobStep.StepID = 1 &&步骤号码
oJobStep.DatabaseName="Pubs" &&数据库名称
oJobStep.SubSystem= "TSQL" &&任务类型，可以是TSQL或者操作系统命令(CmdExec), 或者ActiveScripting
cFName="PubBack"+Dtoc(Date(),1)+".dat" &&备份目标文件名
oJobStep.Command ="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")&&创建任务对象
oJobSchedule.Name = "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，没法测试任务是否真的运行了。哪位有环境，可以帮我试试
下面这个帖子中的存储过程比较麻烦，不过调用起来比较简单。
------------------------------------------------
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 DATABASE '+@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
CREATE 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
+'_DATA'
+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 DATABASE @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中的表变量改写为临时表即可运行,有兴趣的朋友可以试试!
1.数据备份:
Close All
Clear
mypath_old=Sys(5)+Sys(2003)
mypath_new=Alltrim(Alltrim(mypath_old)+'/MYDBCBF')
If !Directory("&MYPATH_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 DATABASE mydbc FROM DISK=?MYDBF With Replace;
,Move 'MYDBC_DATA' 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.
数据备份不用多作解释.对于数据恢复:
1.要注意在选定恢复文件时可能会改变当前路径.要在恢复数据后还原当前路径.
2.测试与数据源的连接.因为SQL2000的数据库MASTER等是自带的,只要测试能否连接上其中一个就行.
因为在恢复时可能找不到你要恢复的自定义数据库,所以要测试SQL2000的数据表.
3.SQL2000的安装可能有自定义实例这个也要考虑.比方说你的服务实例名是SERVER那SQL2000生成的文件夹是:MSSQL$SERVER而不是MSSQL
4.在恢复数据时要断开与当前数据库的连接(与上面所述,用SQL2000的自带数据库作为当前连接),否则会产生异常.
5.数据恢复成功后,要恢复与自定义数据库的连接.
在论坛混了这么多年， 看到的一个很明显的趋势是， 用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)
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：服务器当前状态
VersionMajor,VersionMinor: SQL SERVER的版本号
方法:
AttachDB, DetachDB: 添加或者剥离数据库
Connect, Disconnect, Close: 连接， 断开，或者关闭当前服务器对象(oServer)
VerifyConnection: 测试当前连接是否断开
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") &&创建任务对象
ojob.Name="Pubs_Daily_Backup" &&任务名称
oServer.JobServer.Jobs.Add(oJob) &&加到SQL SERVER的任务里
oJob.BeginAlter &&开始定义任务
oJobStep=CreateObject("SQLDMO.JobStep") &&创建任务步骤对象
oJobStep.Name = "Step_1" &&步骤名称
oJobStep.StepID = 1 &&步骤号码
oJobStep.DatabaseName="Pubs" &&数据库名称
oJobStep.SubSystem= "TSQL" &&任务类型，可以是TSQL或者操作系统命令(CmdExec), 或者ActiveScripting
cFName="PubBack"+Dtoc(Date(),1)+".dat" &&备份目标文件名
oJobStep.Command ="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")&&创建任务对象
oJobSchedule.Name = "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，没法测试任务是否真的运行了。哪位有环境，可以帮我试试
下面这个帖子中的存储过程比较麻烦，不过调用起来比较简单。
------------------------------------------------
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 DATABASE '+@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
CREATE 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
+'_DATA'
+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 DATABASE @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中的表变量改写为临时表即可运行,有兴趣的朋友可以试试!
1.数据备份:
Close All
Clear
mypath_old=Sys(5)+Sys(2003)
mypath_new=Alltrim(Alltrim(mypath_old)+'/MYDBCBF')
If !Directory("&MYPATH_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 DATABASE mydbc FROM DISK=?MYDBF With Replace;
,Move 'MYDBC_DATA' 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.
数据备份不用多作解释.对于数据恢复:
1.要注意在选定恢复文件时可能会改变当前路径.要在恢复数据后还原当前路径.
2.测试与数据源的连接.因为SQL2000的数据库MASTER等是自带的,只要测试能否连接上其中一个就行.
因为在恢复时可能找不到你要恢复的自定义数据库,所以要测试SQL2000的数据表.
3.SQL2000的安装可能有自定义实例这个也要考虑.比方说你的服务实例名是SERVER那SQL2000生成的文件夹是:MSSQL$SERVER而不是MSSQL
4.在恢复数据时要断开与当前数据库的连接(与上面所述,用SQL2000的自带数据库作为当前连接),否则会产生异常.
5.数据恢复成功后,要恢复与自定义数据库的连接.
485
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
