и снова формат даты в запросе..

[skulida]

сори...такие вопросы уже были , но все же прошу разъяснит как надо делать:
есть в базе поле DATA1 , ее формат - краткий формат даты (31.12.03)
на форме есть текстбокс text1.text - в свойствах его формат выставлен как shortdate. - ввожу туда выражение вида 31.12.03
как правильно сделать запрос сравнения с датой введенной в текстбокс
sSQL =....and data1 = " ....
???
пробую все возможные варианты ошибки либо мало параметров, либо число содержит синтактическую ошибку в запросе...
подскажите как надо ???

[A.A.Z.]

Код: Выделить всё

Dim DateFromData1 As Date
Dim DateFromText1 As Date
Dim sString$ (1 To 2)
Dim sSQL$

DateFromText1 = 31.12.03
Dim DateFromText1 = 31.12.03
sString(1) = Replace(DateFromData1, ".", "/")
sString(1) = Left(sString(1), 2) & "/" & Mid(sString(1), 3, 2) & "/" & Right(sString(1), 2)

sString(2) = Replace(DateFromText1, ".", "/")
sString(2) = Left(sString(2), 2) & "/" & Mid(sString(2), 3, 2) & "/" & Right(sString(2), 2)
sSQL = "... AND #" & sString(1) & "# = #" & sString(2) & "# ..."


Короче, в SQL формат даты - "#mm/dd/yy#"
Пример дурацкий, но по идее должен работать...

[amelina]

Короче, в SQL формат даты - "#mm/dd/yy#"
Пример дурацкий, но по идее должен работать...

У меня тоже только так работает.

[Netta]

Попрпбый sSQL =....and data1 = #" & CDate("31.12.03") & "#
Или сперва укажи формат даты установленный на компе dat=Format("31.12.03","mm.dd.yyyy"), a только потом в SQL