很好的问题,要快,如何实现动态插入数据,网上等待?

Question

procedure TForm1.Button3Click(Sender: TObject);
var
  ls_sql, li_lsh,li_swh, ls_cz:string;
begin
 li_lsh:='1234';
 li_swh:='2';
 ls_cz:=#39'cd'#39;
 ls_sql:='Insert into tangwen.dqbzw(lsh,swh,cz)'+
        ' values(%s,%s,%s)';
 with adoquery1 do
  begin
    close;
    sql.Clear;
    sql.Add(format(ls, [li_lsh, li_swh, ls_cz]);
    ExecSQL;
  end;
end;

Answer 1

知道用以下这个吗;还有分给 
 Parameters.ParamByName(b).asinteger:=1;
 Parameters.ParamByName(c).asstring:='12';

Answer 2

ls_cz:=#39'cd'#39;是因为我的数据库里是字符型才要在前后家#39吧若是日期,时间,实数还要加什么吗

Answer 3

begin
 li_lsh:=1234;
 li_swh:=2;
 ls_cz:='cd';
 ls_sql:='Insert into tangwen.dqbzw(lsh,swh,cz)'+
        ' values(:li_lsh,:li_swh,:ls_cz)';
 with adoquery1 do
  begin
    close;
    sql.Clear;
    sql.Add(ls_sql);
    ParambyName('li_lsh').asinteger:=li_lsh;
    ParambyName('li_swh').asinteger:=li_swh;
    ParambyName('li_cz').asstring:=li_cz;
    ExecSQL;
  end;
end;

Answer 4

procedure TForm1.Button3Click(Sender: TObject);
var
  ls_sql:string;
  li_lsh,li_swh:integer;
  ls_cz:string;
  i:integer;
begin
 li_lsh:=1234;
 li_swh:=2;
 ls_cz:='cd';
 ls_sql:='Insert into tangwen.dqbzw(lsh,swh,cz)'+
        ' values('+li_lsh+','+li_swh+','''+ls_cz+''')';
 with adoquery1 do
  begin
    close;
    sql.Clear;
    sql.Add(ls_sql);
    ExecSQL;
  end;
end;

Answer 5

我试了,出现错误
Undeclared identifier:'ParambyName'

Answer 6

to chan_jian
  good

Answer 7

to chan_jian
  good