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;