delphi insert into 怎样用不容易出错 今天写服务端,由于要插入多条数据,出了几次错,总结了经验.

delphi insert into 怎样用不容易出错 今天写服务端,由于要插入多条数据，出了几次错,总结了经验.

贴代码:

procedure TForm2.btnupdateClick(Sender: TObject);

begin

AdoADDdy := TADOQuery.Create(self);

AdoADDdy.Connection := dm.ADOConnection1;

with AdoADDdy do

begin

Close;

sql.Clear;

SQL.Add('insert into dy(M_Name,M_Type,M_actor,M_content,M_Pic,M_Url,M_Time) values(:mname,:mtype,:mactor,:mcontent,:mpic,:murl,:mtime)');//由于需要插入太多的数据,所以给每个数据一个变量,当然,也可以用quotestr,主要就是符号的问题,让人眼花.

Parameters.ParamByName('mname').Value := edtname.Text;

Parameters.ParamByName('mtype').Value := form1.TreeView1.Selected.Text;

Parameters.ParamByName('mactor').Value := edtactor.Text;

Parameters.ParamByName('mcontent').Value := mmocontent.Text;

Parameters.ParamByName('mpic').Value := picfile;

Parameters.ParamByName('murl').Value := mmourl.Text;

Parameters.ParamByName('mtime').Value := DateTimeToStr(Now());

//这样就感觉比较清楚

try

ExecSQL;

ShowMessage('影片添加成功!');

except

ShowMessage('影片添加出错!');

Exit;

end;

end;

end;

本文来源：https://www.wddqw.com/doc/673bcb6c783e0912a2162a1f.html