sql - 在 VBA (excel) 中使用 MYSQL 查询连接表

Question

我对 Visual Basic 完全陌生。我正在使用 MYSQL 数据库，我想在 excel 中使用 VB，这样我就可以处理更复杂的查询。出于某种原因，当我尝试在 vb 中加入表时，我收到一条错误消息。有人可以告诉我我的代码有什么问题吗？

strSql = "SELECT COUNT(*)FROM `order`" & _
                 "JOIN user ON user.id = order.destination_id" & _
                 "WHERE payment_status = 'pay';"

    rs.Open strSql, oConn, adOpenDynamic, adLockPessimistic

    res = rs.GetRows

    rs.Close

    Range("A1", "A6") = res(0, 0)

Answer 1

您当前的查询将生成此字符串，

SELECT COUNT(*)FROM `order`JOIN user ON user.id = order.destination_idWHERE payment_status = 'pay';
               ^           ^                                          ^

您在连接期间缺少空间，为了纠正这一点，只需在双引号前添加空格即可。

strSql = "SELECT COUNT(*) FROM `order`   " & _        
         "JOIN user ON user.id = order.destination_id   " & _
         "WHERE payment_status = 'pay';"