Filter по дате для ADO объекта

[Ol1965]

Подскажите, почему rsAccount.Filter="tDate=13/11/2007" выдает ошибку, а вместе с тем rsAccount.Filter="tDate>13/11/2007" - отрабатывает нормально для всех условий кроме "=". И именно с датами. Заранее благодарен.

[Antonariy]

#13/11/2007#

[Ennor]

MS Access?

[Wachamakolit]

Не хотелось создавать новую тему, вопрос примерно по теме ADO 2.8 под VB6 хочу создать фильтр: zakazRs.Filter = "ZakDate BETWEEN #01/01/2007# AND #02/01/2007#" при отладке выдает ошибку: 3001 Аргументы имеют неверный, выходят за пределы допутимого диапазона... ну и тд Перебирал всё, менял год на короткий, меня местами месяц и день. При этом под DAO этот фильтр работает на ура и никада мне мозг не бибикал. у меня ступор.

UPD: База Access 2000

[skiperski]

Некоторые конструкции в ADO не работают. Попробуй так

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

zakazRs.Filter = "ZakDate >= #01/01/2007# AND ZakDate <= #02/01/2007#"

[Wachamakolit]

Некоторые конструкции в ADO не работают. Попробуй так

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

zakazRs.Filter = "ZakDate >= #01/01/2007# AND ZakDate <= #02/01/2007#"

Спасиба тебе добрый человек Сам бы до этого не дошел.

А где ваще можно посмотреть чего еще ADO не умеет делать?
А то вот щас обнаружил в коде если писать так:

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

zakazRs.Filter = "ZakDate=#" & Month(Dt) & "/" & Day(Dt) & "/" & Year(Dt) & "#"

то в наборе ничего нет, хотя данные точно есть, а если поменять местами Month и Day

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

zakazRs.Filter = "ZakDate=#" & Day(Dt) & "/" & Month(Dt) & "/" & Year(Dt) & "#"

то всё заработает как часы китайскиё Мож мне пора спать?

[skiperski]

А где ваще можно посмотреть чего еще ADO не умеет делать?

Точно не знаю, наверное в MSDN'е. Точно знаю, что конструкция IN не работает.

а если поменять местами Month и Day... то всё заработает как часы китайскиё

Это какой-то глюк. Ещё чего-то такое было с пробельными символами между условием и знаками оперций, т.е. Field=Value не всегда работает так как Field = Value. Поэтому я всегда отделяю пробелами операции.

По поводу дат: попробуй запросить не как дату, а как строку в формате "yyyy-mm-dd". Почти все понимают этот формат и тут не перепутаешь день с месяцем.

ЗЫ: Форматировать дату красИвее не

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

"#" & Month(Dt) & "/" & Day(Dt) & "/" & Year(Dt) & "#"

а с помощью функции Format$()

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

Format(Dt, "\#mm\/dd\/yyyy\#")

Мож мне пора спать?

Утро вечера мудренее.

[Andrey Fedorov]

Пример:

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

    Const dtf As String = "'yyyy-mm-dd'"
    Dim cn As ADODB.Connection, r As New ADODB.Recordset
    Dim db As Date, de As Date
   
    db = #5/3/2007#
    de = #5/4/2007#
   
    Set cn = CurrentProject.AccessConnection
    r.Open "SELECT [Date] FROM [MyTable] ORDER BY 1", cn, adOpenStatic, adLockReadOnly
    r.Filter = "DATASD>=" & Format$(db, dtf) & " AND DATASD<=" & Format$(de, dtf)

[sergey-911]

А подскажите, уважаемые, следует ли пользоваться фильтром, или лучше составить новый параметрический запрос с условием "WHERE"?

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

dim c as adodb.command, r as adodb.recordset

set c=new adodb.command
set c.activeconnection = conn
c.commandtype=adcmdtext
c.commandtext="SELECT * FROM [main] WHERE [partNum] Like ? AND [Descr] Like ?"
c.parameters.add c.createparameter("strParam1", advarwchar, adparaminput, 255, strParam1)
c.parameters.add c.createparameter("strParam2", advarwchar, adparaminput, 255, strParam2)

set r=new adodb.recordset
r.open c,,adopenstatic,adlockreadonly