Foros Club Delphi

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)
-   -   Buscar registro y mostrar en edits (https://www.clubdelphi.com/foros/showthread.php?t=33847)

CONY 18-07-2006 22:10:56

Buscar registro y mostrar en edits
 
Necesito su ayuda por favor!! Soy nueva en esto y tengo algunas dudas a pesar de que ya he buscado en el foro y en otros links. De antemano, muchas gracias…

Mi problema es el siguiente:

Necesito consultar un registro por medio del campo matricula y que aparezcan los datos den unos edits o dbedits para modificaciones.

Tengo el siguiente query:

Código SQL [-]
select alu_id_alumno
from alumnos
where alu_id_alumno like :MAT

y en el botón de buscar tengo:

Código Delphi [-]
procedure TFrmBuscar.buscarClick(Sender: TObject);
begin
  QBuscar.Active := false;
  QBuscar.ParamByName('MAT').Value := '%' + matricula.Text + '%';
  QBuscar.Active := true;
  if QBuscar.IsEmpty then
    messagedlg('Matricula no existe', mtError, [mbok],0)
  else
    nombre.Text := // aquí, ¿como le digo que me despliegue el resultado en el edit?
end;

luisgutierrezb 18-07-2006 23:14:43

si tienes dbedits ligados a un datasource que a su vez este ligado con el query, entonces no necesitas mostrar los resultados en los dbedits, los muestran solos... si quieres usar edits, entonces seria algo asi como:
nombre.Text := QBuscar['Nombredelcampo'];
o tambien:
nombre.Text := QBuscar.FieldByName('nombredelcampo').AsString;

hay, AsString, AsInteger, AsCurrency, etc...


La franja horaria es GMT +2. Ahora son las 11:39:19.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi