delphi 中使用adoquery做子查询得不到结果

[qq_42033603]

我在SQL server中能正常查出来结果，但是在Delphi这边就查不出结果，也没报错，感觉是因为用了子查询的原因，TB_readertype和 TB_reader是同一数据库中的两张表，希望哪位大神救救命啊
sql:='select *from TB_reader where rdtype =(select rdtype from TB_readertype where rdtypename=:rdtypename) and rddept =:rddept';
ADOQuery1.SQL.Add(sql);
ADOQuery1.Parameters.ParamByName('rdtypename').DataType:=ftstring;
ADOQuery1.Parameters.ParamByName('rdtypename').Value:=trim(Combo_rdtypename1.Text);
ADOQuery1.Parameters.ParamByName('rddept').DataType:=ftString;
ADOQuery1.Parameters.ParamByName('rddept').Value:=trim(Combo_rdDept1.Text);
ADOQuery1.open;

[qq_42033603]

救救孩子啊

[lyhoo163]

rdtype是字段名，定义一个rdtype的值：
var S:string;
S:='AAA'; // 这是你指定值

select * from TB_reader where rdtype =(select rdtype from TB_readertype where rdtypename='+#39+S+#39+')

试试！

[qq_42033603]

引用 2 楼 lyhoo163 的回复:

rdtype是字段名，定义一个rdtype的值：
var S:string;
S:='AAA'; // 这是你指定值

select * from TB_reader where rdtype =(select rdtype from TB_readertype where rdtypename='+#39+S+#39+')

试试！

谢谢，十分感谢，按照您的方法真的解决了我的问题