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

zhuyiwen

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


本貼總結(jié)答案：

在應(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中檢查連接，如果沒有，它將通過輸入?yún)��?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)文章技巧鏈接)：
Access 在ADP啟動時,使用VBA代碼判定數(shù)據(jù)庫連接是否有效并重新設(shè)定數(shù)據(jù)庫連接

wyh

有個思路，不過要等等，要測試一下，我正在換硬盤
原來的硬盤實在沒辦法裝上SQL SERVER

zhuyiwen

我是這樣做的：在啟動窗口的 Form_Load事件中寫如下代碼

Private Sub Form_Load()
    Dim bb As Boolean
    bb = ChkConnect()
End Sub

Public Function ChkConnect() As Boolean
    Dim strSQL As String
   
    If Not CurrentProject.IsConnected Then
        MsgBox "請連接數(shù)據(jù)庫！"
        ChkConnect = False
        DoCmd.RunCommand acCmdConnection
    Else
        ChkConnect = True
    End If
End Function

這樣出現(xiàn)一系統(tǒng)的數(shù)據(jù)庫連接對話框，總感覺不是太理想，是否有更好的辦法？

tmtony

將連接字符串代碼寫進去即可，加入用戶名和密碼，連接服務(wù)器。數(shù)據(jù)源等

zhuyiwen

你是說更改
CurrentProject.Connection.ConnectString
對嗎？
我試過，這樣不行，報錯！

[此貼子已經(jīng)被作者于2002-3-24 16:42:51編輯過]

tmtony

出什么錯誤呢， 可否貼上來

zhuyiwen

對不起，這是前些日子測試的，現(xiàn)在沒代碼。
當時，不管是直接修改，還斷開以后修改，或者創(chuàng)建新的連接再指定到CurrentProject.Connection 都報錯

chenwintek

很有意思，NORTHWINDCS的啟動就有，但是太復(fù)雜，還沒看大懂。

zhuyiwen

樓上兄弟說得好！確實是太復(fù)雜，難得看，所以才發(fā)問

liujunqun

我用過字符串指明數(shù)據(jù)庫源和用戶名等等連接數(shù)據(jù)庫服務(wù)器，沒有用DSN，不用配置客戶端或ODBC，那樣太麻煩。如果報錯就調(diào)用系統(tǒng)鏈接窗體重新設(shè)置。