MS Access VBA 捕获 SQL Server 连接错误

Question

我在获取 Access (2010) VBA 来捕获与 SQL Server (2008) 连接以链接表的错误时遇到问题。

我收到错误并弹出窗口，可能是来自 ODBC 驱动程序？我想抑制这些并自己处理错误。我知道 DAO.errors 和 ADO.errors 集合，但如果我无法获取错误来调用我的错误处理程序，那么这些集合就没有帮助！

下面的代码将给出错误（除非您碰巧在名为 myServer 的服务器上名为 myDatabase 的数据库中有一个名为 myTable 的表）。 我尝试过使用 ADODB 而不是 DAO，但根本无法让它工作。 有什么想法吗？

Public Function main()
    Dim myDB As DAO.Database
    Dim myTabledef As DAO.TableDef

    On Error GoTo Err_handler

    Set myDB = CurrentDb
    Set myTabledef = myDB.CreateTableDef("l_table")

    DoCmd.SetWarnings False

    myTabledef.Connect = "odbc;driver=SqLServer;" & _
        "DATABASE=myDB;SERVER=myServer;Trusted_Connection=Yes;"

    myTabledef.SourceTableName = "MyTable"

    myDB.TableDefs.Append myTabledef

    DoCmd.SetWarnings True

    Exit Function

Err_handler:
    MsgBox Err.Number & " - " & Err.Description

End Function

---

我在发布代码时犯了一个错误{Sql Server}变成了SqLServer。 因此，给出错误的完整代码如下：

Public Function main()
Dim myDB As DAO.Database
Dim myTabledef As DAO.TableDef

On Error GoTo Err_handler

Set myDB = CurrentDb
Set myTabledef = myDB.CreateTableDef("l_table")

DoCmd.SetWarnings False

myTabledef.Connect = "odbc;driver={Sql Server};" & _
    "DATABASE=myDB;SERVER=myServer;Trusted_Connection=Yes;"

myTabledef.SourceTableName = "MyTable"

myDB.TableDefs.Append myTabledef

DoCmd.SetWarnings True

Exit Function

Err_handler:
MsgBox Err.Number & " - " & Err.Description

End Function

Answer 1

在您尝试附加 TableDef 之前，不会发生该错误

Dim myDB As DAO.Database
Dim myTabledef As DAO.TableDef

On Error GoTo Err_handler

Set myDB = CurrentDb
scn = "odbc;driver=SqLServer;" & _
"DATABASE=myDB;SERVER=myServer;Trusted_Connection=Yes;"
Set myTabledef = myDB.CreateTableDef("l_table")

myTabledef.Connect = scn
myTabledef.SourceTableName = "Table1"
myDB.TableDefs.Append myTabledef

Err_handler:
Debug.Print Err.Number & " " & Err.Description