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数据库连接测试

回答

相关问题