FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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. |
|
|
|