Не отрабатывает Recordset в AdoDb при чистке таблицы

[Vlad_Ginz]

В программе вначале очищаю таблицу в БД :
Dim dbRab As New ADODB.Connection , rst As New ADODB.Recordset, qq$,Cnn$


Cnn = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;" & "Data Source=D:\POPRAB.MDB;"

dbRab.ConnectionString = Cnn
dbRab.CursorLocation = adUseClient ' или adUseServer - пробовал
dbRab.Open

qq = "Delete * From tRabXYZ"
dbRab.Execute (qq)

Все прекрасно очищается (просмотр в Access).Затем создаю Recordset (rst):

qq = "Select * From tRabXYZ"
rst.Open qq, dbRab.ConnectionString, adOpenKeyset, adLockOptimistic, adCmdText
rst.Requery
qq="str"

И далее непонятно. Если между очисткой таблицы и созданием (rst) устанавливаю отладочный (Toggle BreakPoint) -
(например на строке (rst.Open ...)), все прекрасно - на строке (qq="str") Recordset показывает число записей = 0 и rst.absolutePosition = -1, rst.Eof = True
Но как только убираю (Toggle BreakPoint) - Recorset (rst) показывает число записей в таблице
до ее очистки и rst.absolutePosition = 1. , хотя при просмотре в Access таблица чиста !.

Уж пробовал и (rst.requery) после Open и искусственное добавление и удаление записи в (rst) -
результатат - тот же.

после Ваших предложений пробовал :

rst.close и rst.update
и снова открываю Recordset даже с другим именем - rstF.Open ...
Никакого толка. Показывает rst.eof=False , rstBof=False, rst.RecordCount=n, где n-число удаленных записей.

Я просто пытаюсь заменить в старой программе (DAO c DATA) на ADODB и ADODC, чтобы работать с новыми версиями
.mdb Access.
В моей старой программе используется DAO c многочисленными вставками типа (.Execute SQL) и потом созданием новых Recordset и никаких проблем.

Похоже, дело в том, что полностью очищается таблица и возникает какая-то неопределенность, потому что при удалении не всех записей - операторы отрабатывают идеально !
Попробуйте выполнить фрагмент данной программы на своем компьютере. Что получится ? (не забудьте убрать
Toggle BreakPoint, потому что с ним все идет идеально.
Что-то не учитываю. Помогите пожалуйста.

[Ennor]

1. Проверь, есть ли в Аксессе транзакции. Если есть, почитай на эту тему - BEGIN / COMMIT тут явно не помешал бы.
2. Проверь, если ли в Аксессе режим неявных транзакций (SET IMPLICIT_TRANSACTIONS {ON | OFF}). Если есть, проверь, как себя в этом вопросе ведет используемый тобой драйвер по дефолту.
3. Ну попробуй, в конце концов, DoEvents / Sleep() поставить перед открытием второй выборки. Это, конечно, некрасиво и ненадежно, но вдруг именно такой подход поможет тебе понять, что же там происходит...

[Konst_One]

Попробуй так:

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

dbRab.ConnectionString = Cnn
dbRab.CursorLocation = adUseClient 
dbRab.IsolationLevel=adXactReadCommitted
dbRab.Open

[GSerg]

4. Зацени возможность багов и качни с www.microsoft.com/downloads MDAC 2.8 и JET 4.0

[val]

Vlad_Ginz

qq = "Select * From tRabXYZ"
rst.Open qq, dbRab.ConnectionString, adOpenKeyset, adLockOptimistic, adCmdText
rst.Requery
qq="str"

1. Поставь BreakPoint на rst.Open qq, dbRab.ConnectionString, adOpenKeyset, adLockOptimistic, adCmdText
2. Удали rst.Requery
3. Вместо rst.Requery поставь:
If rst.RecordCount >0 then
rst.movelast
rst.movefirst
end if

debug.print rst.RecordCount

4. Напиши что получилось

[Vlad_Ginz]

Перепробовал все рекомендации. Спокойно съедает и выдает все те же результаты.
Хоть бы кто-нибудь попробовал этот фрагмент на своем компе и отписал хотя бы в честь праздника.
У Вас же может произойти то же самое !
Первому, кто укажет правильный ответ - поставлю свечку.
Жду, жду, жду ...

[GSerg]

Если рекомендацию 4 тоже попробовал, то...
Прямо вот такое ощущение, что ADO прёт выполнять всё асинхронно. Попробуй события рекордсета ловить, типа FetchComplete... И посмотри, точно нигде не юзается adAsyncExecute?

[Konst_One]

все работает без проблем и грид ничего не выводит
весь код в студию и саму таблицу и форму с гридом

[Konst_One]

Вот написал для теста, см. и разбирайся:

[Vlad_Ginz]

"Постояльцу" - просьба более подробно указать Reference и другие
Component, Mdac , версию Access и др., а также привести код, с которым Вы отработали. Возможно, дело в какой - то тонкости, которую я не учитываю.
Благодарю за отклики.

[Konst_One]

открой мой проект и все сам увидишь
можно подключаться к любой базе через любой OLEDB провайдер

[Sebas]

а открывать рекордсет статически не пробовали?

[Vlad_Ginz]

"Постояльцу" - огромное спасибо за мастер-класс !
Но, сравнивая свои коды с присланными, нашел ошибку в своей программе :
Было : rst.Open "Select ..", dbRab.Connection, ....

Надо было : rst.Open "Select ...", dbRab, ....

Вот и все !
А свечку за здравие поставлю всем откликнувшимся.
Закрываю тему !

[val]

Надеюсь свечка будет не за упокой...