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