SQL-запрос к этому полю типа 'SELECT * FROM [файл] WHERE [поле типа дата] > [

Суть проблемы:
Есть база, созданная средствами VB (Visual Data Manager) в Access формате. В ней есть поле типа Data/Time. Так вот, SQL-запрос к этому полю типа 'SELECT * FROM [файл] WHERE [поле типа дата] > [переменная с датой]' выдает ошибку несовместимости типов данных. Пробовал строковые переменные, отформатированные под дату, пробовал переменные с типом Date, с кавычками и без них - не помогает. Помогите!

0

Winda то небось Русская?:-) Да и офис тоже небось русский? :-))
Не совпадают форматы дат в запросах и в офисе.
Чтобы сравнить дату в SQL запросе она должна быть американского стандарту 'месяц/число/год'.

Вот держи функцию, которую я лет пять назад написал, перед запросом переделывай дату при помощи этой функции:

'Стандарт получаемой даты в самом верху модуля тип поставь
Public Enum dfDateFormat
dfRU = 0 'Русский вариант
dfEN = 1 'Английский вариант
End Enum

'Конвертирует Даты в Руский или Английский стандарт
'В случае ошибки возвращает пустую строку; при успешном выполнении
дату нужного стандарта как строковую переменную
'dfOutFormat это в каком варианте тебе вернуть дату в строке dfEn английский

Public Function Convert_Date_RU_EN(dtDate As Variant, dfOutFormat As dfDateFormat) As String
Dim strDT As String

On Error GoTo ErrD
strDT = CStr(dtDate)
If InStr(strDT, '.') <> 0 Then
Select Case dfOutFormat
Case 0 'Русский
strDT = Mid(strDT, InStr(strDT, '.') + 1, InStrRev(strDT, '.') - InStr(strDT, '.') - 1) & '.' & Left(strDT, InStr(strDT, '.') - 1) & '.' & Mid(strDT, InStrRev(strDT, '.') + 1)
Case 1 'Английский
strDT = Mid(strDT, InStr(strDT, '.') + 1, InStrRev(strDT, '.') - InStr(strDT, '.') - 1) & '/' & Left(strDT, InStr(strDT, '.') - 1) & '/' & Mid(strDT, InStrRev(strDT, '.') + 1)
End Select
Convert_Date_RU_EN = strDT
ElseIf InStr(strDT, '/') <> 0 Then
Select Case dfOutFormat
Case 0 'Русский
strDT = Mid(strDT, InStr(strDT, '/') + 1, InStrRev(strDT, '/') - InStr(strDT, '/') - 1) & '.' & Left(strDT, InStr(strDT, '/') - 1) & '.' & Mid(strDT, InStrRev(strDT, '/') + 1)
Case 1 'Английский
strDT = Mid(strDT, InStr(strDT, '/') + 1, InStrRev(strDT, '/') - InStr(strDT, '/') - 1) & '/' & Left(strDT, InStr(strDT, '/') - 1) & '/' & Mid(strDT, InStrRev(strDT, '/') + 1)
End Select
Convert_Date_RU_EN = strDT
Else
Convert_Date_RU_EN = ''
End If
Exit Function
ErrD:
Convert_Date_RU_EN = ''
Exit Function
End Function

0

попробуй заключить дату в ##
#21/12/2001#

И может быть надо сделать американский формат mm/dd/yyyy.
А вообще лучше приведи код

0

Спасибо, но просто американский формат пока не помог.
А код примерно такой:

Data1 - поле базы данных типа Date/Time

Dim Data2 as string (или as Date)
Data1 = DTPicker.Value
....
.Open ('SELECT * FROM File WHERE Data1 >= '' & Дата2 & ''')
или
.Open ('SELECT * FROM File WHERE Data1 >= '' & _
Format(Дата2,'dd.mm.yy') & ''')
или
.Open ('SELECT * FROM File WHERE Data1 >= '' & _
Format(Дата2,'mm.dd.yy') & ''')

0

Опять же те же грабли лабызаешь! Тебе же сказали АМЕРИКАНСКИЙ формат, а ты что делаешь: Format(Дата2,'mm.dd.yy') какие точки в английском формате там слэши '/'.
И на счет Data1=DTPicker.Value это же поле в базе, наверное ты описку допустил?
Запрос выглядит так:

Dim Data2 as Date
Dim Data3 AS String
Data2 = DTPicker.Value
Data3 = Convert_Date_RU_EN(Data2, dfEN)
теперь Data3='8/18/2004' это сегодня
Open ('SELECT * FROM File WHERE Data1>=#' & Data3 & '#')

0

Да, про Data1 это описка конечно.
Щас попробую со слешами

0

Парни, спасибо! Заработало!
Работает только если заключить переменную в решетки (##).
Никогда б не догадался )

0