Excel VB數據庫連接測試

我有一個帶有一些VB代碼的Excel電子表格，它將數據複製到訪問數據庫。這將數據從一張表複製到一張緩存表，然後從緩存表中複製到數據庫，並使用一個標記來標識新數據。這個工作正常，但我們想要添加一個連接測試來檢查到數據庫的連接是否正常。Excel VB數據庫連接測試

這是我的代碼下面有連接測試：

Dim cnn As ADODB.Connection 
Dim canConnect As Boolean 
Set cnn = New ADODB.Connection 

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _ 
    "Data Source=\\G-FILE1\Common_Files\All Users\Robert T\Cash Sheets\CashSheets.mdb;" 
If cnn.State = adStateOpen Then 
canConnect = True 
cnn.Close 
MsgBox "Connection UP", vbOKOnly 
Else 
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _ 
    "Data Source=\\G-FILE1\Common_File\All Users\Robert T\Cash Sheets\CashSheets.mdb;" 
cnn.Close 
If cnn.State = adStateClosed Then 
canConnect = False 
cnn.Close 
MsgBox "Connection DOWN!", vbOKOnly 

End If 
End If

所以我想要做的是這樣的：

當按鈕點擊>數據發送到高速緩存表（工作）>測試DB連接>如果沒有可用的，然後MSGBOX用戶，告知他們>進行緩存表

我不想錯誤窗口出現，而是一個MsgBox，讓代碼的其餘部分進行..

希望此編輯爲更清楚一點..

問候

來源

2014-11-06 James.mcconkey

你能澄清你的問題是什麼？這更多的是「我得到這個錯誤，我不明白爲什麼」區域。 – Kat 2014-11-06 16:05:51

編輯過的原創帖子 – 2014-11-07 09:22:44

這是不夠的，如果該文件是可用：

If Dir(accessFilePath) = "" Then 
    'file not found! 
else 
    'file found! 
end if

來源

2014-11-06 16:39:22

Excel VB數據庫連接測試

回答

相關問題