Question

delphi update 语句怎么写啊？

qry1.Close;
qry1.SQL.Clear;
qry1.SQL.Add('update txltxl SET 所属单位, 办公电话, 手机, 小灵通, 备注 WHERE 姓名:='''+RzEdit1.Text+'''');
qry1.Fields[1].Value:=StrToInt('RzEdit2.Text');
qry1.Fields[2].Value:=StrToInt('RzEdit3.Text');
qry1.Fields[3].Value:=StrToInt('RzEdit4.Text');
qry1.Fields[4].Value:=StrToInt('RzEdit5.Text');
qry1.Fields[5].Value:=StrToInt('RzEdit6.Text');
qry1.ExecSQL;
ShowMessage('修改成功！');

是这样写的吗？望高手给段正确代码，谢谢~

Answer 1

qry1.Close;
qry1.SQL.Clear;
qry1.SQL.Add('update txltxl SET 所属单位=:所属单位, 办公电话=:办公电话, 手机=:手机, 小灵通=:小灵通, 备注=:备注 WHERE 姓名='''+RzEdit1.Text+'''');
qry1.Parameters.ParamByName('所属单位').Value:= RzEdit2.Text;
qry1.Parameters.ParamByName('办公电话').Value:= RzEdit3.Text;
qry1.Parameters.ParamByName('手机').Value:= RzEdit4.Text;
qry1.Parameters.ParamByName('小灵通').Value:= RzEdit5.Text;
qry1.Parameters.ParamByName('备注').Value:= RzEdit6.Text;
try
qry1.ExecSQL;
ShowMessage('修改成功！');
except
ShowMessage('出错了');
end