Joindre des tables avec des requêtes MYSQL dans VBA (excel)

Question

Je suis complètement nouveau à Visual Basic. Je travaille avec une base de données MYSQL et je veux utiliser VB dans Excel pour pouvoir travailler avec des requêtes plus complexes. Pour une raison quelconque, lorsque j'essaie de joindre des tables dans vb, j'obtiens un message d'erreur. Quelqu'un peut-il me dire ce qui ne va pas avec mon code?

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

votre requête en cours produira cette chaîne,

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

vous manque d'espace au cours de votre concaténation, afin de corriger cela, ajoutez simplement l'espace avant guillemet.

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