盒子论坛 v2.1

procedure TForm1.Button3Click(Sender: TObject);
var
i,ttmp:integer;
temp,tadd:string;
begin
  for i:=2 to 20 do
    begin
      temp:='名称abcABC:>>>'+inttostr(i);
      tadd:='高科技工业中心'  ;
      Randomize;
      ttmp:=Random(ttmp);
      with QAccess do
        begin
        close;
        SQL.Clear;
        SQL.Add('Insert into testq (id,name,tel,add) values (i,temp,ttmp,tadd)');

        end;
    end;
end;
// id和tel 是integer  ;
// name和add 是string;

----------------------------------------------
-

作者：

Ryu_lin (Ryu_lin)	★☆☆☆☆	-
	盒子活跃会员

2003/10/26 16:10:12

1楼：

没有执行ExecSQL
----------------------------------------------
-

作者：

rhot (rbeatles)	★☆☆☆☆	-
	盒子活跃会员

2003/10/26 16:37:05

2楼：

procedure TForm1.Button3Click(Sender: TObject);
var
i,ttmp:integer;
temp,tadd:string;
begin
  for i:=2 to 20 do
    begin
      temp:='名称abcABC:>>>'+inttostr(i);
      tadd:='高科技工业中心'
      Randomize;
      ttmp:=Random(ttmp);
      with QAccess do
        begin
        close;
        SQL.Clear;
        SQL.Add('Insert into testq (id,name,tel,add) values (i,temp,ttmp,tadd)');
        ExecSQL;

end;
end;
end;
----------------------------------------------
-

信息

登陆以后才能回复