InterBase, Delphi 5, BDE y Transactions
 

Estoy tratando de usar InterBase (en realidad es FireBird) con Delphi 5 y BDE pero tengo un problema con las Transactions.

Quiero usar transactions explícitas (DataBase.StartTransaction, Commit y RollBack) pero aparentemente hay conflictos con lo que creo que son las transactions implícitas que hace el BDE cada vez que se hace un Table.Post. En el código de ejemplo que pongo más abajo, me conecto a una DataBase, abro una Table, empiezo una transaction con StartTransaction, hago un edit de un Field, y cuando quiero hacer Post, aparece el error "Nested transactions not supported".

Inteté cambiar los settings del BDE con el BDE Administrator pero no logré hacerlo andar. Probé con SQLPASSTHRU MODE = SHARED NOAUTOCOMMIT o SHARED AUTOCOMMIT o NOT SHARED, me conecté a la DataBase usando un Alias o no usando un Alias, probé con SQLQRYMODE null o SERVER, con COMMIT RETAIN FALSE o TRUE, etc. ¡¡¡Ninguna combinación funcionó!!!

Alguien sabe cómo puedo hacer que esto funcione?

Gustavo
gusm@datafull.com


unit Unit1;

interface

uses
DB,
DBTables,

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

implementation

var
DataBaseGeneral : TDataBase;
TablaDeProvincias: TTable;
begin
DataBaseGeneral:=TDataBase.Create(nil);
with DataBaseGeneral do
begin
DataBaseName:='General';
DriverName:='INTRBASE';
Params.Values['SERVER NAME']:='General.GDB';
Params.Values['USER NAME']:='SYSDBA';
Params.Values['PASSWORD']:='masterkey';
LoginPrompt:=False;
Connected:=True;
end;

TablaDeProvincias:=TTable.Create(nil);
with TablaDeProvincias do
begin
TableName:='Provinc';
IndexFieldNames:='NOMBRE';
DataBaseName:=DataBaseGeneral.DataBaseName;
Open;

DataBaseGeneral.StartTransaction;
Edit;


TStringField(FieldByName('NOMBRE')).Text:='1'+TStringField(FieldByName('NOMBRE')).Text;
Post;
DataBaseGeneral.Commit;

Close;
DataBaseGeneral.Connected:=False;
end;
end.