База данных медлит

[xfolder]

программа построена на Access

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

когда я обнавляю row с db.execute "UPDATE xxx SET...."

и через несколько строк пытаюсь считать новые данные из БД ТО вот тут частенько получаю необновленные данные!

в дебаг режиме все ок, сложилось впечатление что row не успевает обновиться физически до момента когда я уже запрашиваю его.

вот думаю может дело в Locks но что то не работает

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

[GSerg]

Выполнение асинхронное?
Есть неподтверждённые транзакции?

[xfolder]

наверно нет

как подтвердить то?

[GSerg]

Позырить в код.

[xfolder]

к примеру

добавили мы новый заказ в базу данных и тут же надо вывести список всех заказов по этому клиенту


сделал новую запись
....
....
....

делаю запрос типа

rs.open "SELECT SUM(price) as total WHERE clientID=100"
summa=rs("total") 'получаю старую сумму
.....

потом запрашиваю весь список заказов из тойже таблицы и получаю

xxx 1.00
yyy 3.45
zzz 2.00


ведь по идее сумма должна быть равна 6.45


доступ к БД через ADO Mdac 2.7

db.open settings.connectionstring
rs.open sSql,db, adOpenForwardOnly,adLockPessimistic
rs.close
db.close:set db=nothing

[Konst_One]

adLockPessimistic не пробовал на оптимистичный менять?
кстати, ты в момент апдейта возвращай кол-во проапдейченных записей:

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

Dim RecordsAffected  as Long

db.Execute "UPDATE xxx SET....", RecordsAffected

Debug.print "Обновлено записей: " & RecordsAffected

[xfolder]

в начале был оптимистик но как появилась проблема поставил Lock пожеще

в дебаг режиме все ок! похоже у машины времени больше все по порядку сделать а когда в run time то не успевает.

[Konst_One]

DoEvents ???

[xfolder]

есть и они местами

где loop или for

[Konst_One]

попробуй открывать рекордсет для просмотра так:

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

...
Set rs=New ADODB.Recordset
rs.CursorLocation=adUseClient
Set rs.ActiveConnection=db
rs.Open "SELECT ...",,adOpenStatic, adLockReadOnly
...

[moshkin]

У меня было такое с сортировкой.
Задается запрос отсортировать и вывести в файл. Иногда, причем не предсказуемо, выводились куски перепутанные местами.
Я тоже лазил по форуму, никто в общем-то конкртено не подсказал. Я просто вставил MsgBox. Выполняется редко - жду пару секунд и все.
Теперь все работает.
Но у меня очень большой файл с базой.
Так что похоже что действительно что-то не успевает.

[GSerg]

Мож нуно поставить MDAC 2.8 и Jet SP8?
А то как у меня пропали некоторые баги после их установки, теперь всем советую

[MeMBus]

А если попробовать закрыть коннект к БД после обновления (м.б. рекордсета и бд), сделать doevents и попробывать открыть? Хотя может быть я и не прав...

[GSerg]

Может ты и прав, но так делать точно не надо

[MeMBus]

Я согласен что нужно разобраться в сути «отчего тормозит»... Но трудно разобраться не видя кода, м.б. что-то в коде не так...