Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Tablas planas
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 24-05-2018
DiegoPucho DiegoPucho is offline
Miembro
NULL
 
Registrado: ago 2017
Posts: 36
Poder: 0
DiegoPucho Va por buen camino
Smile Filtrar mientras se teclea

Hola y buenas... Soy nuevo y espero poder expresarme como es debido... Tengo problemas con un dbgrid, el cual quiero hacer una consulta: tengo 3 RadioButton y un MaskEdit1. Todo conectado a la base de datos y funcionando... me muestra la consulta pero no como espero que le haga...

En el RadioButton1....
Código Delphi [-]
procedure TFrmModArt.BuscarCódigoExecute(Sender: TObject);
begin
   TsPageControl1.ActivePage:=BUSCADOR;
   if sRadioButton1.checked then
   begin
   ABSQProductos.Close;
   ABSQProductos.SQL.Text := 'SELECT * FROM tbarticulos WHERE Codigo='+quotedStr(sMaskEdit1.text);
   sStatusBar2.Panels[0].Text := 'BUSQUEDA POR CÓDIGO';
   ABSQProductos.Open;
   sStatusBar2.Panels[2].Text := 'CANTIDAD DE PRODUCTOS: '+ IntTostr(ABSQProductos.RecordCount);
   end
else
   begin
   ABSQProductos.Close;
   ABSQProductos.SQL.Text := 'SELECT * FROM tbarticulos=';
   sStatusBar2.Panels[0].Text := 'TODOS LOS PRODUCTOS';
   ABSQProductos.Open;
   sStatusBar2.Panels[2].Text := 'CANTIDAD DE PRODUCTOS: '+ IntTostr(ABSQProductos.RecordCount);
   end;
end;

y en el MaskEdit1.....
Código Delphi [-]
procedure TFrmModArt.sMaskEdit1Change(Sender: TObject);
begin
   ABSQProductos.Close;
   ABSQProductos.SQL.Clear;
   ABSQProductos.SQL.Add('Select * ' + 'From tbarticulos WHERE Descripcion LIKE (' + QuotedStr('%' + sMaskEdit1.Text + '%') + ') ');
   ABSQProductos.Open;
end;

Lo que esta haciendo es que tengo que apretar el RadioButton para que busque... y yo quiero que mientras escribo en el edit me lo valla ordenando, según en que RadioButton este...

Desde ya muchas gracias...
Responder Con Cita
  #2  
Antiguo 24-05-2018
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is online now
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Bienvenido a clubdelphi, por favor, lee nuestra guía de estilo, gracias.
He movido tu mensaje a un nuevo hilo y le he puesto un título descriptivo.
Saludos.
Responder Con Cita
  #3  
Antiguo 24-05-2018
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.732
Poder: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Lo que debes hacer es unificar la parte que filtra/ordena en un procedimiento aparte y luego llamarlo desde los diferentes lugares cuyo cambio deba lanzar ese filtro/orden.
Esto te permitirá separar la interfase con el usuario de la lógica de negocio.
Si en el futuro modificas el filtro/orden o agregas un nuevo filtro, solo debes modificarlo en un solo lugar (procedure Filtrar) y llamarlo desde el nuevo OnChange del componente.

Código Delphi [-]
procedure TFrmModArt.Filtrar;
begin
   TsPageControl1.ActivePage:=BUSCADOR;

   if sRadioButton1.checked then
   begin
     ABSQProductos.Close;
     ABSQProductos.SQL.Text := 'SELECT * FROM tbarticulos WHERE Codigo='+quotedStr(sMaskEdit1.text);
     sStatusBar2.Panels[0].Text := 'BUSQUEDA POR CÓDIGO';
     ABSQProductos.Open;
     sStatusBar2.Panels[2].Text := 'CANTIDAD DE PRODUCTOS: '+ IntTostr(ABSQProductos.RecordCount);
   end
   else
   begin
     ABSQProductos.Close;
     ABSQProductos.SQL.Text := 'SELECT * FROM tbarticulos=';
     sStatusBar2.Panels[0].Text := 'TODOS LOS PRODUCTOS';
     ABSQProductos.Open;
     sStatusBar2.Panels[2].Text := 'CANTIDAD DE PRODUCTOS: '+ IntTostr(ABSQProductos.RecordCount);
   end;
end;

procedure TFrmModArt.BuscarCodigoExecute(Sender: TObject);
begin
   Filtrar;
end;

procedure TFrmModArt.sMaskEdit1Change(Sender: TObject);
begin
   Filtrar;
end

Otra cosa:
¿Estás programando con acentos?
Código Delphi [-]
procedure TFrmModArt.BuscarCódigoExecute(Sender: TObject);
Responder Con Cita
  #4  
Antiguo 24-05-2018
DiegoPucho DiegoPucho is offline
Miembro
NULL
 
Registrado: ago 2017
Posts: 36
Poder: 0
DiegoPucho Va por buen camino
Hola duilioisola excelente tu explicación... entendí a la perfección... Ahora otra pregunta... que diferencia hay entre filtrar o/y consulta... si no entendí mal para filtrar sería:
Cita:
ABSQProductos.SQL.Add('Select * ' + 'From tbarticulos WHERE Descripcion LIKE (' + QuotedStr('%' + sMaskEdit1.Text + '%') + ') ');
para consultar:
Cita:
ABSQProductos.SQL.Text := 'SELECT * FROM tbarticulos WHERE Codigo='+quotedStr(sMaskEdit1.text);
Esta bien???

Por otro lado:
Cita:
Otra cosa:
¿Estás programando con acentos?
Código Delphi [-]
procedure TFrmModArt.BuscarCódigoExecute(Sender: TObject);
Me quedo así... esta mal??? gracias de ante mano...
Responder Con Cita
  #5  
Antiguo 26-05-2018
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.732
Poder: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
"Filtro" y "Consulta", diría que es lo mismo. (Query en inglés se traduce como consulta).
La consulta puede estar filtrada para que aparezcan registros que cumplan cierta condición.

Por lo tanto, la pregunta que debes hacerte es si quieres un registro específico o los registros que cumplan cierta condición.

Para seleccionar un registro específico, normalmente, te referirías a el por algún valor/es específico/s.
Por ejemplo un ID único o algo que sepas que núnca se repite (por ejemplo el código de un cliente en una empresa).
Código SQL [-]
/*
Para referirse a un registro específico
En este ejemplo:
- ID es un índice tipo UNIQUE KEY
- EMPRESA, CLIENTE es la PK
*/

SELECT * FROM CLIENTES 
WHERE 
ID = :ID

SELECT * FROM CLIENTES 
WHERE 
EMPRESA = :EMPRESA AND
CLIENTE = :CLIENTE

Para seleccionar un grupo de registros que cumplan una condicion.. pues creo que esto es obvio.
El único consejo es que siempre los traigas ordenados. Si no lo haces, no podrás confiar en que el primer registro es el "mas pequeño", pues el estandar SQL no especifica ningún orden por defecto.
Código SQL [-]
SELECT * FROM CLIENTES 
WHERE 
EMPRESA = :EMPRESA
ORDER BY CLIENTE

Con respecto a los acentos:
No está mal, pues compila y seguramente hace lo que quieres, pero:
Me he encontrado con muchas dificultades al tratar de lidiar con código o estructuras que utilizaban acentos, caracteres raros (ñ, ç, etc.) o espacios.
Por ejemplo
  • importando CSV(coma separated values) de archivos que a veces venían codificados como UTF y otras como ANSI. La primera línea eran los nombres de los campos de tablas y al importarlos, a veces introducían caracteres raros.
  • Al leer código con editores que no entienden del todo bien el juego de caracteres que deben utilizar.

Supongo que otros compañeros del club habran tenido sus dificultades, y si preguntas seguro que te cuentan sus batallitas...
Responder Con Cita
  #6  
Antiguo 26-05-2018
DiegoPucho DiegoPucho is offline
Miembro
NULL
 
Registrado: ago 2017
Posts: 36
Poder: 0
DiegoPucho Va por buen camino
duilioisola excelente tu explicación y una vez mas gracias...
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
Revisar mientras escribe Rolroy Varios 5 27-05-2011 05:27:20
Filtrar lista clientes mientras escribo JPMMVR OOP 3 14-02-2009 11:11:59
To Be or Not To Be: Filtrar o no Filtrar esa es la cuestion gorsan Conexión con bases de datos 10 04-10-2007 12:14:10
While mientras no se haga click ANG4L Varios 2 22-05-2006 15:41:23
mensaje mientras hay proceso marcelofabiani Varios 9 13-02-2006 06:18:27


La franja horaria es GMT +2. Ahora son las 12:36:02.


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
Copyright 1996-2007 Club Delphi