如何解决ODBC MYSQL连接-在何处获取odbc错误消息
我正尝试找出由于无效的用户名/密码而导致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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。