Foros Club Delphi - Error actulizando registros con una consulta con SQLite

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Lazarus, FreePascal, Kylix, etc. (https://www.clubdelphi.com/foros/forumdisplay.php?f=14)

- - Error actulizando registros con una consulta con SQLite (https://www.clubdelphi.com/foros/showthread.php?t=93227)

Error actulizando registros con una consulta con SQLite

Hola.

Estoy haciendo una pequeña aplicacion con Lazarus 1.8.4 y sus componentes para SQLite. Hasta el momento solo consultaba o actualizaba las tablas. Pero ahora necesito hacer una consulta y segun un proceso algo elaborado, actualizar el registro con un valor determinado. La tabla tiene 5 campos numericos, consulto 4 y el quinto es el que actualizo segun el proceso. Sin la actualizacion de datos la consulta funciona. El problema es que al hacer la actualizacion aparece el error 'Operation cannot be performed on an inactive dataset'. No se como solucionarlo. ¿Hay que tener 2 TSQLQuery, 2 TSQLTransaction y una TSQLite3Connection? ¿Falta algun componente mas? ¿Otra manera de hacerlo?

Gracias por la ayuda.

Resumen del codigo utilizado:

Código:

procedure Resolver(Tabla: TTabla);

var

    Conexion: TSQLite3Connection;

    Consulta,Consulta2: TSQLQuery;

    Transaccion,Transaccion2: TSQLTransaction;

begin

    Conexion:=TSQLite3Connection.Create(nil);

    Conexion.DatabaseName:='TF.sql';



    Consulta:=TSQLQuery.Create(nil);

    Consulta.DataBase:=Conexion;

    Transaccion:=TSQLTransaction.Create(Consulta);

    Transaccion.DataBase:=Conexion;

    Conexion.Transaction:=Transaccion;



    Consulta2:=TSQLQuery.Create(nil);

    Consulta2.DataBase:=Conexion;

    Transaccion2:=TSQLTransaction.Create(Consulta2);

    Transaccion2.DataBase:=Conexion;

    Conexion.Transaction:=Transaccion;



    for it:=0 to 10 do begin

        with Tabla do

            nomTabla:=format('''T'+formatoNombreTabla,[C1,C2,C3,C4]);

        Transaccion.StartTransaction;

        cmdSQL:='SELECT * FROM '+nomTabla+';';

        Consulta.SQL.Text:=cmdSQL;

        Consulta.ExecSQL;

        Consulta.Open;

        while not Consulta.EOF do begin

            with TB do

                snc:=format(' WHERE C1=%d AND C2=%d AND C3=%d AND C4=%d;',[C1,C2,C3,C4]);

                        Valor:=ProcesarTabla(nomTabla);

            cmdSQL:='UPDATE '+nomTabla+' SET valor='+inttostr(VALOR)+snc;

            Consulta2.SQL.Text:=cmdSQL;

            Consulta2.ExecSQL;

            Transaccion2.Commit;

            Consulta.Next;

        end;

        Transaccion.EndTransaction;

        Consulta.Close;

        end;



    Consulta.Free;

    Transaccion.Free;

        Conexion.Free;

end;

Hay cosas extrañísimas en ese código, por ejemplo:

Código Delphi [-]Consulta.ExecSQL;
Consulta.Open;

Si es un select, entonces es Open.
Si es un insert, delete, update, entonces es ExecSQL;
Pero nunca los dos seguidos.

Gracias por la respuesta.

He realizado los cambios que comentas y sigue saliendo el mismo error en la linea marcada.

Código:

procedure Resolver(Tabla: TTabla);

var

    Conexion: TSQLite3Connection;

    Consulta,Consulta2: TSQLQuery;

    Transaccion: TSQLTransaction;

begin

    Conexion:=TSQLite3Connection.Create(nil);

    Conexion.DatabaseName:='TF.sql';



    Consulta:=TSQLQuery.Create(nil);

    Consulta.DataBase:=Conexion;

    Consulta2:=TSQLQuery.Create(nil);

    Consulta2.DataBase:=Conexion;

    Transaccion:=TSQLTransaction.Create(Consulta);

    Transaccion.DataBase:=Conexion;



    for it:=0 to 10 do begin

        with Tabla do

            nomTabla:=format('''T'+formatoNombreTabla,[C1,C2,C3,C4]);

        Transaccion.StartTransaction;

        cmdSQL:='SELECT * FROM '+nomTabla+';';

        Consulta.SQL.Text:=cmdSQL;

        Consulta.Open;

        while not Consulta.EOF do begin

            with TB do

                snc:=format(' WHERE C1=%d AND C2=%d AND C3=%d AND C4=%d;',[C1,C2,C3,C4]);

                        Valor:=ProcesarTabla(nomTabla);

            cmdSQL:='UPDATE '+nomTabla+' SET valor='+inttostr(VALOR)+snc;

            Consulta2.SQL.Text:=cmdSQL;

            Consulta2.ExecSQL;

            Transaccion.Commit;

            Consulta.Next; <==================== ERROR

        end;

        Transaccion.EndTransaction;

        Consulta.Close;

        end;



    Consulta.Free;

    Transaccion.Free;

        Conexion.Free;

end;

Ya digo, que es un código muy "fangoso", por ejemplo, con el with do estás ejecutando cosas que no sabes seguro si corresponden o no.
Además ese Transaccion.Commit antes de Consulta.Next seguramente cierra la conexión.

Gracias por la idea del Commit, puede ser el origen del problema. Como indiqué al principio es un resumen del código y funcionan bien las sentencias con with do. Mañana haré más pruebas, ahora mismo toca descansar.

Ha funcionado. El commit se hace justo antes de acabar la transaccion y no genera errores. Gracias por la ayuda.