ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('update Type set TypeName='''+DBEdit2.Text+''' where TypeID=typeID');
ADOQuery1.Parameters.ParamByName('typeID').Value:=strtoint(DBText1.Caption);
ADOQuery1.ExecSQL;
一运行就提示Project Shop.exe raised exception class EConvertError with message'''is not a valid integer value'.Process stopped. Use Step or Run to continue.看提示好像是数据类型转换的错误,小弟学习delphi时间不长,请各位指导指导。
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('update Type set TypeName='''+DBEdit2.Text+''' where TypeID=typeID');
ADOQuery1.Parameters.ParamByName('typeID').Value:=strtoint(DBText1.Caption);
ADOQuery1.ExecSQL;
一运行就提示Project Shop.exe raised exception class EConvertError with message'''is not a valid integer value'.Process stopped. Use Step or Run to continue.看提示好像是数据类型转换的错误,小弟学习delphi时间不长,请各位指导指导。
有问题把,自己=自己