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

Question

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

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

诊断 [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
  

标签： mysqlvbams-accesserror-handlingodbc