="SELECT * FROM DHSDB.DHS03V00 WHERE 販売店コード='" & B4 & "' and 販売店拠点コード='" & G4 & "'"
上記内容をB12セルに入力しておく。
B4とG4のセルは、条件入力セルにする。
さらに、フォームのテキストボックスやインプットボックスの値を条件入力セルと
関連付けると,入力しやすくなる。
SQL_BUN = Sheets("sql").Range("b12").Value
' SQL文ファイルを新規に作成する。
Open "d:\si\SQL_DB.SQL" For Append As #1
Print #1, SQL_BUN
Close #1
これで、SQL文ファイルができるので、SQL文を実行するコマンドを実行する。