vb实现SQL2005远程备份还原

《vb实现SQL2005远程备份还原》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1设置共享函数'设置共享(返回0为成功)'参数:'sServer计算机名'sSharePath要共享路径'sShareName显示的共享名'sShareRemark备注'sSharePw密码PublicFunctionShareAdd(sServerAsString,_sSharePathAsString,_sShareNameAsString,_sShareRemarkAsString,_sSharePwAsString)AsLongDimlngServerAsLongDimlngNetnameAsLongDimlngPathAsLongDimlngRemarkAsLongDimlngPwAsLongDimparmerrAsLongDimsi2AsSHARE_INFO_2lngServer=StrPtr(sServer)'转成地址lngNetname=StrPtr(sShareName)lngPath=StrPtr(sSharePath)'如果有备注信息IfLen(sShareRemark)>0ThenlngRemark=StrPtr(sShareRemark)EndIf'如果有密码IfLen(sSharePw)>0ThenlngPw=StrPtr(sSharePw)EndIf'初始化共享信息Withsi2.shi2_netname=lngNetname.shi2_path=lngPath.shi2_remark=lngRemark.shi2_type=STYPE_DISKTREE.shi2_permissions=ACCESS_ALL.shi2_max_uses=-1.shi2_passwd=lngPwEndWith'设置共享(用户名,共享类型,共享信息,)ShareAdd=NetShareAdd(lngServer,2,si2,parmerr)EndFunction 2、删除共享函数'删除共享(返回0为成功)'参数:'sServer计算机名'sShareName共享名PublicFunctionDelShare(sServerAsString,_sShareNameAsString)AsLongDimlngServerAsLong'计算机名DimlngNetnameAsLong'共享名lngServer=StrPtr(sServer)'转成地址lngNetname=StrPtr(sShareName)'删除共享DelShare=NetShareDel(lngServer,lngNetname,0)EndFunction3、备份还原SQL2005过程DimadoconnAsNewADODB.ConnectionDimsuccessAsInteger'返回值WinName=Winsock1.LocalHostName'Winsock为附加控件WinIP=Winsock1.LocalIP'调用ShareAdd函数共享文件夹为共享，bakpath为要共享的文件夹，自己设定success=ShareAdd(WinName,bakpath,"备份文件","","")adoconn.ConnectionString="driver={SQLServer};server=20100429-1348;PersistSecurityInfo=true;uid=sa;pwd=123;InitialCatalog=master"adoconn.Open'开启xp_cmdshelladoconn.Execute("sp_configure'showadvancedoptions',1")adoconn.Execute("RECONFIGURE")adoconn.Execute("sp_configure'xp_cmdshell',1")adoconn.Execute("RECONFIGURE")adoconn.Execute("master..xp_cmdshell'netuse\"&WinIP&"备份文件"&UserPSW&"/USER:"&WinIP&""&UserName&"'")'UserName为计算机登录名，UserPSW登录密码LineDB.Execute"backupdatabase["&DatabaseName&"]todisk='\"&WinIP&"备份文件"&BakName&"'"'执行备份adoconn.Execute("master..xp_cmdshell'netuse\"&WinIP&"备份文件/del'")success=DelShare(WinName,"备份文件")'关闭xp_cmdshelladoconn.Execute("sp_configure'showadvancedoptions',1")adoconn.Execute("RECONFIGURE")adoconn.Execute("sp_configure'xp_cmdshell',0") adoconn.Execute("RECONFIGURE")adoconn.CloseShareAdd=NetShareAdd(lngServer,2,si2,parmerr)'删除共享