delphi 更新代码错误

来源:百度知道 编辑:UC知道 时间:2024/09/23 00:34:53
begin
pname:=edit1.Text;
number:=edit2.text;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add( 'update product');
adoquery1.SQL.Add(' set number=:number ');
adoquery1.SQL.Add('where pname=:pname');
4444 parameters.parambyname(pname).asstring:=pname;
adoquery1.parameters.ParamByName(number).asinteger:=number;
adoquery1.execsql;

4444行报错了

4444 parameters.parambyname(pname).asstring:=pname;
是你程序中的原文?
adoquery1.parameters.parambyname(pname).asstring:=pname;
语法都对呀,是不是你属性没设置对

4444行前2行改成:

adoquery1.SQL.Add(' set number=:x1');
adoquery1.SQL.Add('where pname=:x2');
试试!