#601
SQL文の中から、WHERE句部分だけを取り出すプログラム例です。
次の例では、まずテスト用に変数strSQLにSQL文を代入し、そこからWHERE句の始まる文字の位置を取得、さらに後続にORDER BY句がある場合も考慮してその位置を取得、最後に変数strSQLからWHERE句部分だけをMid$関数で切り出しています。この場合、結果的にイミディエイトウィンドウには『顧客コード>1000』と出力されます。
なお、「intPos1 + 7」の「7」は、intPos1を取得する際に使った" WHERE "（前後に半角スペース含む）という検索文字の長さを示しています。またこれはあくまでもシンプルなSQLの例であって、SQL文内に「WHEREとORDER BYの両方が含まれているとき」「WHEREだけ含まれているとき」「WHEREが含まれていないとき」の条件分岐は記述されていますが、もし「GROUP BY句」など他のSQL文の要素が含まれる可能性がある場合には、そのバリエーションに応じてもう少しいろいろな文字列処理を追加する必要があると思います。
Dim strSQL As String
Dim strWhere As String
Dim intPos1 As Integer
Dim intPos2 As Integer
'テスト用のSQL文を設定
strSQL = "SELECT * FROM tbl売上実績 WHERE 顧客コード>1000 ORDER BY 売上日付"
'WHERE句の文字位置を取得
intPos1 = InStr(strSQL, " WHERE ")
'ORDER BY句の文字位置を取得
intPos2 = InStr(strSQL, " ORDER BY ")
If intPos1 > 0 And intPos2 > 0 Then
'WHEREとORDER BYの両方が含まれているとき
strWhere = Mid$(strSQL, intPos1 + 7, intPos2 - intPos1 - 7)
ElseIf intPos1 > 0 Then
'WHEREだけ含まれているとき
strWhere = Mid$(strSQL, intPos1 + 7)
Else
'WHEREが含まれていないとき
strWhere = ""
End If
Debug.Print strWhere
この情報は参考になりましたか？、問題は解決しましたか？、もしまだなら......
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします
