三首爱国现代诗歌:delphi中向access表中insert动态参数?

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/12 04:17:24
procedure Tmainfrm.insertbutnClick(Sender: TObject);
begin
khmc:=edit1.Text;
mainfrm.ADOQuery1.SQL.Clear;
mainfrm.ADOQuery1.SQL.Add('insert into khxx (客户名称) values (''=:a'')');
mainfrm.ADOQuery1.Parameters.ParamByName('a').Value :=khmc;
mainfrm.ADOQuery1.ExecSQL;
end;

报错!
procedure Tmainfrm.insertbutnClick(Sender: TObject);
begin
khmc:=edit1.Text;
mainfrm.ADOQuery1.SQL.Clear;
mainfrm.ADOQuery1.SQL.Add('insert into khxx (客户名称) values ('':a'')');
mainfrm.ADOQuery1.Parameters.ParamByName('a').Value :=khmc;
mainfrm.ADOQuery1.ExecSQL;
end;

改成这样,通过

begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into khxx values (客户名称=:a) ');
ADOQuery1.Paramters.ParamByName('a').Value:= Edit1.Text;
ADOQuery1.ExecSQL;
end;