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:
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(TotalRec ibido) 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:
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(TotalRec ibido) 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
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A