最近發現很多客戶的(de)程序使用(yòng)SQLServer身份驗證管理(lǐ)，出現很多驗證失敗，無法驗證的(de)問題，我們特總結了一段子程序，建議使用(yòng)萬網NT系統的(de)獨立服務器(qì)用(yòng)戶配置測試：

Option Compare Database
Public appAccess As Access.Application

Sub CallSQLDMOSQLServerLogin()
Dim srvname As String
Dim suid As String
Dim pwd As String
' 設置 SQL Server 的(de)登錄參數
srvname = "(local)"
'suid = "sa"   -----修改成您配置的(de)權限
'pwd = ""     -----修改成您配置的(de)密碼
' 調用(yòng) SQL Server 登錄過程
SQLDMOSQLServerLogin srvname, suid, pwd
End Sub

Sub SQLDMOSQLServerLogin(srvname As String, suid As String, pwd As String)
Dim srv1 As SQLDMO.SQLServer
' 新建一個(gè)服務器(qì)實例
Set srv1 = New SQLDMO.SQLServer
' 調用(yòng) SQL Server 登錄連接方法
srv1.Connect srvname, suid, pwd
' 斷開(kāi)連接
srv1.Disconnect
Set srv1 = Nothing
End Sub

Sub CallSQLDMOWindowsLogin()
Dim srvname As String
' 設置 Windows 登錄參數
srvname = "(local)"    -----修改成您數據服務器(qì)或者127.0.0.1
SQLDMOWindowsLogin srvname
End Sub

Sub SQLDMOWindowsLogin(srvname As String)
Dim srv1 As SQLDMO.SQLServer
' 新建一個(gè)服務器(qì)實例
Set srv1 = New SQLDMO.SQLServer
' 在調用(yòng)前，設置 LoginSecure 屬性爲 True
' 使用(yòng)服務名進行(xíng)連接
srv1.LoginSecure = True
srv1.Connect srvname
' 斷開(kāi)連接
srv1.Disconnect
Set srv1 = Nothing
End Sub

Sub CallChangeServerAuthenticationMode()
Dim constAuth As Byte
' 設置 constAuth 參數爲：
' SQLDMOSecurity_Integrated 爲 Windows Authentication 模式
' SQLDMOSecurity_Mixed 爲 Mixed Authentication 模式
' 設置 constAuth 的(de)默認值
constAuth = SQLDMOSecurity_Mixed
' 調用(yòng)改變 SQL Server 身份認證模式的(de)方法
ChangeServerAuthenticationMode constAuth
End Sub