求教query中查询结果的获得~~

Question

我要用delphi做课程设计，但是对这个不熟悉，所以来请教一下~~~
在下面的代码中，我要取得f_station_code的值，应该怎么办？
procedure TForm1.Edit1Change(Sender: TObject);
var
station_name:string;
//station_code:integer;begin
station_name:=edit1.text;
query1.close;
query1.sql.clear;
query1.sql.add('select  f_station_code as code from dbo.t_station ');
query1.sql.add('where f_station_name=:station_name ');
edit2.text:=query1.fieldbyname('code').asstring ;
query1.open;
end;
query里面的是
select   f_station_code
from dbo.t_station
一运行老是说找不到code这个字段。跪谢了……

Answer 1

你把
select  dbo.f_station_code as code from dbo.t_station这样呢？按理说是没问题的！只有自己多调式，因为，哈哈，你个家伙，把
edit2.text:=query1.fieldbyname('code').asstring ;
query1.open;
这两名放反了！

Answer 2

edit2.text:=query1.field[0].asstring ;

Answer 3

//先open再取值:
......
query1.open;
edit2.text:=query1.fieldbyname('code').asstring ;

Answer 4

楼上的`~
edit2.text:=query1.field[0].asstring ; 这个报错~~呵呵。还有谢谢各位了`~~~
封贴~~