高考问答阳光姐妹淘完整版下载:delphi中向access表中insert动态参数？
来源：百度文库 编辑：高考问答 时间：2024/05/14 02:58:22
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
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;