busqueda

[josi]

como se hacen las busquedas
de una appli temgp este codigo pero no me funciona
_________________________________________________________

Código Delphi [-]
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  query1.Close;
  query1.SQL.Clear;
  query1.SQL.Add('select * from DATOS where CODIGO = :buscar order by CODIGO');
  query1.ParamByName('buscar').Value:=(edit1.Text);
  query1.Open;
end;

[marcoszorrilla]

Yo creo que debiera funcionar, pero prueba así:

Código Delphi [-]
query1.ParamByName('buscar').AsString:=edit1.Text;

Este código ponlo en un botón y lo ejecutas en el evento OnClick, puede ser que donde lo tienes situado por algún motivo no salta el evento y no se ejecute de esta manera sabremos si es así.

Un Saludo.