xl内のSQL VBA日付検索クエリ

Question

日付をdd/mm/yyyy形式で入力するために、XL2010でFROMとTOのセル参照があります。

ただし、FROMとTOの両方に同じ日付を入力すると、何も見つかりません。 質問に間違いがありますか？

私はTOを翌日に変更すると、FROMの日付のすべてが見つかります。 しかし、> =と< =を使用している場合、私のクエリは、どのように等価がTOフィールドのために働いていないのでしょうか？

Dim sDate As Date 
    sDate = Cells(6, 2) 
Dim fDate As Date 
    fDate = Cells(6, 3) 

Sheets("Appts").Select 
Range("A1").Select 

Dim appt As String 
appt = "SELECT CONVERT(VARCHAR(10), slot_dt, 103) AS date, time " _ 
     & "FROM slotapp " _ 
     & "WHERE (slot_dt >= '" & sDate & "' AND slot_dt <= '" & fDate & "') " _ 
     & "ORDER BY slot_dt" 

Answer 1

slot_dtは日時フィールドです。あなたが持っている問題は、時間の部分に起因しています。私はあなたがSDATEとFDATEの日付値を使用して<に< =を変更することにより、それを修正することができると思います。

Dim sDate As Date 
    sDate = DateValue(Cells(6, 2)) 
Dim fDate As Date 
    fDate = DateValue(Cells(6, 3)) + 1 

Sheets("Appts").Select 
Range("A1").Select 

Dim appt As String 
appt = "SELECT CONVERT(VARCHAR(10), slot_dt, 103) AS date, time " _ 
     & "FROM slotapp " _ 
     & "WHERE (slot_dt >= '" & sDate & "' AND slot_dt < '" & fDate & "') " _ 
     & "ORDER BY slot_dt"