EXCELからのMYSQLクエリセル内容に基づくVBA

Question

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 

Answer 1

あなたの主な質問は、あなたが行を置き換える必要があり、あなたのクエリで列名としてセルA2から値を取得する方法であれば接続する 。

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

またはXがセルA2の値を含む既存の変数の場合：

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