powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Фильтр в ADO
7 сообщений из 32, страница 2 из 2
Фильтр в ADO
    #32789109
АлексейЕ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
LenivecАлексейК

я и не против, но там нигде не написано что выражение обязательно должно формировать текстовое поле (смотри выше, выписка из хелпа)
Lenivec :) Вы просто попробуйте.

АлексейКа что если в исходном запросе сделать такое преобразование - как вычисляемое поле ?
Вот как раз этого я и хотел избежать, но видимо не получится. Буду думать в направлении вычисляемых полей (скрепя сердцем), или создания нового рекордсета с условием WHERE (еще больше скрепя.)
Может еще есть варианты?
...
Рейтинг: 0 / 0
Фильтр в ADO
    #32789271
Фотография Latuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я тоже долго парился с ADO-ным фильтром
особенно много гемора хапнул с несоответствием синтаксиса
фильтра ADP-ной формы (вроде как тоже на ADO рекордсете основанной)
и фильтра ADO рекордсета полученного клоном
а тут еще глюки условного форматирования итд и тп.

в конце концов плюнул и теперь если встречаю юзера который
хочет фильтры активно юзать
то сливаю данные в локальный MDB-к и открываю форму
через DAO из этого MDB-ка

кода три строки гемора ноль.
...
Рейтинг: 0 / 0
Фильтр в ADO
    #32789366
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
кстати если речь идет об adp то у формы есть еще и серверный фильтр, там побогаче с выбором функций (серверные)
...
Рейтинг: 0 / 0
Фильтр в ADO
    #32789416
Lenivec
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а как вам такое извращение, тока что придумал:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Sub qqq()
Dim rs As ADODB.Recordset
Dim vFields() As Variant
Dim i As Long
    
    Set rs = ...

    i =  0 
    Do While rs.EOF <> True
        If rs("Birthdayy").Value Like "*1*" Then
            ReDim Preserve vFields(i)
            vFields(i) = rs.Bookmark
            i = i +  1 
        End If
        rs.MoveNext
    Loop
    rs.Filter = vFields
    
End Sub
...
Рейтинг: 0 / 0
Фильтр в ADO
    #32789424
Lenivec
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Birthdayy - это я просто на своей базе пробовал, там такое поле типа дата
...
Рейтинг: 0 / 0
Фильтр в ADO
    #32789552
Lenivec
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
и никаких отзывов, неужели уже никому не надо
...
Рейтинг: 0 / 0
Фильтр в ADO
    #32789686
АлексейЕ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Lenivecи никаких отзывов, неужели уже никому не надо
Да конечно надо.
Спасибо. Тоже способ. Будем извращаться.
...
Рейтинг: 0 / 0
7 сообщений из 32, страница 2 из 2
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Фильтр в ADO
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]