mysql - 从MySql数据库读取VBA脚本的问题

我在Excel中的vba脚本上遇到了一些麻烦，应该是
从MySql数据库读取。 SQL查询应该只返回一个
记录，但实际上返回一个空结果集。通过phpMyAdmin运行时，生成的语句工作正常。

这是我的代码：

Function getClientId(emailAddress As String)
    Dim rs As ADODB.Recordset
    Dim sql As String

    ConnectDB

    Set rs = New ADODB.Recordset

    sql = "SELECT client_id FROM clients WHERE email_address = '" & emailAddress & "' LIMIT 1"
    Debug.Print sql
    rs.Open sql, oConn

    Debug.Print rs.RecordCount

    If (rs.RecordCount = -1) Then
        getClientId = Null
    Else
        getClientId = rs(0)
    End If
    rs.Close
End Function

编辑：我的数据库连接功能。

Function ConnectDB()
    On Error GoTo ErrHandler

    Set oConn = New ADODB.Connection
    oConn.Open "DRIVER={MySQL ODBC 5.1 Driver};" & _
    "SERVER=localhost;" & _
    "DATABASE=mydb;" & _
    "USER=user;" & _
    "PASSWORD=password;" & _
    "Option=3"

    'Debug.Print oConn

    Exit Function
ErrHandler:
    MsgBox Err.Description, vbCritical, Err.Source
End Function

我正在运行其他脚本时，ConnectDB函数连接正常
 用它。如果有人看到我在做什么错，那么任何帮助都会
 不胜感激。

提前谢谢了。

加里

最佳答案

MyODBC没有正确提供RecordCount-Attribute。

Re: Problem with RecordCount with ASP & MySQL

rs.recordcount = -1 with myODBC

Re: ADO Connection RecordCount

因此，如果您确实需要RecordCount，请将CursorLocation属性设置为adUseClient。
如果没有，只需像这样遍历RecordSet：

Do While Not rs.EOF
    '...do your magic
    rs.MoveNext
Loop