セル値参照でデータベースから範囲抽出

質問

セル値を元にデータ抽出する内容でVBAが正しく動作せず困っています。

V_JISKDATEの列に下記の様に文字列日付が入っています。
201210010830
（2012年10月1日8時30分というデータです）

月単位でデータをEXCELに取り出したいので、
下記の様に範囲指定を実施しました。
これに関しては正しく動作します。

Set rs = OraDatabase.CreateDynaset("select * from T_MANHOUR_DETAILS where V_JISKSTDATE> '201210' AND V_JISKSTDATE <'201211'", 0&)

次に範囲指定をセル値から参照して実行させたいので、
セル値を変数扱いで下記内容を追加しました。

A10に201210
A11に201211
が入っています。

下記、追加及び変更部
Dim ST As String
Dim Ed As String

ST = Range("A10")
Ed = Range("A11")

　　… where V_JISKSTDATE > 'ST' AND V_JISKSTDATE < 'ED'", 0&)

これだとだんまりで正しく動作しません。
変数部の'を取り下記の様にすると、

　　… where V_JISKSTDATE > ST AND V_JISKSTDATE < ED", 0&)
実行時エラー'440':
オートメーションエラーです。
とのエラーが出ます。

文字を<>で比較するのが怪しい感じがするのですが…。
どこを直せばよいのか教えていただきたく。

下記は10月分が正しく抽出される全文です。
----------------------------------------------------------
Private Sub btnGetDataoo4o_Click()
'oo4o用のオブジェクト変数の宣言
Dim OraSession As Object 'セッション
Dim OraDatabase As Object 'データベース
Dim rs As Object 'データセット(レコードセット)
Dim rownum As Long
Dim colnum As Integer

'セッションオブジェクトの生成
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
'oo4oデータベースオブジェクトの生成（DBへUserID:ID、パスワード:PWで接続）
Set OraDatabase = OraSession.OpenDatabase(ActiveSheet.Cells(26, 1), "ID/PW", 0&)
'oo4oデータセット(レコードセット)の生成（全データを返すレコードセットの生成）
Set rs = OraDatabase.CreateDynaset("select * from T_MANHOUR_DETAILS where V_JISKSTDATE> '201210' AND V_JISKSTDATE <'201211'", 0&)

'すでに表示されている内容のクリア
Call ClearDisp

'フィールド名の表示
For colnum = 0 To rs.Fields.Count - 1
ActiveSheet.Cells(2, colnum + 3) = rs(colnum).Name
Next

'データの表示
rownum = 0
Do Until rs.EOF
For colnum = 0 To rs.Fields.Count - 1
ActiveSheet.Cells(rownum + 3, colnum + 3) = rs(colnum).Value
Next
rs.MoveNext
rownum = rownum + 1
Loop
'セル幅の自動調整
' ActiveSheet.Columns("B:AU").EntireColumn.AutoFit

'オブジェクトのクローズ
rs.Close

'各種オブジェクトの開放
Set rs = Nothing
Set OraDatabase = Nothing
Set OraSession = Nothing
End Sub
----------------------------------------------------------
EXCEL2003　ORACLE V9.0です

回答No.1

STICKY2006 · ベストアンサー

こん竹輪。

未検証です。
可能性の提示だけ。

>>Set rs = OraDatabase.CreateDynaset("select * from T_MANHOUR_DETAILS where V_JISKSTDATE> '201210' AND V_JISKSTDATE <'201211'", 0&)

Set rs = OraDatabase.CreateDynaset("select * from T_MANHOUR_DETAILS where V_JISKSTDATE > 'ST' AND V_JISKSTDATE < 'ED'", 0&)

こゆことですよね。

Set rs = OraDatabase.CreateDynaset("select * from T_MANHOUR_DETAILS where V_JISKSTDATE > '" & ST & "' AND V_JISKSTDATE < '" & ED & "'", 0&)

こゆことかな。

「""」で囲まれた箇所は文字列だから、'ST'と'ED'をそのまま受け取って、比較できず結果が出ない。

個人的には、SQL文を組む場合には

Dim SQL_STR As String

set SQL_STR = "select * from T_MANHOUR_DETAILS where V_JISKSTDATE > '" & ST & "' AND V_JISKSTDATE < '" & ED & "'"

Set rs = OraDatabase.CreateDynaset(SQL_STR, 0&)

こんな感じにしておく方が好きです。

デバック時に、「print SQL_STR」のようにしておけば、それが正しいSQL文になってるのか。が確認しやすいので。

もう一つは「データ型変換」
。。。今回は大丈夫そうだけど。。。

>>V_JISKDATEの列に下記の様に文字列日付が入っています。
>>201210010830

まぁ、多分、STRING系のデータ型ですよね。
Dim ST As String
なので、まあ、今回は大丈夫そうですけど。。。
たまにやらかすのが、
Dim ST As int
にした。とか。

201210
なので、まぁ、入るっちゃ入りますが
201210010830
にした場合とかは、まぁ、格納時にエラーになるかな。。。

castだかconvertだか、CintだかCstrだか。。。忘れましたが（おい
データ型を気にして、明記しておく事が必要になったりする事もあるので、覚えておくといいかもです。

お礼

補足の
確認しましたが、エラー出ます。
は勘違いでした。
大変失礼しました。

異なる要因（データベース接続設定が消去されていました）でエラーが出ており、教えていただいた内容で正しく動作しました。
ありがとうございます。

SQL_STR =
の部分が反転表示され、
コンパイルエラーオブジェクトが必要です。
とエラーが表示されます。

は、補足の通りですが、こちらに関しては勉強するということで、
いったん受付終了させていただきます。
本当に助かりました。

補足

確認しましたが、エラー出ます。

Set rs = OraDatabase.CreateDynaset("select * from T_MANHOUR_DETAILS where V_JISKSTDATE > '" & ST & "' AND V_JISKSTDATE < '" & ED & "'", 0&)

実施しました。
変わらず実行時エラー'440':
オートメーションエラーでます。

Dim SQL_STR As String

set SQL_STR = "select * from T_MANHOUR_DETAILS where V_JISKSTDATE > '" & ST & "' AND V_JISKSTDATE < '" & ED & "'"

Set rs = OraDatabase.CreateDynaset(SQL_STR, 0&)
実施しました。

SQL_STR =
の部分が反転表示され、
コンパイルエラーオブジェクトが必要です。
とエラーが表示されます。