国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

您正在看的SQLserver教程是:一組SQLServer身份驗(yàn)證管理子程序。
　　Option Compare Database
　　Public appAccess As Access.Application
　　
　　Sub CallSQLDMOSQLServerLogin()
　　　　Dim srvname As String
　　　　Dim suid As String
　　　　Dim pwd As String
　　　　
　　　　' 設(shè)置 SQL Server 的登錄參數(shù)
　　　　srvname = "(local)"
　　　　'suid = "sa"
　　　　'pwd = ""
　　　　
　　　　' 調(diào)用 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è)服務(wù)器實(shí)例
　　　　Set srv1 = New SQLDMO.SQLServer
　　　　
　　　　' 調(diào)用 SQL Server 登錄連接方法
　　　　srv1.Connect srvname, suid, pwd
　　　　
　　　　
　　　　' 斷開連接
　　　　srv1.Disconnect
　　　　Set srv1 = Nothing
　　End Sub
　　
　　
　　Sub CallSQLDMOWindowsLogin()
　　　　Dim srvname As String
　　　　
　　　　' 設(shè)置 Windows 登錄參數(shù)
　　　　srvname = "(local)"
　　　　
　　　　SQLDMOWindowsLogin srvname
　　End Sub
　　
　　
　　Sub SQLDMOWindowsLogin(srvname As String)
　　　　Dim srv1 As SQLDMO.SQLServer
　　　　
　　　　' 新建一個(gè)服務(wù)器實(shí)例
　　　　Set srv1 = New SQLDMO.SQLServer
　　　　
　　　　' 在調(diào)用前，設(shè)置 LoginSecure 屬性為 True
　　　　' 使用服務(wù)名進(jìn)行連接
　　　　srv1.LoginSecure = True
　　　　srv1.Connect srvname
　　　　
　　　　' 斷開連接
　　　　srv1.Disconnect
　　　　Set srv1 = Nothing
　　End Sub
　　
　　Sub CallChangeServerAuthenticationMode()
　　　　Dim constAuth As Byte
　　　　
　　　　' 設(shè)置 constAuth 參數(shù)為：
　　　　'　　SQLDMOSecurity_Integrated 為 Windows Authentication 模式
　　　　'　　SQLDMOSecurity_Mixed 為 Mixed Authentication 模式
　　　　
　　　　' 設(shè)置 constAuth 的默認(rèn)值
　　　　constAuth = SQLDMOSecurity_Mixed
　　　　
　　　　' 調(diào)用改變 SQL Server 身份認(rèn)證模式的方法
　　　　ChangeServerAuthenticationMode constAuth
　　End Sub
　　
　　Sub ChangeServerAuthenticationMode(constAuth As Byte)
　　　　Dim srv1 As SQLDMO.SQLServer
　　　　
　　　　' 指定哪個(gè)服務(wù)器，默認(rèn)為 Local (本地服務(wù)器)
　　　　srvname = "(local)"
　　　　
　　　　' 使用集成安全(Windows)方式新建一個(gè) SQL Server 對(duì)象并進(jìn)行連接
　　　　Set srv1 = New SQLDMO.SQLServer
　　　　srv1.LoginSecure = True
　　　　srv1.Connect srvname
　　　　
　　　　' 設(shè)置 SecurityMode 屬性為 Windows 或混合身份驗(yàn)證模式
　　　　srv1.IntegratedSecurity.SecurityMode = constAuth
　　　　srv1.Disconnect
　　　　
　　　　' 調(diào)用 Stop 方法停止服務(wù)器，直到服務(wù)器完全停止
　　　　srv1.Stop
　　　　Do Until srv1.Status = SQLDMOSvc_Stopped
　　　　Loop
　　　　
　　　　' 重新以混合模式啟動(dòng)服務(wù)器
　　　　srv1.Start True, srvname
　　　　
　　　　' 斷開連接
　　　　srv1.Disconnect
　　　　Set srv1 = Nothing
　　End Sub
　　
　　Sub ToWindowsAuthentication()
　　　　Dim srv1 As SQLDMO.SQLServer
　　　　
　　　　' 指定哪個(gè)服務(wù)器，默認(rèn)為 Local (本地服務(wù)器)
　　　　srvname = "(local)"
　　　　
　　　　' 使用集成安全(Windows)方式新建一個(gè) SQL Server 對(duì)象并進(jìn)行連接
　　　　Set srv1 = New SQLDMO.SQLServer
　　　　srv1.LoginSecure = True
　　　　srv1.Connect srvname
　　　　
　　　　' 設(shè)置 SecurityMode 屬性為 Windows 身份驗(yàn)證模式
　　　　srv1.IntegratedSecurity.SecurityMode = SQLDMOSecurity_Integrated
　　　　srv1.Disconnect
　　　　
　　　　' 調(diào)用 Stop 方法停止服務(wù)器，直到服務(wù)器完全停止
　　　　srv1.Stop
　　　　Do Until srv1.Status = SQLDMOSvc_Stopped
　　　　Loop
　　　　
　　　　' 重新以混合模式啟動(dòng)服務(wù)器
　　　　srv1.Start True, srvname
　　　　
　　　　' 斷開連接
　　　　srv1.Disconnect
　　　　Set srv1 = Nothing
　　
　　End Sub
　　
　　Sub WindowsToMixedAuthentication()
　　Dim srv1 As SQLDMO.SQLServer
　　
　　　　' 指定哪個(gè)服務(wù)器，默認(rèn)為 Local (本地服務(wù)器)
　　　　srvname = "(local)"
　　　　
　　　　' 使用集成安全(Windows)方式新建一個(gè) SQL Server 對(duì)象并進(jìn)行連接
　　　　Set srv1 = New SQLDMO.SQLServer
　　　　srv1.LoginSecure = True
　　　　srv1.Connect srvname
　　　　
　　　　' 設(shè)置 SecurityMode 屬性混合身份驗(yàn)證模式
　　　　srv1.IntegratedSecurity.SecurityMode = SQLDMOSecurity_Mixed
　　　　srv1.Disconnect
　　　　
　　　　' 調(diào)用 Stop 方法停止服務(wù)器，直到服務(wù)器完全停止
　　　　srv1.Stop
　　　　Do Until srv1.St