Access2013 32bit(Windows10 64bit ver.20H2)を勉強中の初心者です。
ADOでのSQLのあいまい検索にて、うまく抽出できません。
デザインビューからのクエリだと同じ条件でも抽出できるのですが、
下記ソースだと、Recordsetの中身が空になってしまい、SQLを実行しても抽出できません。
SQLの記述か、Recordsetの設定が間違っているのか、他に原因がありそうか、
お手数ですがご教示ください。
該当のソースコード
AccessVBA
1Private Sub コマンド0_Click() 2 3 '▼ 1. DB接続準備 4 Dim CN As ADODB.Connection 5 Dim RS As ADODB.Recordset 6 Dim SQL As String 7 8 Set CN = CurrentProject.Connection 9 Set RS = New ADODB.Recordset 10 11 12 '▼ 2. 抽出 13 SQL = "" 14 SQL = SQL & "SELECT * " & vbCrLf 15 SQL = SQL & " FROM T_テスト用TB" & vbCrLf 16 SQL = SQL & " WHERE (" & vbCrLf 17' SQL = SQL & " and (日時 like '2020/04/28 7:30:00')" & vbCrLf ’ '← ※この条件だと抽出できます 18 SQL = SQL & " and (日時 like '2020/04/28*')" & vbCrLf '← ※こちらに条件を変更すると抽出できなくなります 19 SQL = SQL & " )" & vbCrLf 20 21 RS.Open SQL, CN, adOpenStatic, adLockOptimistic 22 23 Debug.Print "" 24 Debug.Print Now() & " ==============" 25 Debug.Print SQL 26 Debug.Print "-----------------------" 27 28 '▼ 3. 結果出力 29 If RS.EOF = False Then 30 31 Do Until RS.EOF 32 Debug.Print RS!商品名 33 RS.MoveNext 34 35 Loop 36 37 Debug.Print "" 38 MsgBox "SQL実行:抽出完了しました" 39 40 Else 41 Debug.Print "" 42 MsgBox "SQL実行:該当件数は 0 です" 43 44 End If 45 46 '▼ 4. DB接続解除 47 RS.Close: Set RS = Nothing 48 CN.Close: Set CN = Nothing 49 50End Sub
試したこと
ADO接続をDAOに変えてみましたが、結果は同じでした。
AccessVBA
1'上記ソースの「'▼ 1. DB接続準備」部を以下に書き換え、 2'変数名「CN」使用部をすべてコメントアウトしました。 3 Dim RS As Recordset 4 5 Set RS = CurrentDb.OpenRecordset("T_T_テスト用TB", dbOpenDynaset)
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2021/06/25 01:21