2017-12-08 7 views
-1

私は、データベースにmysqlのworkbenchを動的に日付または番号(vbaの)セルに入力することができます依存するクエリを実行したいと思います。それは何らかの形で機能しますが、別のクエリを使用しても機能しません。その理由はわかりません。 mysqlのworkbenchからセルに入力された日付に動的に依存するデータをクエリできるコードを作成する手助けをしてください。それは仕事をdoesntの例えばこのクエリのvba動的SQLクエリmysqlworkbench

Sub test() 
Dim sSQLQry As String 
Dim ReturnArray 
Dim Conn As New ADODB.Connection 
Dim mrs As New ADODB.Recordset 
Dim DBPath As String, sconnect As String 
Dim var As String 
Dim ha As String 
Dim na As String 

DBPath = ThisWorkbook.FullName 
ha = "select * from sap.change limit" 
var = Sheets("Sheet2").Range("U2").Text 
na = ha & " " & var 
MsgBox na 
Conn.ConnectionString = "..." 
Conn.Open 
sSQLSting = na 

mrs.Open sSQLSting, Conn 

Sheet5.Range("A2").CopyFromRecordset mrs 
'Close Recordset 
mrs.Close 
'Close Connection 
Conn.Close 
End Sub 
+0

動作しない例を追加できますか?何かエラーが出ますか? – tiomno

+0

私は誤りを犯さない。データをシートに転送するだけではありません。シートは空白のままです。 Excelのセルから日付を照会するコードを提供できればいいでしょう。それを文字列としてフォーマットする必要がありますか?だから私はもう一度mondayで試してみることができ、あなたにフィードバックを与えることができます。私はデータベースにアクセスできません。ありがとう=) – Johnny

答えて

0
Dim Conn As New ADODB.Connection 
Dim mrs As New ADODB.Recordset 
Dim DBPath As String, sconnect As String 
Dim var As String 
Dim ha As String 
Dim na As String 

DBPath = ThisWorkbook.FullName 
ha = "select * from sap.change where id = 100" 
Conn.ConnectionString = "..." 
Conn.Open 
sSQLSting = ha 

mrs.Open sSQLSting, Conn 


'Close Recordset 
mrs.Close 
'Close Connection 
Conn.Close 
End Sub 

。構文に何か問題はありますか?