Использую SDAC 7.3.12.
При возникновении ошибки меняется номер транзакции. Это приводит к тому, что данные из предыдущей транзакции исчезают.
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.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
procedure TForm1.Button1Click(Sender: TObject);
var
err: integer;
b: Boolean;
begin
Memo1.Clear;
err := 0;
con.Server := 'MySqlExpress';
con.Database := 'test;
con.Authentication := auWindows;
con.Connect;
try
con.StartTransaction;
try
msqry2.Execute; // Добавляем данные exec dbo.prSetLoadConf
for b := Low(Boolean) to High(Boolean) do
begin
try
if not b then // При первом проходе сгенерим ошибку
con.ExecSQL('use [qweqasdasd]'); // <<< Явно ошибка - нет такой базы
msqry1.Open; // При втором проходе: select - и нет тут данных
while not msqry1.Eof do
begin
Memo1.Lines.Add(msqry1.FieldByName('inIdLoadConf').AsString);
msqry1.Next;
end;
except
on E:Exception do
begin
inc(err);
Memo1.Lines.Add(e.Message); // Протоколируем ошибку (База данных 'qweqasdasd' не существует. Убедитесь, что ее имя введено правильно.)
end;
end;
end;
if (err = 0) then
begin
ShowMessage('Execute - ok');
con.Commit;
end
else
con.Rollback;
except
on E:Exception do
begin
con.Rollback;
ShowMessage(e.Message);
end;
end;
finally
con.Close;
end;
end;
На скрине из Profiler ниже видно, что после use [qweqasdasd] стартует другая транзакция (191006), у которой TransactionId отличается от той, что я стартовал (190848).
Возможно ли изменить такое поведение? Хотелось бы, чтобы весь код выполнялся в рамках одной транзакции (190848), которую я стартовал.
