busqueda en base de datos

marcoszorrilla · #2 13-07-2003

Si son todo Tedits y no TdbEdits.

1º.-Si la tabla está indexada por dicho campo.

MiTabla.IndexName:='ElCampo';
Esto puede ir en el evento al mostrar del formulario por ejemplo.

Cuando pulses en el botón de búsqueda:

MiTabla.FindKey([Edit1.Text]);

Sino está indexada tendrías que utilizar Locate.

Partiendo de que la tabla si está indexada, quedaría algo así.

Código:

If MiTabla.FindKey([Edit1.Text]) then
begin
  MiEdit1.text:=MiTablaMiCampo1.Value;
  MiEdti2.Text:=FloatToStr(MiTablaMicampo.Value);
  MiEdit3.Text:=DateTostr(MiTablaMiCampo.Value);
else
begin
  //las acciones oportunas
  ShowMessage('No existe ese registro...');
end;

Un Saludo.