excel - 如何最好地在 Access 或 Excel 中使用 VBA 来测试 ODBC 连接？

Question

给定一个预配置的 ODBC 系统 DSN，我想编写一个函数，使用 VBA 优雅地测试该连接。

Private Function TestConnection(ByVal dsnName As String) As Boolean

    ' What goes here?? '

End Function

编辑:澄清一下，系统 DSN 指向外部 SQL Server 2005 数据库，使用 Windows NT 身份验证。

我尝试过的一种方法是向目标数据库发送一些随机查询并捕获错误。如果查询有效，则返回 true。如果有错误则返回 false。这工作得很好，但感觉......笨拙。有没有更优雅的方式，尤其是不依赖于 On Error Goto 的方式？

注意:这是我正在处理的遗留 Access 2000 数据库，因此任何解决方案都不能有任何 Access 2007 或 2003 依赖项。我想让它对 VBA 通用，但如果 Access 中有一种简单的方法，那也很好。

非常感谢任何建议。

Answer 1

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

cnn.Open "DSN HERE"
If cnn.State = adStateOpen Then
    canConnect = True
    cnn.Close
End If

Msgbox canConnect

编辑:DSN 格式可以是“DSN=MyDSN；UID=myuser；PWD=myPwd；”
看this用于连接字符串