ADOQuery中使用IN做为查询条件时的参数传入

[belsai]

在DELPHI7中使用TADOQuery组件连接SQLSERVER数据库

ADOQ1.Close;
ADOQ1.SQL.Text := 'SELECT * FROM TABLE1 WHERE HNAME IN(:NAME)';
ADOQ1.Parameters[0].Values := ??//这个参数该如何传递？
ADOQ1.Open;

字段HNAME数据类型为VARCHAR(20)
我试过传入字符串：
sText := '张三,李四'
或
sText := '''张三'',''李四'''
两种方式都不行

[sixgj]

''张三,李四''

[belsai]

引用 1 楼 sixgj 的回复:

''张三,李四''

经过测试没结果，sText := '张三'可以

[xrbaa]

这样试试：
IN(:NAME1,:NAME2)

ADOQ1.Parameters[0].Values := '张三';
ADOQ1.Parameters[1].Values := '李四';

[xrbaa]

再这样试试：
IN :NAMES

ADOQ1.Parameters[0].Values := '(''张三'',''李四'')';

[日立奔腾浪潮微软松下联想]

ADOQ1.SQL.Text := Format('SELECT * FROM TABLE1 WHERE HNAME IN(%s)', ['"张三", "李四"']);
ADOQ1.Open;

[xrbaa]

7楼的方案是不用参数，把要查询的参数拼接到SQL语句里。

[hj8090]

var alist: TStringList; begin alist := TStringList.Create; try alist.Add(QuotedStr('张三')); alist.Add(QuotedStr('李四')); alist.Add(QuotedStr('xx')); ADOQ1.Close; ADOQ1.SQL.Text := Format('SELECT * FROM TABLE1 WHERE HNAME IN(%s)', [alist.CommaText]); ADOQ1.Open; finally alist.Free; end;

[belsai]

引用 7 楼 早打大打打核战争 的回复:

ADOQ1.SQL.Text := Format('SELECT * FROM TABLE1 WHERE HNAME IN(%s)', ['"张三", "李四"']); ADOQ1.Open;

这种方式可行使用略有不便，但总算是可以解决问题了！

[belsai]

引用 6 楼 xrbaa 的回复:

再这样试试： IN :NAMES ADOQ1.Parameters[0].Values := '(''张三'',''李四'')';

经测试不行！

[秋天之落叶]

楼上正解，两个参数不能用一个变量覆盖

[belsai]

引用 3 楼 xrbaa 的回复:

这样试试： IN(:NAME1,:NAME2) ADOQ1.Parameters[0].Values := '张三'; ADOQ1.Parameters[1].Values := '李四';

可是用IN做为条件就是因为参数数量不能确定