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.