Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)
-   -   Como puedo mejorar esta consulta... (https://www.clubdelphi.com/foros/showthread.php?t=67411)

sizne 16-04-2010 00:20:42

Como puedo mejorar esta consulta...
 
Holas a todos, espero que puedan ayudarme con la siguiente consulta que la puse en DELPHI, solo que la busqueda como verán es muy lenta....demora muucho en encontrala...hasta tan solo escribir un nro se me demora en aparecer el el TEdit.
A continuacion les muestro el codigo que hice...
Código SQL [-]
 if E.Text <> '' then
 with Q2 do
 begin
    Close;
    SQL.Text:= 'SELECT i.IdM,i.CiE,i.NomE,i.ApePE,i.ApeME,i.SexoE,i.FinscripcionE, ' +
                      'i.CarreraE,i.DeptoE,i.CalleE,sum(TotalRecibido) as Monto ' +
                 'FROM BDinscripcion i ' +
                'INNER JOIN BDbeca b ON i.IdE=b.IdE ' +
                  'AND ' + Buscar + ' LIKE '+ #39 + E.Text +'%'+#39+
               ' GROUP BY IdM, CiE, NomE, ApePE, ApeME, SexoE, FinscripcionE, CarreraE, DeptoE, CalleE';
    Open;
 end;
Este codigo se encuentra en...
Código Delphi [-]
procedure TFdevolucion.EChange(Sender: TObject);
var campo,Buscar:string;
begin
campo :=  S.Text;
  if campo = 'Carnet Identidad' then Buscar:='CiE'
  else
    begin
      if campo = 'Nombre' then Buscar:='NomE'
      else
       begin
          if campo = 'Apellido Paterno' then Buscar:='ApePE'
          else
            begin
              if campo = 'Apellido Materno' then Buscar:='ApeME'
              else
                if campo = 'Departamento' then Buscar:='DeptoE';
            end;//fin paterno
       end;//fin nombre
    end;// fin primer else
   if E.Text <> '' then  
   with Q2 do
   begin
      Close;
      SQL.Text:= 'SELECT i.IdM,i.CiE,i.NomE,i.ApePE,i.ApeME,i.SexoE,i.FinscripcionE, ' +
                        'i.CarreraE,i.DeptoE,i.CalleE,sum(TotalRecibido) as Monto ' +
                   'FROM BDinscripcion i ' +
                  'INNER JOIN BDbeca b ON i.IdE=b.IdE ' +
                    'AND ' + Buscar + ' LIKE '+ #39 + E.Text +'%'+#39+
                 ' GROUP BY IdM, CiE, NomE, ApePE, ApeME, SexoE, FinscripcionE, CarreraE, DeptoE, CalleE';
      Open;
   end;
   if not Q2.IsEmpty = false then
    begin
      MessageDlg('No existe el registro',mtInformation,[mbOk],0);
      E.SetFocus;
    end;
end

Como verán es un busqueda que realiza a medida que se escribe en un TEdit. Selecciono varios campos que necesito de una TablaInscripcion y realiza una suma de los montos recibido de otra tablaBeca, cuando sus IDE sean iguales. De toda esta informacion estoy realizando una busqueda de todos aquellos que cumplan la condicion INNER JOIN.

Ahhhh!!! sino cologo el Group BY pues varios nombres se repetiran...cuantas veces hayan recibido el TOTALRECIBIDO.

Solo que se me hace lenta...
Alguna sugerencia....
gracias

delphi.com.ar 16-04-2010 00:48:35

Discúlpame, pero la tuve que editar para que se pueda ver dentro del foro.
Mi pregunta al respecto es: ¿Verdaderamente quieres agrupar por TODOS esos campos?... Sin llegar a comprender el modelo de datos completos, ¿no pertenecen en forma distinta a un único registro de la misma tabla?

Saludos!

rgstuamigo 16-04-2010 01:02:01

La consulta en si, no lo veo muy muy compleja que digamos, claro está que nos nos has comentado con que servidor de Base de datos trabajas :confused:, el problema que veo es que estas saturando la red abriendo y cerrando el DataSet(Q2) y peor aún que lo estas ejecutando dentro del evento OnChange del edit..:eek::eek:
Quizas se pueda ganar un poco de velocidad quitando la linea donde cierras(Close;) el DataSet.:rolleyes:...hummm...no lo sé..haber intentalo y nos comentas como te fué.;).
Saludos...:)

sisne 16-04-2010 07:07:50

Hola!
Gracias por responder :)

rgstuamigo: Estoy usando SQL Server 2000. Y quité la línea del (close), pero me sigue haciendo lenta la búsqueda.

delphi.com.ar: Si necesito agruparlas para que me muestre un solo registro por cada estudiante.

Disculpenme pero voy a explicar laaargo.

Tengo dos tablas: DBinscripcion y BDbeca. Donde un inscrito recibe varias montos de dinero (Beca), cada mes.
Durante un año recibe 12 veces un XXX monto y eso sucede por decir por 5 años.
Pero pasado el tiempo este inscrito tiene que devolver la beca otorgada.
Es decir, al finalizar los 5 años se tiene que realizar la suma Total de lo recibido, aqui se unen las dos tablas (Q2) donde de la tabla BDbeca saco el campo y sumo el TotalRecibido.

Y si necesito esos campos para visualizar en DBEdits o en un DBGrid.

Espero que puedan comprederme y ayudarme...Quizás pueda realizar otro tipo de búsqueda donde no sea tan lenta el resultado.

OJO: Con esta consulta solo me devuelve o se me visualizan los resultados de aquellos que "recibieron" la beca. (IdE=IdE) inner join

Graaacias.

fjcg02 16-04-2010 08:38:50

Estoy de acuerdo con rgstuamigo.

Quita la función del evento OnChange, y modifica para que se ejecute al pulsar un botón o intro por ejemplo en el mismo campo.

Ya nos contarás.

Un saludo

delphi.com.ar 16-04-2010 15:33:40

Cita:

Empezado por sisne (Mensaje 360717)
delphi.com.ar: Si necesito agruparlas para que me muestre un solo registro por cada estudiante.

Ok!.. a eso iba, y pregunto... Tienes una tabla de estudiantes, donde un único registro representa a un único estudiante??

sisne 16-04-2010 20:09:10

Hola!

Cita:

Empezado por delphi.com.ar (Mensaje 360757)
Ok!.. a eso iba, y pregunto... Tienes una tabla de estudiantes, donde un único registro representa a un único estudiante??

Si tengo en la Tabla Estudiantes un único registro. Un estudiante recibe varias becas.

Tuve que cambiar al hace un Click en un boton, para realizar la búsqueda.

Graaacias!

Chris 16-04-2010 20:25:08

Agrega un ínidice para el campo "idE" en cada una de las tablas imbolucradas en la consulta. También prueba agregando otro índice para cada uno de los campos en donde haces las búsqueda de texto completo.

Saludos,
Chris


La franja horaria es GMT +2. Ahora son las 04:09:57.

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