List index out of bounds

[Elvis_chen]

with ADOQuery1 do
begin
  ADOQuery1.close;
  ADOQuery1.SQL[2] := 'WHERE refname =''aa''';  //在这里报错 List index out of bounds
end;

需要怎么修改。

[superlixiao78]

ADOQuery1.SQL[2] := 'WHERE refname ='''+'aa'+'''';

[superlixiao78]

或者
ADOQuery1.SQL[2] := 'WHERE refname ='+quotedstr('aa');

[我看见佛]

ADOQuery1.Add('WHERE refname =''aa''');
或者Filter上写过滤语句

[lhy]

ADOQuery1.SQL.Strings[2] := 'WHERE refname =''aa''';

[kaikai_kk]

SQL[2]是第3行，你打开的SQL属性，应该没有3行

建议不要用SQL[]这种用法；
因为有时你并不知道SQL里面有几行，每一行又是那些语句
用SQL.Add();或者SQL.Text重写SQL语句吧,如:

SQL.Clear;
SQL.Add('select * from t where ...');
SQL.Add('and ...');
...

或
SQL.Text:='select * from t where ... ';

[Elvis_chen]

楼上的几种方法都试了，可以都不行，仍旧报同样的错误。

[babydog01]

把你完整的SQL语句贴出来！

[Elvis_chen]

5楼的方法可以

[superlixiao78]

这就说明你的sql只有2行
sql[2]代表第三行。

[风车呼噜噜]

[Quote=引用 5 楼 kaikai_kk 的回复:]

SQL[2]是第3行，你打开的SQL属性，应该没有3行

建议不要用SQL[]这种用法；
因为有时你并不知道SQL里面有几行，每一行又是那些语句
用SQL.Add();或者SQL.Text重写SQL语句吧,如:

SQL.Clear;
SQL.Add('select * from t where ...');
SQL.Add('and ...');
...

或
SQL.……
[/Quote]
顶