Ver Mensaje Individual
  #2  
Antiguo 07-05-2006
Avatar de Thales
Thales Thales is offline
Miembro
 
Registrado: ago 2005
Posts: 48
Reputación: 0
Thales Va por buen camino
Prueba a modificar el evento OnChange del Edit1 de esta manera:

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Text:= 'SELECT * FROM Clie01 WHERE UPPER(Nombre) LIKE UPPER(:Nombre)';
  Query1.ParamByName('Nombre').Value := Edit1.Text + '%';
  query1.Open;
end;

Un saludo
__________________
Mi web: http://personales.ya.com/cuaderno
Responder Con Cita