БД и отключение электроэнергии

[gjghjc]

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

[alibek]

Начинаешь транзакцию, делаешь изменения, завершаешь транзакцию.
Если в течении этого процесса (после начала транзакции и до ее завершения) что-то произошло, то изменения не сохраняться.
Что-бы все изменения сохранялись сделать невозможно, это может привести к нарушению целостности базы. Лучше выполняй транзакции вручную, чтобы быть уверенным, что информация будет сохранена логическими блоками информации.

[gjghjc]

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

If lstFlat.ListCount = 0 Or lstFlat.ListIndex < 0 Then Exit Sub

Adodc1.Recordset.AbsolutePosition = lstFlat.ListIndex + 1
Oplata = Adodc1.Recordset.Fields("oplata")
Date1 = DateAdd("m", 1, Oplata)
Adodc1.Recordset.Fields("oplata") = FormatDateTime(Date1, vbShortDate)
Adodc1.Recordset.UpdateBatch adAffectCurrent
pos = lstFlat.ListIndex
TempStr = Replace(lstFlat.Text, Oplata, Date1)
lstFlat.RemoveItem pos
lstFlat.AddItem TempStr, pos

Где здесь начало транзакции и где конец
Эта процедура изменяет оплату абонента.
Если изменить одному то изменения несохраняются, а если двум то все ОК (больше не пробовал винта жалко так как эмуляцию отключения питания делал через RESET)

[alibek]

С контролом ADODC не работал, как в нем делать не знаю. Видимо транзакции реализованы внутри контрола. А кодом это делается так:

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

cnn.BeginTrans 'начать транзакцию
...
cnn.CommitTrans 'завершить транзакцию


Здесь cnn это объект ADODB.Connection (Dim cnn As ADODB.Connection)