Foros Club Delphi - busqueda en base de datos

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - busqueda en base de datos (https://www.clubdelphi.com/foros/showthread.php?t=2194)

luigi

13-07-2003 07:33:23

busqueda en base de datos

hola

(soy un poco nuevo en delphi)

disculpen, mi problema es el siguiente:

tengo una tabla llamado socios y quiero que cuando ponga en un edit el numero de socio y le de a un boton llamado buscar, que en mis otros edit's que tengo me aparezcan el nombre del socio,apellido, direccion, etc.

no soy muy bueno explicando pero si me entendieron, les agradeceria mucho su ayuda.:confused:

marcoszorrilla

13-07-2003 12:10:50

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.

Cabanyaler

14-07-2003 08:53:43

... Hola, tb puedes hacer la asignación a los EDITS si son TEdits en el evento AfterScroll del DataSet. De esto modo cuando se produzca un movimiento devido a la pulsación de un Navigator asociado p.e., tb tendrás actualizados los datos en pantalla.
Suerte.

luigi

16-07-2003 02:36:45

gracias por su ayuda

me sirvio mucho;) :cool:

La franja horaria es GMT +2. Ahora son las 18:03:59.