SQLServer身份验证管理子程序

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

·教你配置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 基于窗体身份

Sub CallOpenADPWindowsOrSQLServer()
Dim srvname As String
Dim dbname As String
Dim prpath As String
Dim prname As String
Dim suid As String
Dim pwd As String
Dim bolWindowsLogin As Boolean
' 设置打开 ADP 程序的参数
srvname = "(local)"
dbname = "NorthwindCS" ' ADP 连接的数据库
prpath = "C:\Documents and Settings\Administrator\My Documents\" ' ADP 文件所在的磁盘位置
prname = "NorthwindCS" ' ADP 文件名
suid = "msdn5"
pwd = "password"
' 该参数用于控制当前用户使用 Windows 登录
' 代替 sql server(WINDOWS平台上强大的数据库平台) 的 suid 和 pwd
bolWindowsLogin = False
' 使用 Windows 或 sql server(WINDOWS平台上强大的数据库平台) 登录调用打开名为 prname ADP 的子程序
OpenADPWindowsOrSQLServer srvname, dbname, prpath, prname, suid, pwd, bolWindowsLogin
End Sub

Sub OpenADPWindowsOrSQLServer(srvname As String, dbname As String, _
prpath As String, prname As String, _
suid As String, pwd As String, bolWindowsLogin As Boolean)
Dim bolLeaveOpen As Boolean
Dim strPrFilePath As String
Dim sConnectionString As String
' 是否保持现有打开的程序?
If MsgBox("在该过程中是否关闭打开的 ADP?", vbYesNo) = vbYes Then
bolLeaveOpen = True
End If
' 新建 Access 会话实例 (使用 .9 : Access 2000, .10 : Access 2002)
Set appAccess = CreateObject("Access.Application.9")
' 使用登录名和口令打开 ADP 并使其可视
strPrFilePath = prpath & prname
appAccess.OpenAccessProject strPrFilePath
appAccess.Visible = True
' 指定 ADP 使用的新的 Windwos 或 sql server(WINDOWS平台上强大的数据库平台) 登录方式
If bolWindowsLogin Then
appAccess.CurrentProject.OpenConnection _
"PROVIDER=SQLOLEDB.1;INTEGRATED SECURITY=SSPI;" & _
"PERSIST SECURITY INFO=FALSE;INITIAL CATALOG=" & _
dbname & ";DATA SOURCE=" & srvname
Else
sConnectionString = "PROVIDER=SQLOLEDB.1;INITIAL CATALOG=" & _
dbname & ";DATA SOURCE=" & srvname
appAccess.CurrentProject.OpenConnection _
sConnectionString, _
suid, pwd
End If
' 按上面提出的要求关闭 Access 会话实例
If bolLeaveOpen = False Then
appAccess.CloseCurrentDatabase
Set appAccess = Nothing
End If
End Sub

Sub CallLoginDemo()
Dim srvname As String
Dim suid As String
Dim pwd As String

' 设置登录 sql server(WINDOWS平台上强大的数据库平台) 的参数
srvname = "(local)"
suid = "sa"
pwd = ""
' 调用 sql server(WINDOWS平台上强大的数据库平台) 登录子程序
LoginDemo srvname, suid, pwd
End Sub