Delphi中使用动态SQL的几个问题

关注

原创最新推荐文章于 2025-09-18 11:15:52 发布 3.7k 阅读 AI 写同款· GEO 优化 ›

限时加码！20+主流AI编程工具免费用购周边加赠Coding Plan Lite，Claude Code、Cursor等即刻畅享，学习进阶更高效！阅读详情

Delphi支持参数化SQL语句，不过俺很少用Paramters/Params属性，一般都是自己构造SQL，
用SQL.Text:='Select * from ..Where ID='''+edit1.text+'''';
不过这种方法要小心SQL注入攻击哦。
今天改用ADOQuery控件的Paramters属性，本已为简单的很，一用发现了不少问题。由于我只使用一个ADOQuery控件，而其中的SQL语句和语句中的参数经常要变，所以刚开始在程序中用了如下代码：
..........
ADOQ.Parameters.Clear;
ADOQ.Parameters.CreateParameter(...); //创建参数1
ADOQ.Parameters.CreateParameter(...); //创建参数2
ADOQ.SQL.Clear;
ADOQ.SQL.Assign(memo1.text);
............
可一执行，就有时正常，有时报错，说什么不正确的参数设置（用的ACCESS）。
经过两天的折腾，发现必须使用下面的代码（真是奇怪）：
..........
ADOQ.Parameters.Clear;
Parami:=ADOQ.Parameters.ADDParameter; //创建参数1
Parami.Name:=...; Parami.Value:=...
Parami:=ADOQ.Parameters.ADDParameter; //创建参数2
Parami.Name:=...; Parami.Value:=...
//ADOQ.SQL.Clear; // 该句不能使用，
ADOQ.SQL.Assign(memo1.text);
............

还有创建参数的名称不仅要和SQL语句中的参数名称一致，创建参数的顺序也要和SQL语句中参数出现的顺序一致。