[aggg63]

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:

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;