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

tmtony

各有長短優(yōu)劣

zhuyiwen

以下是引用liujunqun在2002-3-27 17:18:03的發(fā)言：
我用過字符串指明數(shù)據(jù)庫源和用戶名等等連接數(shù)據(jù)庫服務器，沒有用DSN，不用配置客戶端或ODBC，那樣太麻煩。如果報錯就調(diào)用系統(tǒng)鏈接窗體重新設置。

是否能將代碼貼出來供大家學習？

在ADP中，有一個默認的ADO數(shù)據(jù)庫連接，即：CurrentProject.Connection，也就是說如何改變這個連接。用ADO很容易新建連接，關鍵是改變默認連接。

[此貼子已經(jīng)被zhuyiwen于2002-3-28 2:42:13編輯過]

大熊

此例程將從 ADP 刪除連接,使其處于無連接狀態(tài)。
Sub MakeADPConnectionless()
     
     Application.CurrentProject.CloseConnection '關閉連接
     Application.CurrentProject.OpenConnection '將連接設置為無

End Sub

zhuyiwen

這是微軟MSDN中，在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ù)庫服務器名
'   sUID        用戶名
'   sPWD        口令
'   sDatabase   MSDE數(shù)據(jù)庫名
'
'輸出:
'   連接狀態(tài)
'
'********************************************************************

    On Error GoTo sCreateConnectionTrap:
   
    If Application.CurrentProject.BaseC Then
        '表示ADP處于無連接狀態(tài)
        sC & 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

KenjiSato

萬一創(chuàng)建連接時服務器出故障、網(wǎng)絡連接不上如何提示？

zyz

出了問題,就報錯! [em26]

愿上帝保佑你!

最好是念一聲＂阿迷坨佛＂.

哈哈哈．．．．．．[em26]

KenjiSato

我的意思是做個友善的界面引導用戶再連接或更改連接服務器等

zyz

你不會把代碼分開嗎？！[em26]

zhuyiwen

此貼已圓滿解決。

唐玉娥

看不明白。不過感覺還是有點意思。慢慢研究一下先啦！