Ver Mensaje Individual
  #4  
Antiguo 27-01-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Leandro.

Creo que el problema se te presenta al no componer la consulta para cada cambio del TEdit, yo haría de este modo:
Código Delphi [-]
procedure Tform_buscarcliente.ed_nombreChange(Sender: TObject);
begin
  with modulo_db.consulta_cliente do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM CLIENTE WHERE NOMBRE LIKE :PNOMBRE');
    ParamByName('PNOMBRE').AsString:= ed_nombre.Text + '%';
    Open;
    ...
  end;
end;


Cita:
(el espacio entre ":" y "pnombre" es por que me salia esto por eso)
Para evitar las 'caritas' usa las etiquetas [noparse] [/noparse], en el caso anterior sería: 'SELECT * FROM CLIENTE WHERE NAME LIKE [noparse]:P[/noparse]NOMBRE'

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 28-01-2012 a las 01:58:57.
Responder Con Cita