sqlserver身份验证管理子程序

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

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

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

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

4、imconstAuthAsByte'设置constAuth参数为：'SQLDMOSecurity_Integrated为WindowsAuthentication模式'SQLDMOSecurity_Mixed为MixedAuthentication模式'设置constAuth的默认值constAuth=SQLDMOSecurity_Mixed'调用改变SQLServer身份认证模式的方法ChangeServerAuthenticationModeconstAuthEndSubSubChangeServerAuthenticationMode

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

6、Disconnect'调用Stop方法停止服务器，直到服务器完全停止srv1.StopDoUntilsrv1.Status=SQLDMOSvc_StoppedLoop'重新以混合模式启动服务器srv1.StartTrue,srvname'断开连接srv1.DisconnectSetsrv1=NothingEndSubSubToWindowsAuthentication()Dimsrv1AsSQLDMO.SQLServer'指定哪个服务器，默认为Local(本地服务器)srvname="(local)"'使用集成安全(Windows)方式新建

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

8、式启动服务器srv1.StartTrue,srvname'断开连接srv1.DisconnectSetsrv1=NothingEndSubSubWindowsToMixedAut