Ver Mensaje Individual
  #3  
Antiguo 12-05-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
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

Un ejemplo simplificado de como hacer lo que buscas:
Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  with IBQuery1 do
  begin
    Close;
    SQL.Text := 'SELECT * FROM TU_TABLA';
  end;

  with DataSetProvider1 do
  begin
    DataSet := IBQuery1;
    Options := Options + [poAllowCommandText];
  end;

  with ClientDataSet1 do
  begin
    Close;
    ProviderName := 'DataSetProvider1';
    Open;
  end;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  with ClientDataSet1 do
  begin
    Close;
    CommandText:= 'SELECT * FROM TU_TABLA WHERE TU_CAMPO LIKE :PARAM';
    ClientDataSet1.Params.ParamByName('PARAM').AsString := '%' + Edit1.Text + '%';
    Open;
    Refresh;
  end;
end;
Donde, "TU_TABLA" es el nombre que le diste a la tabla en tu bd y "TU_CAMPO" es el campo sobre el que harás la búsqueda.

Saludos
__________________
Daniel Didriksen

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