知识大全一组SQL Server身份验证管理子程序

Posted 2022-07-15 知

篇首语：少年负壮志，奋烈自有时。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全一组SQL Server身份验证管理子程序相关的知识，希望对你有一定的参考价值。

一组SQL Server身份验证管理子程序 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　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 srv As SQLDMO SQLServer　　　　　　　　新建一个服务器实例　　　　Set srv = New SQLDMO SQLServer　　　　　　　　调用 SQL Server 登录连接方法　　　　srv Connect srvname suid pwd　　　　　　　　　　　　断开连接　　　　srv Disconnect　　　　Set srv = Nothing　　End Sub　　　　　　Sub CallSQLDMOWindowsLogin()　　　　Dim srvname As String　　　　　　　　设置 Windows 登录参数　　　　srvname = (local) 　　　　　　　　SQLDMOWindowsLogin srvname　　End Sub　　　　　　Sub SQLDMOWindowsLogin(srvname As String)　　　　Dim srv As SQLDMO SQLServer　　　　　　　　新建一个服务器实例　　　　Set srv = New SQLDMO SQLServer　　　　　　　　在调用前设置 LoginSecure 属性为 True　　　　使用服务名进行连接　　　　srv LoginSecure = True　　　　srv Connect srvname　　　　　　　　断开连接　　　　srv Disconnect　　　　Set srv = 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　　　　Sub ChangeServerAuthenticationMode(constAuth As Byte)　　　　Dim srv As SQLDMO SQLServer　　　　　　　　指定哪个服务器默认为 Local (本地服务器)　　　　srvname = (local) 　　　　　　　　使用集成安全(Windows)方式新建一个 SQL Server 对象并进行连接　　　　Set srv = New SQLDMO SQLServer　　　　srv LoginSecure = True　　　　srv Connect srvname　　　　　　　　设置 SecurityMode 属性为 Windows 或混合身份验证模式　　　　srv IntegratedSecurity SecurityMode = constAuth　　　　srv Disconnect　　　　　　　　调用 Stop 方法停止服务器直到服务器完全停止　　　　srv Stop　　　　Do Until srv Status = SQLDMOSvc_Stopped　　　　Loop　　　　　　　　重新以混合模式启动服务器　　　　srv Start True srvname　　　　　　　　断开连接　　　　srv Disconnect　　　　Set srv = Nothing　　End Sub　　　　Sub ToWindowsAuthentication()　　　　Dim srv As SQLDMO SQLServer　　　　　　　　指定哪个服务器默认为 Local (本地服务器)　　　　srvname = (local) 　　　　　　　　使用集成安全(Windows)方式新建一个 SQL Server 对象并进行连接　　　　Set srv = New SQLDMO SQLServer　　　　srv LoginSecure = True　　　　srv Connect srvname　　　　　　　　设置 SecurityMode 属性为 Windows 身份验证模式　　　　srv IntegratedSecurity SecurityMode = SQLDMOSecurity_Integrated　　　　srv Disconnect　　　　　　　　调用 Stop 方法停止服务器直到服务器完全停止　　　　srv Stop　　　　Do Until srv Status = SQLDMOSvc_Stopped　　　　Loop　　　　　　　　重新以混合模式启动服务器　　　　srv Start True srvname　　　　　　　　断开连接　　　　srv Disconnect　　　　Set srv = Nothing　　　　End Sub　　　　Sub WindowsToMixedAuthentication()　　Dim srv As SQLDMO SQLServer　　　　　　指定哪个服务器默认为 Local (本地服务器)　　　　srvname = (local) 　　　　　　　　使用集成安全(Windows)方式新建一个 SQL Server 对象并进行连接　　　　Set srv = New SQLDMO SQLServer　　　　srv LoginSecure = True　　　　srv Connect srvname　　　　　　　　设置 SecurityMode 属性混合身份验证模式　　　　srv IntegratedSecurity SecurityMode = SQLDMOSecurity_Mixed　　　　srv Disconnect　　　　　　　　调用 Stop 方法停止服务器直到服务器完全停止　　　　srv Stop　　　　Do Until srv Status = SQLDMOSvc_Stopped　　　　Loop　　　　　　　　重新以混合模式启动服务器　　　　srv Start True srvname　　　　　　　　断开连接　　　　srv Disconnect　　　　Set srv = Nothing　　　　End Sub　　　　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 = msdn 　　　　pwd = password 　　　　　　　　该参数用于控制当前用户使用 Windows 登录　　　　代替 SQL Server 的 suid 和 pwd　　　　bolWindowsLogin = False　　　　　　　　使用 Windows 或 SQL Server 登录调用打开名为 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 会话实例 (使用 : Access : Access )　　　　Set appAccess = CreateObject( Access Application )　　　　　　　　使用登录名和口令打开 ADP 并使其可视　　　　strPrFilePath = prpath & prname　　　　appAccess OpenAccessProject strPrFilePath　　　　appAccess Visible = True　　　　　　　　指定 ADP 使用的新的 Windwos 或 SQL Server 登录方式　　　　If bolWindowsLogin Then　　　　　　appAccess CurrentProject OpenConnection _　　　　　　　　 PROVIDER=SQLOLEDB ;INTEGRATED SECURITY=SSPI; & _　　　　　　　　 PERSIST SECURITY INFO=FALSE;INITIAL CATALOG= & _　　　　　　　　dbname & ;DATA SOURCE= & srvname　　　　Else　　　　　　sConnectionString = PROVIDER=SQLOLEDB ;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 的参数　　　　srvname = (local) 　　　　suid = sa 　　　　pwd = 　　　　　　　　调用 SQL Server 登录子程序　　　　LoginDemo srvname suid pwd　　End Sub　　　　　　Sub LoginDemo(srvname As String suid As String pwd As String)　　　　Dim srv As SQLDMO SQLServer cha138/Article/program/SQLServer/201311/22075

知识大全 一组SQL Server身份验证管理子程序

知识大全一组SQL Server身份验证管理子程序