vb实现SQL2005远程备份还原.doc

1设置共享函数设置共享(返回0 为成功)参数:sServer 计算机名sSharePath 要共享路径sShareName 显示的共享名sShareRemark 备注sSharePw 密码Public Function ShareAdd(sServer As String, _ sSharePath As String, _ sShareName As String, _ sShareRemark As String, _ sSharePw As String) As Long Dim lngServer As Long Dim lngNetname As Long Dim lngPath As Long Dim lngRemark As Long Dim lngPw As Long Dim parmerr As Long Dim si2 As SHARE_INFO_2 lngServer = StrPtr(sServer) 转成地址 lngNetname = StrPtr(sShareName) lngPath = StrPtr(sSharePath) 如果有备注信息 If Len(sShareRemark) 0 Then lngRemark = StrPtr(sShareRemark) End If 如果有密码 If Len(sSharePw) 0 Then lngPw = StrPtr(sSharePw) End If 初始化共享信息 With si2 .shi2_netname = lngNetname .shi2_path = lngPath .shi2_remark = lngRemark .shi2_type = STYPE_DISKTREE .shi2_permissions = ACCESS_ALL .shi2_max_uses = -1 .shi2_passwd = lngPw End With 设置共享(用户名,共享类型,共享信息,) ShareAdd = NetShareAdd(lngServer, 2, si2, parmerr)End Function2、删除共享函数删除共享(返回0 为成功)参数:sServer 计算机名sShareName 共享名Public Function DelShare(sServer As String, _ sShareName As String) As Long Dim lngServer As Long 计算机名 Dim lngNetname As Long 共享名 lngServer = StrPtr(sServer) 转成地址 lngNetname = StrPtr(sShareName) 删除共享 DelShare = NetShareDel(lngServer, lngNetname, 0)End Function3、备份还原SQL2005 过程 Dim adoconn As New ADODB.Connection Dim success As Integer 返回值WinName= Winsock1.LocalHostName Winsock为附加控件WinIP= Winsock1.LocalIP调用ShareAdd函数共享文件夹为共享，bakpath为要共享的文件夹，自己设定 success = ShareAdd(WinName, bakpath, 备份文件, , ) adoconn.ConnectionString=driver=SQL Server;server=20100429-1348;Persist Security Info=true;uid=sa;pwd=123;Initial Catalog=master adoconn.Open 开启xp_cmdshell adoconn.Execute (sp_configure show advanced options, 1) adoconn.Execute (RECONFIGURE) adoconn.Execute (sp_configure xp_cmdshell,1) adoconn.Execute (RECONFIGURE) adoconn.Execute (master.xp_cmdshell net use & WinIP & 备份文件 & UserPSW & /USER: & WinIP & & UserName & ) UserName为计算机登录名，UserPSW登录密码LineDB.Execute backup database & DatabaseName & to disk= & WinIP & 备份文件 & BakName & 执行备份adoconn.Execute (master.xp_cmdshell net use & WinIP & 备份文件/del )success = DelShare(WinName, 备份文件)关闭xp_cmdshelladoconn.Execute (sp_configure show advanced options, 1)adoconn.Execute (RECONFIGURE)adoconn.Execute (sp_config