Question

我有一个带有一些VB代码的Excel电子表格，可以将数据复制到访问数据库。这会将数据从一个工作表复制到缓存工作表，然后从缓存工作表复制到数据库，使用标志来识别新数据，这可以正常但我们想添加连接测试以检查与数据库的连接是否正常

这是我在下面进行连接测试的代码：

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

所以我想做的是：

点击按钮时＆gt;数据被发送到缓存表（工作）＆gt;测试DB连接＆gt;如果不可用，则msgbox用户通知他们＆gt;继续进行缓存表

我不希望出现错误窗口，而是一个msgbox，让剩下的代码继续运行..

希望这个编辑更清晰一点..

此致

Answer 1

如果文件可用就足够了：

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

Excel VBA数据库连接测试

1 个答案: