SQLServer身份验证管理子程序

核心提示：·教你配置OSPF动态路由协议的身份验证·Solaris 10实现安全Kerberos身份验证·配置用于身份验证和授权的RADIUS服务·ASP.NET中的窗体身份验证·ASP.NET中的Windows身份验证·sql server(W

·教你配置OSPF动态路由协议的身份验证
·Solaris 10实现安全Kerberos身份验证
·配置用于身份验证和授权的RADIUS服务
·ASP.NET中的窗体身份验证
·ASP.NET中的Windows身份验证
·sql server(WINDOWS平台上强大的数据库平台) 2000 身份验证与安全控制(
·sql server(WINDOWS平台上强大的数据库平台) 2000 身份验证与安全控制(
·电子商务身份验证解决方案
·apache(Unix平台最流行的WEB服务器平台)中实现身份验证和访问控制(1)
·设置Exchange 2003 OWA 基于窗体身份

Option Compare Database
Public appAccess As Access.Application

Sub CallSQLDMOSQLServerLogin()
Dim srvname As String
Dim suid As String
Dim pwd As String
' 设置 sql server(WINDOWS平台上强大的数据库平台) 的登录参数
srvname = "(local)"
'suid = "sa"
'pwd = ""
' 调用 sql server(WINDOWS平台上强大的数据库平台) 登录过程
SQLDMOSQLServerLogin srvname, suid, pwd
End Sub

Sub SQLDMOSQLServerLogin(srvname As String, suid As String, pwd As String)
Dim srv1 As SQLDMO.SQLServer
' 新建一个服务器实例
Set srv1 = New SQLDMO.SQLServer
' 调用 sql server(WINDOWS平台上强大的数据库平台) 登录连接方法
srv1.Connect srvname, suid, pwd
' 断开连接
srv1.Disconnect
Set srv1 = Nothing
End Sub

Sub CallSQLDMOWindowsLogin()
Dim srvname As String
' 设置 Windows 登录参数
srvname = "(local)"
SQLDMOWindowsLogin srvname
End Sub

Sub SQLDMOWindowsLogin(srvname As String)
Dim srv1 As SQLDMO.SQLServer
' 新建一个服务器实例
Set srv1 = New SQLDMO.SQLServer
' 在调用前，设置 LoginSecure 属性为 True
' 使用服务名进行连接
srv1.LoginSecure = True
srv1.Connect srvname
' 断开连接
srv1.Disconnect
Set srv1 = Nothing
End Sub

Sub CallChangeServerAuthenticationMode()
Dim constAuth As Byte
' 设置 constAuth 参数为：
' SQLDMOSecurity_Integrated 为 Windows Authentication 模式
' SQLDMOSecurity_Mixed 为 Mixed Authentication 模式
' 设置 constAuth 的默认值
constAuth = SQLDMOSecurity_Mixed
' 调用改变 sql server(WINDOWS平台上强大的数据库平台) 身份认证模式的方法
ChangeServerAuthenticationMode constAuth
End Sub