在delphi如何把TADOQuery.ParamCheck

最新推荐文章于 2023-08-03 14:08:50 发布

转载最新推荐文章于 2023-08-03 14:08:50 发布 · 1.6k 阅读

文章标签：

#ParamCheck

Delphi 专栏收录该内容

150 篇文章

订阅专栏

本文解决了一个常见的Delphi编程问题，即在使用ADO组件执行SQL删除操作时，因参数定义错误导致的运行时错误。通过修改SQL语句中的参数标识符，成功解决了这一问题。

就是说delphi编程者经常遇到的问题，总是出现‘不正常的定义参数对象,提供了不一致或者不完整的信息。。。‘这类的问题：

implementation

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);
var
khbh:string;
begin
ADOQuery1.ParamCheck:=false;
khbh:=edit1.text;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.sql.add('delete from 客户清单 where 客户编号:=khbh');
adoquery1.parameters.parambyname('khbh').value:=edit1.text;
adoquery1.execsql;
showmessage('删除的客户编号为');
showmessage(edit1.Text);
end;

end.

adoquery1.sql.add('delete from 客户清单 where 客户编号:=khbh');
这句话有问题
应该是这样的
adoquery1.sql.add('delete from 客户清单 where 客户编号=:khbh');