日韩免费观看一区,免费A级黄毛片,办公室欧美大尺寸SUV

如何在ADP啟動時,使用VBA代碼判定數(shù)據(jù)庫連接是否有效併重新設(shè)定數(shù)據(jù)庫連接?

在應(yīng)用程序結(jié)束時，使用 MakeADPConnectionless 清除ADP連接，在程序啟動就不會再齣現(xiàn)提示連接的對話框，使用 CurrentProject.IsConnected 判定 ADP 是否連接，如果未連接，使用 sCreateConnection 創(chuàng)建新的連接字符串，使用 CurrentProject.OpenConnection 連接。

作者：大熊

Sub MakeADPConnectionless()
Application.CurrentProject.CloseConnection '關(guān)閉連接
Application.CurrentProject.OpenConnection '將連接設(shè)置爲無
End Sub

附：在ADP項目中創(chuàng)建ADP的數(shù)據(jù)庫的默認連接的代碼

Public Function sCreateConnection(sSvrName As String, sUID As String, sPWD As String, sDatabase As String) As String
'********************************************************************
'該函數(shù)在ADP中檢查連接，如果沒有，牠將通過輸入蔘數(shù)創(chuàng)建一箇連接
'
'輸入:
'   sSvrName    數(shù)據(jù)庫服務(wù)器名
'   sUID        用戶名
'   sPWD        口令
'   sDatabase   MSDE數(shù)據(jù)庫名
'
'輸齣:
'   連接狀態(tài)
'
'********************************************************************

On Error GoTo sCreateConnectionTrap:

If Application.CurrentProject.BaseC Then
'錶示 ADP 處於無連接狀態(tài)
sConnectionString = & _
"PROVIDER=SQLOLEDB.1; " & _
"PASSWORD=" & sPWD & ";" & _
"PERSIST SECURITY INFO=TRUE; USER ID=" & sUID & "; "  & _
"INITIAL CATALOG=" & sDatabase & ";" & _
"DATA SOURCE=" & sSvrName
Application.CurrentProject.OpenConnection sConnectionString
sCreateC & sDatabase & " 數(shù)據(jù)庫的連接!"
Else '連接已存在
sCreateC & sDatabase & " 數(shù)據(jù)庫的連接!"
End If

sCreateConnectionExit:
Exit Function

sCreateConnectionTrap:
sCreateConnection = Err.Description
Resume sCreateConnectionExit

End Function

(ADP-相關(guān)文章技巧鏈接)：
什麼是ADP,瞭解ADP的優(yōu)缺點

聯(lián)繫人：	王先生
Email：	18449932@qq.com
QQ：	18449932
微博：	officecn01

聯(lián)繫人：

王先生

Email：

18449932@qq.com

QQ：

18449932

微博：

officecn01

Office交流網(wǎng)

Access中ADP啟動時使用VBA代碼判定數(shù)據(jù)庫連接是否有效併重新設(shè)定數(shù)據(jù)庫連接