[Lazarus-es] comando EMPTY

[Héctor Fiandor]

Estimados colegas, ante todo, las gracias por sus respuestas, que tendre en cuenta.

 

Ayer seguí cacharreando y encontré esta solución

 

     if not fdm.tTemp5.IsEmpty then

     begin

       if fdm.tTemp5.Active=true then fdm.tTemp5.Active:=false;

       fdm.tTemp5.FileName := camino_actual + '\temp.db';

       fdm.tTemp5.SQL:='DELETE FROM temp5';

       fdm.tTemp5.ExecSQL;

       if fdm.tTemp5.Active = False then fdm.tTemp5.Active := True

       else begin end;

     end

     else

     begin      {ShowMessagePos('Vacia',10,10);}     end;

 

ya que tengo que usar la tabla Temp5 varias veces con distintos contenidos y pensé que es mejor comenzar por limpiarla antes de meterle nuevos contenidos.

 

Pude comprobar que la tabla queda vacia, y puse dichas instrucciones en el botón Salir para cerrar la forma con la tabla limpia.

 

Si hay mas observaciones, serán bienvenidas.

 

Gracias de nuevos a todos.

 

Ing. Héctor Fiandor

hfiandor en ceniai.inf.cu

 

 

De: Juan Perles [mailto:perlesj en gmail.com] 
Enviado el: domingo, 30 de agosto de 2015 11:03 a. m.
Para: Spanish version of Lazarus List
Asunto: Re: [Lazarus-es] comando EMPTY

 

Héctor como yo lo tengo es 

glSQL := 'delete from ' + Nombretabla + ';';

EjecutarSentenciaSQL;

Y tengo un procedimiento llamado SentenciaSQL que invoco para ejecutar cualquier comando.

 

 

Procederé EjecutarSentenciaSQL;

   TrsGeneral.Commit;

   TrsGeneral.StartTransaction;

         With SQLQuery do Begin;

              Close;

              SQL.Clear;

               SQL.Text := glSQL;

                ExecSql;       

    TrsGeneral.Commit;

 

De esta manera para mí tan sólo son dos líneas.

 

 

Juan Perles

628.482.007

Enviado desde mi iPad


El 29/8/2015, a las 20:28, Héctor Fiandor <hfiandor en ceniai.inf.cu> escribió:

Estoy usando sqlite.

 

Ya descubri que haciéndolo por comandos SQL limpia bien. La única cosa en contra es que son como 6 lineas de comandos.

 

Saludos y escríbeme

 

 

Ing. Héctor Fiandor

 <mailto:hfiandor en ceniai.inf.cu> hfiandor en ceniai.inf.cu

 

 

 

De: francisco prieto [mailto:fajprieto en gmail.com] 
Enviado el: sábado, 29 de agosto de 2015 12:02 p. m.
Para: Spanish version of Lazarus List
Asunto: Re: [Lazarus-es] comando EMPTY

 

Hector,

Cual es el motor de base de datos que estas usando porque por ejemplo en Firebird si no haces un Commit es como si no hicieras nada.

Saludos,

Pancho

Córdoba

Argentina

 

El 29 de agosto de 2015, 12:39, Héctor Fiandor <hfiandor en ceniai.inf.cu> escribió:

Estimados colegas:

 

Estoy haciendo una aplicación donde tengo una tabla tTemp5 que deseo vaciar (borrar datos solamente) para que comience “limpia”.

Hago while not fdm.tTemp5.IsEmpty do fdm.tTemp5.delete;

Pero con esto solamente parece que no se alcanza el objetivo.

 

Les agradeceré cualquier ayuda.

 

Gracias por anticipado

 

Ing. Héctor Fiandor

hfiandor en ceniai.inf.cu

 


_______________________________________________
Lazarus-es mailing list
 <mailto:Lazarus-es en lists.lazarus.freepascal.org> Lazarus-es en lists.lazarus.freepascal.org
 <http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es

 

_______________________________________________
Lazarus-es mailing list
 <mailto:Lazarus-es en lists.lazarus.freepascal.org> Lazarus-es en lists.lazarus.freepascal.org
 <http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es

------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20150830/6a42f112/attachment-0002.html>