Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Firebird e Interbase
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 22-09-2022
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.806
Poder: 22
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Prueba con la sentencia EXISTS().

Cuando haces un SQL con "Campo IN (select ...)" el motor de base de datos tiene que obtener los datos del select y luego hacer la comparación.
Con "EXISTS (select ...)" solo recorre los datos y se para cuando existe el primero. No tiene que guardar los datos que recupera del select en memoria.

Código SQL [-]
select a.codprv, a.codigo, a.apellidos, a.nombre, a.referencia, a.situacion, a.f_alta, b.cuota
from persona a, cuotas b
where
a.codprv = rvins and
/*
a.codigo not in (select distinct codigo
                 from recibos
                 where
                 codprv = a.codprv and
                 refint like '1%' or refint like '2%') and
*/
not exists(select codigo
           from recibos
           where
           codigo = a.codigo and
           codprv = a.codprv and
           (refint starting with '1' or refint starting with '2')) and
a.codprv = b.codprv and
a.codigo = b.codigo and
b.tipo = 'A' and
b.cuota > 0

Cita:
La tabla Recibos tiene como clave primaria CodPrv, Codigo, Fecha y RefInt
Además, puedes probar a cambiar el orden de la clave primaria para que codigo, codprv y refint sean los primeros campos y fecha el último.
Quizás ayude, pero puede ser que haga que otras consultas vayan mas lentas.

NOTA:
La parte "(refint starting with '1' or refint starting with '2')" ponla entre paréntesis para "desambiguar" la sentencia.

Última edición por duilioisola fecha: 22-09-2022 a las 09:59:50.
Responder Con Cita
  #2  
Antiguo 22-09-2022
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Ubicación: Toledo - España
Posts: 1.418
Poder: 21
Angel.Matilla Va por buen camino
Gracias. Es una sentencia de la que nunca me acuerdo.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Acelerar TClientDataset con Midas Speed Fix cloayza Providers 2 11-10-2013 19:21:50
Problemas Acelerar PHP HomeCinema PHP 1 09-02-2007 11:42:04
Acelerar carga de Delphi mamcx Noticias 4 13-09-2006 00:51:52
Como acelerar el trabajo DBF manuelpr Conexión con bases de datos 3 29-03-2005 19:52:11
Consejo para Acelerar Procesos manuelpr Varios 2 08-03-2005 09:02:22


La franja horaria es GMT +2. Ahora son las 08:39:41.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi