Question

delphi 数据库查询中的SQL 语句 总是报错from 子语句错误，请大神们看看 哪里有问题？！

procedure Tmainfrm.RzBitBtn4Click(Sender: TObject);
var
cx,cx1,cx2,cx3,cx4:string;
begin
cx1:='1=1';
cx2:='1=1';
cx3:='1=1';
cx4:='1=1';
if xmcheckbox.Checked then cx1:='engineer_name like ''%'+xmedit.text+'%'+'''';
if rccheckbox.Checked then cx2:='engineer_come between #'+datetostr(datetimepicker1.Date)+'# and #'+datetostr(datetimepicker2.Date)+'#';
if qycheckbox.Checked then cx3:='engineer_area like '''+'%'+qyedit.text+'%'+'''';
if fzrcheckbox.Checked then cx4:='engineer_leader like '''+'%'+fzredit.Text+'%'+'''';
cx:= 'select * from tb_engineer where'+cx1+'and'+cx2+'and'+cx3+'and'+cx4;
engineerquery.Close;
engineerquery.SQL.Clear;
engineerquery.SQL.Add(cx);
engineerquery.Open;
end;

Answer 1

很明显你的where、and与cx1、cx2之间都没有空格（也就是说上面的cx会变成类似于select * from tb_engineer whereengineer_name like..），会导致关键字全连在一起，sql当然就会出错，这种简单的问题你只需要在执行前showmessage一下cx就知道了，当然下断点也行。

追问

谢谢了 就是这个问题 showmess 好办法 可以加你好友吗？qq

Answer 2

把你最后生成的SQL语句贴出来看一下。连接的时候有些地方应该要空格，你没有空格，还有字符串引号要注意一下。TSQL是用单引号