Потеря записей в бд Access

[ger_kar]

Приложение на VB6
Подключение к СУБД Access 2003 (MS JET 4.0)
Используемый компонент ADO DB.

При работе с базой данных иногда (достаточно редко) возникает глюк, при котором добавляемые записи не сохраняются в таблицах базы данных. Причем, после того как этот глюк проявляется, все записи добавляемые после этого момента в базу доступны только в текущей сессии подключения к базе данных, которая совпадает по времени с работой приложения. И получается следующее: глобальный объект ADODB.Connection создается при запуске приложения, далее идет подключение к базе и в дальнейшем приложение использует это соединение. Все прекрасно работает, но в один прекрасный момент (который может проявиться раз в месяц, а то и реже) происходит глюк и после закрытия приложения, данных, которые добавлялись, изменялись и т.п. в базе данных нет как нет. При работе приложения глюк никак не проявляется, никаких исключений не происходит, с добавленными данными можно работать и пр., но как только закрыл приложение, то данным каюк. Такое ощущение, что данные есть в кэше, а в сам файл mdb не прописываются. Причем поле счетчика увеличивается и после нормального добавления следующей записи ( в следующем сеансе работы) можно даже по отсутствующим идентификаторам точно посчитать какое количество записей было утеряно.

В принципе конечно можно каждый раз при использовании ADODB.Connection делать реконнект, или вообще создавать/уничтожать ADODB.Connection, но такой вариант мне жутко не нравится, так как он не соответствует принципу лени. Да и вообще непонятно что глючит, то ли сам провайдер, то ли ADO. Может кто уже сталкивался с подобным?

[HandKot]

Очень похоже на поведение при работе с транзакциями. Т.е открыли, поработали, не сделали коммит транзакции и все вернулось на круги своя.

[ger_kar]

Да по поведению совпадает с незавершенными транзакциями. Как если бы была одна транзакция, начинавшаяся сразу после коннекта, и не завершенная при закрытии соединения с базой. Но в том то и дело, что такой транзакции нет , а те транзакции, которые имеются в приложении завершаются вполне нормально, да и к тому же они не носят такого глобального характера. Может глюк в самом ADO?

[Qwertiy]

А там нет чего-нибудь типа автоматического оборачивание соединения в транзацкию?
Оно вообще корректно закрывается при закрытии программы, или просто уничтожается вместе с ней?

[HandKot]

Да по поведению совпадает с незавершенными транзакциями. Как если бы была одна транзакция, начинавшаяся сразу после коннекта, и не завершенная при закрытии соединения с базой. Но в том то и дело, что такой транзакции нет , а те транзакции, которые имеются в приложении завершаются вполне нормально, да и к тому же они не носят такого глобального характера. Может глюк в самом ADO?

про глюк ничего подобного не слышал
для проверки, перед выходом из приложения сделайте

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

MsgBox CStr(MyConnection.BeginTrans)

должно вернуть 1

[ger_kar]

Ну вообще ADO так не делает. Имеется ввиду оборачивания соединения в транзакцию. И до разрыва соединения все данные заносятся в базу. Я конечно доподлинно не знаю как оно там все устроено. Для меня ADO - некий черный ящик, но предполагаю, что работает все следующим образом: При внесении изменений в базу они кэшируются и находятся в памяти и параллельно записываются в файл mdb. Таким образом при обращении к этим данным они берутся из памяти, а не из файла. А при наступлении глюка у кого-то из парочки провайдер MS JET + ADODB приключается жуткий склероз, и данные в файл не попадают. Причем склероз видимо очень глубокий, так как никаких сообщений или исключений не возникает. Соответственно данные вроде как есть, но по завершении приложения просто растворяются, а в файле их нет и никогда не было.

Приложение закрывается корректно

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

'Обработка, закрытие и уничтожение объекта Connection
    If Not g_oConnection Is Nothing Then
        If g_oConnection.State <> adStateClosed Then g_oConnection.Close
        Set g_oConnection = Nothing
    End If

Но даже если погасить его через диспетчер задач или просто учинить End, без нормального завершения, все прекрасно работает. Проблема то еще и в том, что глюк довольно редкий и его поймать очень сложно.

[ger_kar]

для проверки, перед выходом из приложения сделайтеКод: Выделить всёMsgBox CStr(MyConnection.BeginTrans)должно вернуть 1

Не понял, а в чем смысл начинать транзакцию перед заурытием приложения? Типа если вернулось 1 то транзакции не было, а если больше, то типа фантомная транзакция началась?

[HandKot]

для проверки, перед выходом из приложения сделайтеКод: Выделить всёMsgBox CStr(MyConnection.BeginTrans)должно вернуть 1

Не понял, а в чем смысл начинать транзакцию перед заурытием приложения? Типа если вернулось 1 то транзакции не было, а если больше, то типа фантомная транзакция началась?

да, проверка на это
учитывая, что ошибка плавающая, то может писать это в файл, а потом при наступлении ошибки его посмотреть

[Qwertiy]

А как насчёт вложенных транзакций? Или в Access'е их нет?

[ger_kar]

А как насчёт вложенных транзакций? Или в Access'е их нет?

Есть до 5 уровней вложенности. Нигде это порог вроде не превышается.

учитывая, что ошибка плавающая, то может писать это в файл, а потом при наступлении ошибки его посмотреть

Ну сделал ведение лога, что-бы хоть понять какие операции предшествуют глюку. Лично я сам его на своем компе дома так и не смог воспроизвести. Проверял версии MDAC они совпадают с моими, а больше даже не знаю что и думать.

[HandKot]

Ну сделал ведение лога, что-бы хоть понять какие операции предшествуют глюку. Лично я сам его на своем компе дома так и не смог воспроизвести. Проверял версии MDAC они совпадают с моими, а больше даже не знаю что и думать.

будем ждать. ничего другого не остается. даже в инете пока ничего подобного не встречал

ЗЫЖ еще мелькнула идея о внешних ключах и каскадном удалении.

[ger_kar]

Ну вообще связи между таблицами настроены так, чтобы каскадно ничего не удалялось. Может действительно каким то образом начинается транзакция, которая в конечном итоге не завершается. Хотя где это может происходить даже не представляю, все перепроверил несколько раз. На текущий момент сделал тотальный вывод в лог разной информации, в том числе о начале, завершении и откате транзакций, теперь нужно подождать пока ошибка поймается

[ramozel]

Мне нужно чтобы, все записи удалялись нажатием одной кнопки, а не скакать по таблицам в поисках нужных записей.

[ger_kar]

Что значит все записи? Все записи из таблицы, а может вообще все записи из БД, а может нужно чтобы удалялись все записи связанные отношением с удаляемой? Если последнее, то можно просто настроить связи между таблицами с каскадным удалением.

[Qwertiy]

on delete cascade?

[ger_kar]

Он самый. Или же настройка в самом Access в графическом режиме.