PDA

Ver la Versión Completa : Ayuda ¿Como recupero el campo?


NewGeek85
07-06-2008, 21:02:49
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:


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,

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
Muchas gracias, espectacular la rapidez XD.