Command参数问题

zhao8848jun 2008-11-11 03:01:05

程序代码如下：
with Form1.MyComm do
begin
Parameters.Clear;
CommandText:='update quotedprice set IsExist=1,ResponseTime=now(),CarOwner=:@CarOwner,'+
'CarRegisterDate=:@CarRegisterDate,CarSeatAmount=:@CarSeatAmount,CarTonnage=:@CarTonnage,'+
'CarModel=:@CarModel,CarEnginenumber=:@CarEnginenumber,standardPrice:=@standardPrice where id=:@Id;';
Parameters.Refresh;
Parameters[0].value:= GetControlValue(ParentHandle,R.Left+135,R.Top+137);
Parameters[1].value:= GetControlValue(ParentHandle,R.Left+135,R.Top+169);
Parameters[2].value:= GetControlValue(ParentHandle,R.Left+135,R.Top+201);
Parameters[3].value:= GetControlValue(ParentHandle,R.Left+383,R.Top+201);
Parameters[4].value:= GetControlValue(ParentHandle,R.Left+633,R.Top+233);
Parameters[5].value:= GetControlValue(ParentHandle,R.Left+134,R.Top+295);
Parameters[6].value:= GetControlValue(ParentHandle,R.Left+29,R.Top+419);
Parameters[7].value:= P.Id;
Prepared:=true;
Form1.Memo1.Lines.Insert(0,CommandText);
Execute;
end;
这时输出的Sql语句是：update quotedprice set IsExist=1,ResponseTime=now(),CarOwner=:@CarOwner,CarRegisterDate=:@CarRegisterDate,CarSeatAmount=:@CarSeatAmount,CarTonnage=:@CarTonnage,CarModel=:@CarModel,CarEnginenumber=:@CarEnginenumber,standardPrice:=@standardPrice where id=:@Id;
请问这加参数到底是怎么用呀？

...全文

84 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

liuhengwinner 2008-11-16

打赏
举报

Delphi 中这么定义就代表这是参数名了 :CarEnginenumber

nanchangfantasy 2008-11-13

打赏
举报

为什么要把参数@去掉,万一那就是别人的参数名称怎么办?

ljhcy99 2008-11-13

打赏
举报

把参数里写的@都去掉，如下，

CommandText:='update quotedprice set IsExist=1,ResponseTime=now(),CarOwner=:@CarOwner,'+
'CarRegisterDate=:CarRegisterDate,CarSeatAmount=:CarSeatAmount,CarTonnage=:CarTonnage,'+
'CarModel=:CarModel,CarEnginenumber=:CarEnginenumber,standardPrice:=standardPrice where id=:Id;';

Parameters.Refresh;
Parameters[0].value:= GetControlValue(ParentHandle,R.Left+135,R.Top+137);
Parameters[1].value:= GetControlValue(ParentHandle,R.Left+135,R.Top+169);
Parameters[2].value:= GetControlValue(ParentHandle,R.Left+135,R.Top+201);
Parameters[3].value:= GetControlValue(ParentHandle,R.Left+383,R.Top+201);
Parameters[4].value:= GetControlValue(ParentHandle,R.Left+633,R.Top+233);
Parameters[5].value:= GetControlValue(ParentHandle,R.Left+134,R.Top+295);
Parameters[6].value:= GetControlValue(ParentHandle,R.Left+29,R.Top+419);
Parameters[7].value:= P.Id;