Подвох.
QU.FreeHandle;
Привет. Вот ради интересу попробовал на последней версии FB2.0 и своих IBX :
procedure TForm1.Button1Click(Sender: TObject);
begin
Db.Connected := True;
with TIBSQL.Create(nil) do begin
Transaction := Tr;
Database := Db;
Tr.StartTransaction;
SQL.Add('select * from t');
ExecQuery;
Close;
Tr.Commit;
Tr.StartTransaction;
SQL.Clear;
SQL.Add('drop table t');
ExecQuery;
Close;
Free;
Tr.Commit;
end;
Db.Connected := False;
end;
Все работает. А не может быть такого, что Fib-ы втихаря в другой транзакции
чего-нибудь из метаданных про эту табличку вытягивают и к моменту drop table
эта другая транзакция еще активна?
With b/r. Gleb.