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;