рассуждение на тему ADO

[fun]

просто ради интереса, может кто скажет где дуплю, пишу прогу простою как валенок (работа с БД)

имеем два рекордсета и две таблици
связаны они просто через свойства (в смысле до компиляции)
свойства рекордсетов и таблиц идентичны

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


'если в первой
rst1.Filter="idls='3'"
'выбирает idls=3
'а потом
rst1.Filter=""
'показует все записи
'~~~~~~~~~~~~~~~~~~~~~~~~
'то во второй
rst1.Filter="idls='3' OR idls='4'"
'выбирает idls=3 или 4
'а потом
rst1.Filter=""
'показует ноль записей


вопрос почему?
когда он такое с MySql делает понятно но я то с Access играюсь
VB6,Access 2003, Microsoft.Jet.OLEDB.4.0

[GSerg]

Вообще-то, для сброса фильтра юзается .Filter = adFilterNone...

[fun]

я конечно не претендую на полную обективность но что при .Filter=""
что при .Filter = adFilterNone присваюется .Filter =0.

.Filter="" взято с MSDN, а .Filter = adFilterNone тоже не работает

[GSerg]

А показывает записи где и через что?

[fun]

та в рекордсете записи есть они просто до таблици не доходят,
я конечно сделаю через

strSql="SELECT * FROM tabIdls"
rst2.Open strSql
set datagrid2.DataSource=nothing
set datagrid2.DataSource=rst2

но впринципе неправильно єто как то

та и еще кое что руками делать прийдется

[GSerg]

Курсор клиентский?
Refresh не помогает?

[Алексей К.]

У тебя после фильтра рекордсета, сколько Recordcount? Если 0 то и нечего отображать, а если не ноль, то попробуй обновить грид так:
...фильтруешь рекордсет
set datagrid2.DataSource=nothing
set datagrid2.DataSource=rst2 - фильтрованный

[GSerg]

Алексей К., внимательно посмотри сюда.

[Алексей К.]

[fun]

та так

deMain.rscomIdLsUmc.Filter = ""
Set DataGrid1.DataSource = Nothing
Set DataGrid1.DataSource = deMain.rscomIdLsUmc

я уже 2 часа как сделал

меня мучает че он фильтр как положено сбрасывать не хочет

а свойства рекордсетов и таблиц я очень крепко проверил раз 20-идентичны

[fun]

а если у VB6 это нормально и часто встречается то тему можно закрывать

[GSerg]

Нет, это не нормально.

http://support.microsoft.com/default.as ... -us;223064
Ставь сервис-пак.

[fun]

я получил ответ на вопрос что єто такое и как с ним боротся, спасибо