ayuda con sentencia delete anidada

[SmartZooft]

Hola a todos, tengo dos tablas: Clientes e Historia. Clientes es papá de historia, lo que quiero es borrar de historia los registros donde el cliente tenga fecha menor al año 2015, lo tengo así...

DELETE FROM HISTORIA
where
ID_CLIENTE IN (SELECT ID_CLIENTE FROM CLIENTES WHERE fecha < '01/01/2015')
AND
ID_HISTORIA IN (SELECT ID_HISTORIA FROM CLIENTES WHERE fecha < '01/01/2015')


pero no sé si funciona porque se queda en el limbo pensando, alguien sabe si se puede optimizar ésta sentencia?

muchas gracias a todos.

[orodriguezca]

En principio debería funcionar. Verifica si la consulta realmente selecciona algún registro:

Código SQL [-]
SELECT * FROM HISTORIA
where 
          ID_CLIENTE IN (SELECT ID_CLIENTE FROM CLIENTES WHERE fecha < '01/01/2015')
  AND  ID_HISTORIA IN (SELECT ID_HISTORIA FROM CLIENTES WHERE fecha < '01/01/2015')

Lo otro es dotar a las tablas de los índices adecuados, si no los tiene y si la consulta va a ser repetitiva.

[ecfisa]

Hola SmartZooft, bienvenido a Club Delphi , como acostumbramos con los noveles te aconsejamos leer nuestra guía de estilo.


Por favor, cuando incluyas código en tus mensajes usa etiquetas para darle más legibilidad de este modo:



Saludos

[[RONPABLO]]

Empezado por SmartZooft

Hola a todos, tengo dos tablas: Clientes e Historia. Clientes es papá de historia, lo que quiero es borrar de historia los registros donde el cliente tenga fecha menor al año 2015, lo tengo así...

Código SQL [-]
DELETE FROM HISTORIA
where 
ID_CLIENTE IN (SELECT ID_CLIENTE FROM CLIENTES WHERE fecha < '01/01/2015')
AND
ID_HISTORIA IN (SELECT ID_HISTORIA FROM CLIENTES WHERE fecha < '01/01/2015')

pero no sé si funciona porque se queda en el limbo pensando, alguien sabe si se puede optimizar ésta sentencia?

muchas gracias a todos.

Cabe anotar que la clausula "IN" es una clausuala poco recomendable para ser usada en tablas con muchos registros, podrías acomodar mejor la consulta con un exists de la siguiente forma (primero hacer la consulta y si los resultados que se ven son los esperado proceder con el delete)

Código SQL [-]
select * from FROM HISTORIA h
where 
exists (SELECT h1.ID_CLIENTE FROM CLIENTES h1 WHERE h1.ID_CLIENTE = h.ID_CLIENTE and h1.ID_HISTORIA = h.ID_HISTORIA and h1.fecha < '01/01/2015')

Y si funciona bien

Código SQL [-]
delete from FROM HISTORIA h
where 
exists (SELECT h1.ID_CLIENTE FROM CLIENTES h1 WHERE h1.ID_CLIENTE = h.ID_CLIENTE and h1.ID_HISTORIA = h.ID_HISTORIA and h1.fecha < '01/01/2015')

[SmartZooft]

Empezado por RONPABLO

Cabe anotar que la clausula "IN" es una clausuala poco recomendable para ser usada en tablas con muchos registros, podrías acomodar mejor la consulta con un exists de la siguiente forma (primero hacer la consulta y si los resultados que se ven son los esperado proceder con el delete)

Código SQL [-]
select * from FROM HISTORIA h
where 
exists (SELECT h1.ID_CLIENTE FROM CLIENTES h1 WHERE h1.ID_CLIENTE = h.ID_CLIENTE and h1.ID_HISTORIA = h.ID_HISTORIA and h1.fecha < '01/01/2015')

Y si funciona bien

Código SQL [-]
delete from FROM HISTORIA h
where 
exists (SELECT h1.ID_CLIENTE FROM CLIENTES h1 WHERE h1.ID_CLIENTE = h.ID_CLIENTE and h1.ID_HISTORIA = h.ID_HISTORIA and h1.fecha < '01/01/2015')

RONPABLO, muchas gracias, esa sentencia es mucho más rápida y efectiva, muchas gracias funciona muy bien!

[[RONPABLO]]

Empezado por SmartZooft

RONPABLO, muchas gracias, esa sentencia es mucho más rápida y efectiva, muchas gracias funciona muy bien!

Con gusto, de la siguiente pagina puedes encontrar otras sugerencias extremadamente útiles al respecto. particularmente me gusta entrar y leer por leer en ella, muchas veces cosas que ya he leído antes pero que no le encontraba un uso inmediato. Para mi club delphi, el FAQ de Firebird y un curso de MsSQL Server llamado Querying (ID 20461D y que se puede buscar en PDF en internet) es de lo que más me ha ayudado a optimizar conexiones lentas por malas practicas.

[Casimiro Notevi]

Empezado por RONPABLO

Con gusto, de la siguiente pagina puedes encontrar otras sugerencias extremadamente útiles al respecto. particularmente me gusta entrar y leer por leer en ella, muchas veces cosas que ya he leído antes pero que no le encontraba un uso inmediato. Para mi club delphi, el FAQ de Firebird y un curso de MsSQL Server llamado Querying (ID 20461D y que se puede buscar en PDF en internet) es de lo que más me ha ayudado a optimizar conexiones lentas por malas practicas.