SQL-запрос сравнения дат - VB
Формулировка задачи:
Есть аксесовская база test, поле даты Time (содержит к примеру 01.12.2001)
Dim d1 As Date
Option Explicit
Private Sub Command1_Click()
d1 = InputBox("vedite")
Data2.RecordSource = "Select sum(Obem) as f1 from test where (Time = " + " #" + d1 + "#" + ") "
Data2.Refresh
End Sub
Что-то селект не работает, пишет несоответствие типов.
Переменную d1 вводим, к примеру, в виде 01.11.2003
Dim d1 As Date
Option Explicit
Private Sub Command1_Click()
d1 = InputBox("vedite")
Data2.RecordSource = "Select sum(Obem) as f1 from test where (Time = " + " #" + d1 + "#" + ") "
Data2.Refresh
End Sub
Что-то селект не работает, пишет несоответствие типов.
Переменную d1 вводим, к примеру, в виде 01.11.2003
Решение задачи: «SQL-запрос сравнения дат»
textual
Листинг программы
<br>Format(Now, <b><font color="green">"mm/dd/yyyy"</font></b>)