Question

Delphi程序连接数据库查询提示SQL语句结束错误，程序中语句的写法与SQL中不一吗，看一下问题在哪里

procedure TForm1.BitBtn2Click(Sender: TObject);
var
F:STRING;
begin
clientdataset2.Close;
datasource1.DataSet:=ClientDataSet2;
clientdataset2.CommandText:='select WORK_ORDER,WO_START_DATE,TARGET_QTY,INPUT_QTY,OUTPUT_QTY,EMP_NAME from sajet.G_HT_WO_BASE T1,SAJET.SYS_EMP T2'
+'where WORK_ORDER=:F and T1.UPDATE_USERID=T2.EMP_ID and input_qty=1';
clientdataset2.Params.ParamValues['F']:=trim(edit2.Text);
clientdataset2.open;
procedure TForm1.BitBtn2Click(Sender: TObject);
var
F:STRING;
begin
datasource1.DataSet:=ClientDataSet2;
clientdataset2.Close;
clientdataset2.CommandText:='select t1.WORK_ORDER 工单,t1.WO_START_DATE　开始时间,t3.TARGET_QTY　工单数量,t3.INPUT_QTY　投入数量,t3.OUTPUT_QTY　产出数量,EMP_NAME　投入线长 from sajet.G_HT_WO_BASE T1,SAJET.SYS_EMP T2,sajet.g_wo_base t3 '
+'where T1.WORK_ORDER=:F and T1.UPDATE_USERID=T2.EMP_ID AND T1.INPUT_QTY=1 and t1.work_order=t3.work_order';
clientdataset2.Params.ParamValues['F']:=trim(edit2.Text);
clientdataset2.open;
IF clientdataset1.RecordCount<>0 THEN
label4.Caption:=inttostr(clientdataset2.RecordCount);
end;
//修正后可以查询，但有问题，1.label4不能显示笔数，2.按钮第一次点查询结果是空的，第二次后才能显示出结果

Answer 1

该 有的空格你还需要加上啊，看你的 T2后面的where 需要加一个空格。
你可以先把你的sql语句拼成string串后 输出来看看格式对不对了，再赋值给commandText.

Answer 2

可能你的clientdataset2在其它地方也用到过吧.先把SQL语句clear再赋值吧.我一般用的ADO的.如下例:
...
with adoquery1 do
begin
close;
sql.clear;
sql.text:='select...';
open;
...
datasource1.dataset:=adoquery1;

Answer 3

同意 miws_| 六级 的回答