提示‘>’附近有语支错误，这个语法错在哪？

[想到才能做到]

procedure Twwjgfx.QueryData;
var
strSQL, strWhere,Zw_para1,Zw_para2: string;

begin
Zw_para1:=DBDateTimeEditEh1.Value; //开始日期
Zw_para2:=DBDateTimeEditEh2.Value;
strsql := 'select * from WWJGsql';
strWhere := 'WHERE';
strSQL := strSQL + strWhere + ' RQ >= ''' + Zw_para1 + ''' and ifcheck=''t'' ';
strWhere := 'AND';
strSQL := strSQL + strWhere + ' RQ <= ''' + Zw_para2 + ''' and ifcheck=''t'' ';
strWhere := 'AND';


//单据编号
if Edit1.Text <> '' then
begin
strSQL := strSQL + strWhere + ' djbh like +'''+'%'+Edit1.Text+'%'+''' ';
end;

//往来单位
if Edit2.Text <> '' then
begin
strSQL := strSQL + strWhere + ' dwmc like +'''+'%'+Edit2.Text+'%'+''' ';
end;

//商品名称
if Edit3.Text <> '' then
begin
strSQL := strSQL + strWhere + ' spmc like +'''+'%'+Edit3.Text+'%'+''' ';
end;

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add (strSQL);
ADOQuery1.Open;
end;



提示‘>’附近有语支错误，这个语法错在哪？

[纯冰糖]

这样的Sql语句最好用Format格式化一下
sSql:=Format('select id,name form user where id=%d and name=''%s''',[nId,sName]);

下断点，调试出最后的Sql，放到数据库那边去执行就知道了

[likeyrain]

strSQL + strWhere 得到的结果是select * from WWJGsqlWHERE 少一个空格吧？跟踪调试一下不就知道了，另外，把SQL语句用showmessage显示出来也能找到问题

[rainychan2009]

SQL语句现在查询分析器里面确认没有问题了再朝程序里面写

[lyhoo163]

strSQL := strSQL + strWhere + ' RQ >= ''' + Zw_para1 + '' and ifcheck=''t''';

[kye_jufei]

單步跟蹤調試。。。

[山东蓝鸟贵薪]

你呀，又是SQL语句不标准，还是用showmessage()
显示一下那个SQL语句吧

[山东蓝鸟贵薪]

还是SQL语句不标准，
建议你用SHOWMESSAGE()显示一下那个SQL语句吧

[taoran12]

逗号太多看着头晕，delphi里有个函数可以解决这个问题，忘了