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)
-   -   Ayuda ¿Como recupero el campo? (https://www.clubdelphi.com/foros/showthread.php?t=57205)

NewGeek85 07-06-2008 21:02:49

Ayuda ¿Como recupero el campo?
 
Logre ir haciendo la consulta llego a ver si el dato ingresado esta o no en la tabla , lo que quiero saber es como hago para que en el edit2 me aparesca por ejemplo el apellido del nombre que ingrese a buscar.

codigo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text := ' Select * From Clientes where Nombre like ''%'+Edit1.Text+'%''';
ADOQuery1.Open;
if (Not ADOQuery1.Eof) then begin
Edit2.Text := // ?????????????????????????????????????
end
else ShowMessage('No existe el cliente')
end;

end.

Donde estan los signos de pregunta creo que es donde debe ir la sentencia para que en edit2 aparezca el apellido. gracias.

enecumene 07-06-2008 21:06:02

Hola,

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text := ' Select * From Clientes where Nombre like ''%'+Edit1.Text+'%''';
ADOQuery1.Open;
if (Not ADOQuery1.Eof) then begin
Edit2.Text := ADOQuery1.FieldByName('Apellido').AsString;
end
else ShowMessage('No existe el cliente')
end;

end.

Saludos.

NewGeek85 07-06-2008 21:09:32

Gracias :)
 
Muchas gracias, espectacular la rapidez XD.


La franja horaria es GMT +2. Ahora son las 04:18:43.

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