Delphi ADOQuery多个参数重复 改编技巧(原创)

ttp://topic.csdn.net/t/20060719/17/4891215.html#

今天看了多年前的一个帖子，发现回答似乎不合理，有些还将其归为delphi的bug.其实主要是不灵活应用参数

ADOQUERY查询时,这样不行

WITH ADOQUERY1 DO
BEGIN
CLOSE;SQL.CLEAR;
SQL.ADD('SELECT * FROM TABLE1 WHERE TA001=:MONTH AND TA002=:MONTH');
PARAMETERS.ParamByName('MONTH').Value :=EDIT1.TEXT;
OPEN;
END;

结果 不正确.

改成

WITH ADOQUERY1 DO
BEGIN
CLOSE;SQL.CLEAR;
SQL.ADD('SELECT * FROM TABLE1 WHERE TA001=:MONTH1 AND TA002=:MONTH2');
PARAMETERS.ParamByName('MONTH1').Value :=EDIT1.TEXT;
PARAMETERS.ParamByName('MONTH2').Value :=EDIT1.TEXT;
OPEN;
END;

可以了.

==================Anonymous编写=======QQ165622044=====&#