دستور update به صورت پارامتری

[rasool1110]

با سلام
من برای اینکه اطلاعات یک جدول را ویرایش کنم از یک کوئری استفاده کرده ام و آنرا به صورتیک دستور آپدیت پارامتری نوشته ام، اما به علت طولانی بودن خط مربوط به دستور آپدیت برنامه error می دهد لطفا من را راهنمایی کنید که چطور می توانم این دستور را به صورت چند خط کمتر از 255 کاراکتر در آورم . کد این دستور هم به صورت زیر است :

q_editpatient.close;
q_editpatient.SQL.Clear;
q_editpatient.SQL.add('update patienttable set p_name=:a
,p_family=:o,p_sex=:c,p_fathername=:d,p_bdate=:e,p _bplace=:f
,p_shsh=:g,p_postcode=:h,p_meliid=:i,p_city=:j,p_a dd=:k
,p_tel1=:l,p_tel2=:m,p_email=:n,p_mobile=:p,p_name bimeh=:q
,startdate=:r,enddate=:s,bimehid=:t where p_id=:y');
q_editpatient.Params.ParamByName('y').Value:=edit1 .Text;
q_editpatient.Params.ParamByName('a').Value:=edit3 .Text;
q_editpatient.Params.ParamByName('o').Value:=edit4 .Text;
q_editpatient.Params.ParamByName('c').Value:=edit6 .Text;
q_editpatient.Params.ParamByName('d').Value:=edit5 .Text;
q_editpatient.Params.ParamByName('e').Value:=edit7 .Text;
q_editpatient.Params.ParamByName('f').Value:=edit8 .Text;
q_editpatient.Params.ParamByName('g').Value:=edit9 .Text;
q_editpatient.Params.ParamByName('h').Value:=edit1 7.Text;
q_editpatient.Params.ParamByName('i').Value:=edit1 0.Text;
q_editpatient.Params.ParamByName('j').Value:=edit1 1.Text;
q_editpatient.Params.ParamByName('k').Value:=edit1 2.Text;
q_editpatient.Params.ParamByName('l').Value:=edit1 3.Text;
q_editpatient.Params.ParamByName('m').Value:=edit1 6.Text;
q_editpatient.Params.ParamByName('n').Value:=edit1 5.Text;
q_editpatient.Params.ParamByName('p').Value:=edit1 4.Text;
q_editpatient.Params.ParamByName('q').Value:=edit1 8.Text;
q_editpatient.Params.ParamByName('r').Value:=edit2 0.Text;
q_editpatient.Params.ParamByName('s').Value:=edit2 1.Text;
q_editpatient.Params.ParamByName('t').Value:=edit1 9.Text;
q_editpatient.ExecSQL;

[SYNDROME]

با سلام

اگر بیشتر از 255 کاراکتر است دستورات را در چند خط بنویس


Q_Editpatient.SQL.Add('Update Patientaable Set P_Name = :a');
Q_Editpatient.SQL.Add(', P_Family = :P , P_Sex = :C');
. . .

q_editpatient.ExecSQL;

من دوتا خط نوشتم و بقیه را خودت بنویس(این دیکه 255 کاراکتر در یک خط نمی شود)