基于单元格内容的EXCEL VBA MYSQL查询

我试图通过VBA从EXCEL执行简单的查询。我想根据A2单元格的值，执行查询。我正试图做到这一点，但需要苏的帮助。 要连接：

conMySQL.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};" & "SERVER=" & server & ";" & " DATABASE=" & database & ";" & "UID=" & login_user & ";PWD=" & password & "; OPTION=3; PORT=" & port & ";Connect Timeout=20;"

'open the connection
conMySQL.Open

然后查询：

strSQL = "SELECT x FROM some_table"; x = A2's value
MySQL.Query (strSQL)

With rsTemporary
      Do Until .EOF
          recordCount = recordCount + 1
          some_variable = ![supcode]
          rsTemporary.MoveNext
      Loop
End With
        MySQL.closeCon

---

如果您的主要问题是如何从单元格A2中获取值作为查询中的列名，则应将该行替换为

strSQL = "SELECT " & Cells(2, 1).Value & " FROM some_table"

或者，如果x是包含单元格A2中的值的现有变量：

strSQL = "SELECT " & x & " FROM some_table"