adoでBetween は使えないのでしょうか？

質問

ADOで期間で抽出したいのですが

rs.Open strテーブル, cn, adOpenStatic, adLockPessimistic
rs.Filter = "計上日 = #2015/01/01#"

は問題なく通るのですが、

rs.Open strテーブル, cn, adOpenStatic, adLockPessimistic
rs.Filter = "計上日 Between #2015/01/01# And #2015/01/31#"

だと
実行時エラー3001「引数が間違った型、許容範囲外、または競合しています。」
と言うエラーになります。

adoでBetween は使えないのでしょうか？

回答No.2

山田 太郎（@f_a_007） · ベストアンサー

補足: Filter と日付範囲の指定

ANDを使います。

Public Function DBSelectII(ByVal strQuerySQL As String, _
　　　　　　　　　　　　　 ByVal strFilter As String, _
　　　　　　　　　　　　 Optional strPause As String = ";") As String
On Error GoTo Err_DBSelectII
　　Dim I　　　　　 As Integer
　　Dim J　　　　　 As Integer
　　Dim R　　　　　 As Integer ' 行インデックス
　　Dim M　　　　　 As Integer ' 行総数 - 1
　　Dim rst　　　　 As ADODB.Recordset
　　Dim fld　　　　 As ADODB.Field
　　Dim strList　　 As String　' 全てのデータを区切子で連結して格納

　　Set rst = New ADODB.Recordset
　　With rst
　　　　.Open strQuerySQL, _
　　　　　　　CurrentProject.Connection, _
　　　　　　　adOpenStatic, _
　　　　　　　adLockPessimistic
　　　　If Not .BOF Then
　　　　　　.Filter = strFilter
　　　　　　M = .RecordCount - 1
　　　　　　.MoveFirst
　　　　　　For R = 0 To M
　　　　　　　　For Each fld In .Fields
　　　　　　　　　　With fld
　　　　　　　　　　　　strList = strList & .Value & strPause
　　　　　　　　　　End With
　　　　　　　　Next fld
　　　　　　　　strList = strList & Chr(13)
　　　　　　　　.MoveNext
　　　　　　Next R
　　　　Else
　　　　　　strList = ""
　　　　End If
　　End With
Exit_DBSelectII:
On Error Resume Next
　　rst.Close
　　Set rst = Nothing
　　DBSelectII = IIf(Len(strList) > 0, Replace(strList & "[END]", Chr(13) & "[END]", ""), "")
　　Exit Function
Err_DBSelectII:
　　MsgBox "SELECT 文の実行時にエラーが発生しました。(DBSelectII)" & Chr$(13) & Chr$(13) & _
　　　　　　"・Err.Description=" & Err.Description & Chr$(13) & _
　　　　　　"・SQL Text=" & strQuerySQL, _
　　　　　　vbExclamation, " 関数エラーメッセージ"
　　Resume Exit_DBSelectII
End Function

お礼

ありがとうございました。

回答No.3

imogasi

http://okwave.jp/qa/q8322811.html
http://soudan1.biglobe.ne.jp/qa8322811.html
に似た（同類の）質問・回答があるのでは。
Ｇｏｏｇｌｅで「ADO filter Between」で照会すれば出てくる。
この頃はＷＥＢ記事もＯＫＷＡＶＥ（過去質問）も充実してきて、同じ（同類）質問があると思ったほうがよさそうだよ。

お礼

ありがとうございました。

回答No.1

山田 太郎（@f_a_007）

https://msdn.microsoft.com/ja-jp/library/Cc426691.aspx

Microsoft の Filter に関する説明を一読されてください。

＞検索文字列は、「フィールド名-演算子-値」形式の句で構成されます。

つまりは、WHERE節とは書き方が違うってことです。添付図は、WHERE節でBETWEEN句を使った結果です。なお、DBSelect()ではADOを利用しています。

Public Function DBSelect(ByVal strQuerySQL As String, _
　　　　　　　　　　　　 Optional strPause As String = ";") As String
On Error GoTo Err_DBSelect
　　Dim I　　　　　 As Integer
　　Dim J　　　　　 As Integer
　　Dim R　　　　　 As Integer ' 行インデックス
　　Dim M　　　　　 As Integer ' 行総数 - 1
　　Dim rst　　　　 As ADODB.Recordset
　　Dim fld　　　　 As ADODB.Field
　　Dim strList　　 As String　' 全てのデータを区切子で連結して格納

　　Set rst = New ADODB.Recordset
　　With rst
　　　　.Open strQuerySQL, _
　　　　　　　CurrentProject.Connection, _
　　　　　　　adOpenStatic, _
　　　　　　　adLockReadOnly
　　　　If Not .BOF Then
　　　　　　M = .RecordCount - 1
　　　　　　.MoveFirst
　　　　　　For R = 0 To M
　　　　　　　　For Each fld In .Fields
　　　　　　　　　　With fld
　　　　　　　　　　　　strList = strList & .Value & strPause
　　　　　　　　　　End With
　　　　　　　　Next fld
　　　　　　　　strList = strList & Chr(13)
　　　　　　　　.MoveNext
　　　　　　Next R
　　　　Else
　　　　　　strList = ""
　　　　End If
　　End With
Exit_DBSelect:
On Error Resume Next
　　rst.Close
　　Set rst = Nothing
　　DBSelect = IIf(Len(strList) > 0, Replace(strList & "[END]", Chr(13) & "[END]", ""), "")
　　Exit Function
Err_DBSelect:
　　MsgBox "SELECT 文の実行時にエラーが発生しました。(DBSelect)" & Chr$(13) & Chr$(13) & _
　　　　　　"・Err.Description=" & Err.Description & Chr$(13) & _
　　　　　　"・SQL Text=" & strQuerySQL, _
　　　　　　vbExclamation, " 関数エラーメッセージ"
　　Resume Exit_DBSelect
End Function

お礼

ありがとうございました。