Question

delphi程序中的SQL语句使用IN的写法，下面代码会报错

procedure TForm1.Button2Click(Sender: TObject);
var
table:string;
SNLIST:STRING;
begin
label2.Caption:='';
adoquery1.Close;
adoquery1.sql.Clear;
table:=edit2.Text;
adoquery1.SQL.Text:='select * from '+table+' where col_pd_serial in ('+memo1.Text+')';
ADOQuery1.Open;
label2.Caption:=inttostr(datasource1.DataSet.recordcount);
end;
还是会报错





Answer 1

应该是数据类型的问题，你的in操作应该是操作字符类型了，所以应该是'select * from '+table+' where col_pd_serial in (‘’'+memo1.Text+‘’')';

你要注意组装后的SQL到底是个什么样的值，如果还搞不清楚这个SQL组装中单引号的使用，我建议你在Open之前，将Query的SQL显示出来，比如showmessage(ADOQuery1.SQL.Text)，这样你就可以看到一个将要被执行的真正的SQL。

Answer 2

报错有三种可能
1、table变量为空或不符合命名规范
2、memo1.Text内容为空或不符合语法规范
3、col_pd_serial 这个字段如果是字符串类型的，in里面的内容需要 '1','2','3' 这样的

Answer 3

adoquery1.SQL.Text:='select * from '+table+' where col_pd_serial in ('+’‘’+memo1.Text+‘’‘+')';

memo1.text 要用引号引起来