Page 1 of 1

Borrar Datos con TSQLQuery

Posted: Tue Aug 28, 2007 11:38 am
by Paco V
Tengo una TSQLQuery en la que quiero borrar una serie de registros. Me ehe
puesto a hacerlo asi:
::oSQLQuery1:cselect:= "selec from pernoba where ftoma >='2007-05-01' and
ftoma <= '2007-05-10' and resage= 'LEON'"
::oSQLQuery1:delete()
Pero aunque no me casca, no me hace nada.
Me podeis decir como lo deberia hacer?
Los campos ftoma son char(10)
Paco V

Borrar Datos con TSQLQuery

Posted: Tue Aug 28, 2007 12:20 pm
by desarrollo
Paco!!!!
Tendras que recorrerte con un bucle todas las filas que te retorna el
DataSet e ir haciendo ::Delete() de cada una.
Aunque yo mejor haría desde el DataSource:
::DataSource:Execute( "DELETE FROM pernoba WHERE ftoma >='2007-05-01' and
> ftoma <= '2007-05-10' and resage= 'LEON'" )
Y listo!!!
Saludos
Jose A. Suarez
"Paco V" <ssi@ono.com> escribió en el mensaje
news:46d3ed1c$1@ozsrv2.ozlan.local...
>
> Tengo una TSQLQuery en la que quiero borrar una serie de registros. Me ehe
> puesto a hacerlo asi:
>
> ::oSQLQuery1:cselect:= "selec from pernoba where ftoma >='2007-05-01' and
> ftoma <= '2007-05-10' and resage= 'LEON'"
> ::oSQLQuery1:delete()
>
> Pero aunque no me casca, no me hace nada.
> Me podeis decir como lo deberia hacer?
> Los campos ftoma son char(10)
>
> Paco V

Borrar Datos con TSQLQuery

Posted: Tue Aug 28, 2007 12:34 pm
by Paco V
Gracias JoseAlfonso, tu respuesta es la que necesitaba.
No queria crear un bucle. Suponia que habia un mejor sistema.
La proxima de Gran Duque de Alba la pago yo. Pero cortita!!!!
Paco V
"Jose A. Suarez" <desarrollo@aseproda.com> wrote:
>Paco!!!!
>
>Tendras que recorrerte con un bucle todas las filas que te retorna el
>DataSet e ir haciendo ::Delete() de cada una.
>
>Aunque yo mejor haría desde el DataSource:
>
>::DataSource:Execute( "DELETE FROM pernoba WHERE ftoma >='2007-05-01' and
>> ftoma <= '2007-05-10' and resage= 'LEON'" )
>
>Y listo!!!
>
>Saludos
>
>
>Jose A. Suarez
>
>
>
>"Paco V" <ssi@ono.com> escribió en el mensaje
>news:46d3ed1c$1@ozsrv2.ozlan.local...
>>
>> Tengo una TSQLQuery en la que quiero borrar una serie de registros. Me
ehe
>> puesto a hacerlo asi:
>>
>> ::oSQLQuery1:cselect:= "selec from pernoba where ftoma >='2007-05-01'
and
>> ftoma <= '2007-05-10' and resage= 'LEON'"
>> ::oSQLQuery1:delete()
>>
>> Pero aunque no me casca, no me hace nada.
>> Me podeis decir como lo deberia hacer?
>> Los campos ftoma son char(10)
>>
>> Paco V
>
>