开发学院数据库 MSSQL Server SQLServer身份验证管理子程序阅读

SQLServer身份验证管理子程序

　2007-11-11 04:14:59　来源：WEB开发网　闂備線娼уΛ鎾箯閿燂拷

濠电姭鎷冮崨顓濈捕闂侀潧娲ゅú銊╁焵椤掍胶鈯曢柕鍥╁仧缁辩偤鏁撻敓锟�闂備線娼уΛ鎾箯閿燂拷　　闂備胶枪缁绘鈻嶉弴銏犳瀬闁绘劕鐏氱€氼剟姊洪崹顕呭剰闁逞屽墮缁夊綊寮婚妸褉鍋撻棃娑欏暈闁伙綀浜埀顒傛暬閸嬪﹪宕伴弽褏鏆﹂柨鐕傛嫹

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

(WINDOWS平台上强大的数据库平台)

(Unix平台最流行的WEB服务器平台)

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