帮我看看这句sql语句有什么问题?

[Arthur]

procedure TForm1.BitBtn1Click(Sender: TObject);
var sssq:string;
begin
sssq:='200101';//trim(year_edit.text+month_Edit.text);
if not gs_T.Active then
gs_T.Open ;
gs_T.First ;
while not gs_T.Eof do
begin
qyjbcwsj_q.Close;
qyjbcwsj_q.SQL.Clear;
qyjbcwsj_q.SQL.Add(' Select qyjbcwsj.qybm,qyjbcwsj.sssq,qyjbqk.qybm,qyjbqk.qymc,qyjbqk.frdb,qyjbqk.dhhm from qyjbcwsj,qyjbqk');
qyjbcwsj_q.SQL.Add('where ('+gs_T.FieldByName('gs_gs').AsString+') and (qyjbcwsj.qybm=qyjbqk.qybm) and (qyjbcwsj.sssq='''+sssq+''')');
qyjbcwsj_q.Prepare ;
//qyjbcwsj_q.ExecSQL ;
qyjbcwsj_q.Open;
gs_T.Next;
end;
end;
出错信息:message 'General SQL error.[Microsoft][ODBC Microsoft Access Driver]参数不足,期待是1.'
另外在ASP中查看sql 语句执行情况。 用 response.write sql 就可以了，在delphi5中如何实现这样的功能。

[coldljy]

FieldByName？

[Arthur]

FieldByName有问题吗？不会吧~~

[sun_lz]

('+gs_T.FieldByName('gs_gs').AsString+') 这是什么条件？？？？

[Arthur]

这是一个用户自定义的公式 从表中取出来的.好像和这句不相关吧~~~

[sun_lz]

qyjbcwsj.sssq 是日期型？

[WuHeHai]

qyjbcwsj_q.SQL.Add('where ('+gs_T.FieldByName('gs_gs').AsString+') and
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--> 真实表示（gs_gs) 为何意义：是否缺少了逻辑

(qyjbcwsj.qybm=qyjbqk.qybm) and (qyjbcwsj.sssq='''+sssq+''')');
~~~~~~~`－－> 是否为Fieldbyname（sssq).value

最后是否Edit.text ：＝ qyjbcwsj_q.SQL 或中断，这样可以更好分析一下SQL语句是否正确。

[newyj]

好象有两个问题
1。 两个SQl.Add 之间少了一个空格！
2。 'where ('+gs_T.FieldByName('gs_gs').AsString+')这句where 后面应有字段名

sql 的显示:
showmessage(query1.SQL.Text );
label1.Caption :=query1.SQL.Text ;

[Arthur]

qyjbcwsj.sssq 不是日期型是文本型如：'200101'
gs_T.FieldByName('gs_gs').AsString的值为:用户自定义的公式如：'(qyjbcwsu.yjzzsmxb_sbb_ynse/qyjbcwsu.lrb_cpxssr)<(hypj.hypj_bd_ssfd-hypj.hypj_wc_ssfd)'
gs_gs 是字段名
sssq 是一变量名

[Arthur]

问题已经解决谢谢~~~

[Arthur]

我要回收部分 分分……如何回收????

[Arthur]

我要回收部分 分分……如何回收???? 答出者给分分~~~~

[Arthur]

没人回答 那就见者有分了 灌灌水也好啊