ODBC MYSQL 连接 - 从何处获取 odbc 错误消息

Question

我试图找出我的 odbc dsn-less 连接何时因用户/密码无效而失败，以向用户提供该特定信息。 现在我从我的 vba 错误处理代码中收到一条连接失败的通用消息。

• 我只能在 odbc 跟踪日志中看到该特定错误...

DIAG [S1000] [MySQL][ODBC 8.0(w) 驱动程序]拒绝用户 'xxxxx'@'pool-173-xxx-xxx 的访问

..但是我怎么能在我的错误处理代码中得到那个错误消息？

++++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++

• vba 连接代码和错误句柄..

   Function TestLogin(uid As String, pwd As String) As Boolean On Error GoTo TestError Dim dbs As DAO.Database Dim qdf As DAO.QueryDef Dim strcon As String mysqlUser = uid strcon = "ODBC; Driver=MySQL ODBC 8.0 Unicode Driver;" & _ "SERVER={accrrrs.cpbo3r0tdggvwertg.us-west-2.rds.amazonaws.com};DATABASE=testdb;PORT=3306;" & _ "UID=" & uid & "; PWD=" & pwd & ";COLUMN_SIZE_S32=1;DFLT_BIGINT_BIND_STR=1;OPTION=3" Set dbs = CurrentDb() Set qdf = dbs.CreateQueryDef("") qdf.Connect = strcon qdf.ReturnsRecords = False qdf.sql = "SELECT 1 " qdf.Execute TestLogin = True DoCmd.Close DoCmd.OpenForm "Switchboard" exit_errorTrap: Exit Function TestError: Dim myerror As DAO.Error For Each myerror In DBEngine.Errors With myerror If .Number <> 3146 Then MsgBox .Description End If End With Next Resume exit_errorTrap End Function