我我要暴走了~~~~~~5555 还是关于query查询`~

Question

刚才我在这里问了一下`~~~~
可是问题还是没有解决阿~~~~5555555
代码如下
var
name_flag :string;begin
name_flag:=trim(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=:name_flag  ');
query1.open;
edit5.text:=query1.fieldbyname('code').asstring;end;
query 里面就是
select f_station_code
from t_station
运行到query1.open的时候就报错说没有name_flag这个字段……
暴走ing~~~~~~
现在毕业设计就卡在这里了`~~55555
小弟在delphi方面真的是了解不深，请大家多多指教！！！！

Answer 1

var
name_flag :string;begin
name_flag:=trim(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='''+name_flag +'''');
query1.open;
edit5.text:=query1.fieldbyname('code').asstring;end;

Answer 2

query1.sql.add('where f_station_name='''+name_flag +'''');这个里面引号的打法是什么样子的？看不清楚的说`~嘿嘿~~`无聊兄，你……

Answer 3

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= :name_flag ');
query1.Paramters.ParamterByName('name_flag').Value := name_Flag;
query1.open;
edit5.text:=query1.fieldbyname('code').asstring;

Answer 4

参数name_flag  没有赋值
query1.sql.add('select f_station_code as code from dbo.t_station ');
query1.sql.add('where f_station_name=:name_flag  ');
query1.paremeterbyname('name_flag').asstring = '我想要的值';
query1.open;
或者直接
query1.sql.add('select f_station_code as code from dbo.t_station ');
query1.sql.add('where f_station_name''' + '我想要的值' + '''');
query1.open;