一组SQLServer身份验证管理子程序

日期：2005年10月31日作者：查看:[大字体中字体小字体]

Option Compare Database
Public appAccess As Access.Application

Sub CallSQLDMOSQLServerLogin()
　 Dim srvname As String
　 Dim suid As String
　 Dim pwd As String
　
　 ' 设置 SQL Server 的登录参数
　 srvname = "(local)"
　 'suid = "sa"
　 'pwd = ""
　
　 ' 调用 SQL Server 登录过程
　 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 登录连接方法
　 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 身份认证模式的方法
　 ChangeServerAuthenticationMode constAuth
End Sub
[1] [2] [3] [4] [5] [6] 下一页
一组SQLServer身份验证管理子程序相关文章：
·一组SQLServer身份验证管理子程序
·一组SQLServer身份验证管理子程序
一组SQLServer身份验证管理子程序相关软件

上一篇:代理服务器的源程序

下一篇:按下某组键(HotKey)便执行某程式

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

一组SQLServer身份验证管理子程序

精品推荐

热点TOP10

特别推荐