FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
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; |
#2
|
||||
|
||||
Hay cosas extrañísimas en ese código, por ejemplo:
Si es un select, entonces es Open. Si es un insert, delete, update, entonces es ExecSQL; Pero nunca los dos seguidos. |
#3
|
|||
|
|||
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; |
#4
|
||||
|
||||
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. |
#5
|
|||
|
|||
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.
|
#6
|
|||
|
|||
Ha funcionado. El commit se hace justo antes de acabar la transaccion y no genera errores. Gracias por la ayuda.
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Creacion de tablas y registros en SQlite Administrador | Ramsay | Conexión con bases de datos | 3 | 26-06-2016 02:04:08 |
error con sqlite | LACV | FireMonkey | 6 | 25-11-2015 04:51:47 |
Necesidad de ayuda para proteger registros SQLite | Sapiem | Conexión con bases de datos | 11 | 15-11-2012 17:24:50 |
Problema con consulta en SQLITE | salvica | SQL | 1 | 14-03-2009 22:39:23 |
Consulta con SQLite (Like) | Nataku | Conexión con bases de datos | 0 | 01-04-2008 00:01:12 |
|