1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
Dim conn As ADODB.Connection
Dim cmd As ADODB.Command
Dim CommitOK As Boolean
CommitOK = True
Set conn = CurrentProject.Connection
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = conn
cmd.CommandType = adCmdText
cmd.CommandText = "BEGIN TRANSACTION"
cmd.Execute
cmd.CommandText = "DELETE From MyTable WHERE MyTable.MyField=" & MyParameter
cmd.Execute
' Тут должно быть присвоение значения CommitOK
If CommitOK Then
cmd.CommandText = "COMMIT TRANSACTION"
cmd.Execute
MsgBox "Задание выполнено!", vbInformation
Else
cmd.CommandText = "ROLLBACK TRANSACTION"
cmd.Execute
MsgBox "Операция отменена!", vbInformation
End If
Я не понимаю, как мне получить, сколько записей было удалено? Известно, сколько надо удалить, но, допустим, команда не выполнена. Как мне получить об этом информацию? Я хочу откатывать транзакцию
И еще. Мне не удается проверить, сколько записей, подлежащих удалению, могло остаться, попытка сделать DCount или Dlookup до завершения транзакции вызывает зависание базы.
Подскажите, какое есть решение.
