Помогите с датой в формировании запроса Select - VB
Формулировка задачи:
Есть текстовые поля на форме txt_DatN, txt_DatK (начальная, конечная).
В них вводится 01.01.2000 и 01.12.2009 (как пример)
нужно сформироать запрос для выборки, где поле Дата в этом интервале
Dim datN As String
txt_DataN = "01.21.1900"
txt_DataK = "01.21.2000"
datN = CDate(txt_DataN)
Data1.RecordSource = "SELECT kateg.kategogy, Sobit.Data, Sobit.Sobit FROM Kateg INNER JOIN sobit ON kateg.IDkateg = sobit.IDkateg WHERE (((sobit.Data)>=#" "# And (sobit.Data)<=#1/21/2000#));"
Data1.Refresh
Ошибка в том, что datN сохраняет "текстовые кавычки"
P.s. sql-запрос сформирован в access
В них вводится 01.01.2000 и 01.12.2009 (как пример)
нужно сформироать запрос для выборки, где поле Дата в этом интервале
Dim datN As String
txt_DataN = "01.21.1900"
txt_DataK = "01.21.2000"
datN = CDate(txt_DataN)
Data1.RecordSource = "SELECT kateg.kategogy, Sobit.Data, Sobit.Sobit FROM Kateg INNER JOIN sobit ON kateg.IDkateg = sobit.IDkateg WHERE (((sobit.Data)>=#" "# And (sobit.Data)<=#1/21/2000#));"
Data1.Refresh
Ошибка в том, что datN сохраняет "текстовые кавычки"
P.s. sql-запрос сформирован в access
Решение задачи: «Помогите с датой в формировании запроса Select»
textual
Листинг программы
datN = CDate(txt_DataN)