sqlserver身份验证管理子程序

《sqlserver身份验证管理子程序》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、OptionCompareDatabasePublicappAccessAsAccess.ApplicationSubCallSQLDMOSQLServerLogin()DimsrvnameAsStringDimsuidAsStringDimpwdAsString'设置SQLServer的登录参数srvname="(local)"'suid="sa"'pwd=""'调用SQLServer登录过程SQLDMOSQLServerLoginsrvname,suid,pwdEndSubSubSQLDMOSQLServerLogin(srvnameAsString,suidAsString,pwdA

2、sString)Dimsrv1AsSQLDMO.SQLServer'新建一个服务器实例Setsrv1=NewSQLDMO.SQLServer'调用SQLServer登录连接方法srv1.Connectsrvname,suid,pwd'断开连接srv1.DisconnectSetsrv1=NothingEndSubSubCallSQLDMOWindowsLogin()DimsrvnameAsString'设置Windows登录参数srvname="(local)"SQLDMOWindowsLoginsrvnameEndSubSubSQLDMOWindowsLogin(srvnameAsStr

3、ing)Dimsrv1AsSQLDMO.SQLServer'新建一个服务器实例Setsrv1=NewSQLDMO.SQLServer'在调用前，设置LoginSecure属性为True'使用服务名进行连接srv1.LoginSecure=Truesrv1.Connectsrvname'断开连接srv1.DisconnectSetsrv1=NothingEndSubSubCallChangeServerAuthenticationMode()DimconstAuthAsByte'设置constAuth参数为：'SQLDMOSecurity_Integrated为WindowsAuthenti

4、cation模式'SQLDMOSecurity_Mixed为MixedAuthentication模式'设置constAuth的默认值constAuth=SQLDMOSecurity_Mixed'调用改变SQLServer身份认证模式的方法ChangeServerAuthenticationModeconstAuthEndSubSubChangeServerAuthenticationMode(constAuthAsByte)Dimsrv1AsSQLDMO.SQLServer'指定哪个服务器，默认为Local(本地服务器)srvname="(local)"'使用集成安全(Windows)方

5、式新建一个SQLServer对象并进行连接Setsrv1=NewSQLDMO.SQLServersrv1.LoginSecure=Truesrv1.Connectsrvname'设置SecurityMode属性为Windows或混合身份验证模式srv1.IntegratedSecurity.SecurityMode=constAuthsrv1.Disconnect'调用Stop方法停止服务器，直到服务器完全停止srv1.StopDoUntilsrv1.Status=SQLDMOSvc_StoppedLoop'重新以混合模式启动服务器srv1.StartTrue,srvname'断开连接sr

6、v1.DisconnectSetsrv1=NothingEndSubSubToWindowsAuthentication()Dimsrv1AsSQLDMO.SQLServer'指定哪个服务器，默认为Local(本地服务器)srvname="(local)"'使用集成安全(Windows)方式新建一个SQLServer对象并进行连接Setsrv1=NewSQLDMO.SQLServersrv1.LoginSecure=Truesrv1.Connectsrvname'设置SecurityMode属性为Windows身份验证模式srv1.IntegratedSecurity.SecurityMo

7、de=SQLDMOSecurity_Integratedsrv1.Disconnect'调用Stop方法停止服务器，直到服务器完全停止srv1.StopDoUntilsrv1.Status=SQLDMOSvc_StoppedLoop'重新以混合模式启动服务器srv1.StartTrue,srvname'断开连接srv1.DisconnectSetsrv1=NothingEndSubSubWindowsToMixedAut