可用分押宝游戏火热进行中...	专题改版：Java Web 专题

求高手帮我解决一个问题：是关于循环插入的问题

楼主fjwant168（渴望改变）2005-06-01 23:43:11 在 Delphi / 数据库相关提问

具体点：
pro_id pro_name(商品名) shuliang(数量)
0001 百事 5
0002 脉动 6
0003 .. ..
上面是将要插入数据库的数据库，但表的结构是
pro_id pro_name
也就是每次只能插入一条数据，如第一行数据要插5次，怎么写Delphi中写代码啊，shuliang由edit1获得的问题点数：10、回复次数：9Top

1 楼pazee（耙子)(今年过年不收礼，收礼只收尿不湿）回复于 2005-06-01 23:44:54 得分 0

弄个循环呗！Top

2 楼fjwant168（渴望改变）回复于 2005-06-01 23:49:29 得分 0

关键是我不熟啊，而且是每行都有循环啊Top

3 楼dashi111（sally）回复于 2005-06-02 08:58:13 得分 0

for i：=0 to 4 DO
begin
adoquery1.close;
Adoquery1.sql.clear;
adoquery1.sql.add('insert into 表名 values('0001','百事',5)')
adoquery1.open;
end;Top

4 楼trueman3000（穷人）回复于 2005-06-02 09:18:04 得分 0

for i：=0 to 商品名数 DO
begin
for j:=0 to 每种商品数 do
begin
adoquery1.close;
Adoquery1.sql.clear;
adoquery1.sql.add('insert into 表名 values('商品编号','商品名')');
adoquery1.ExecSQL;
end;
end;Top

5 楼trueman3000（穷人）回复于 2005-06-02 09:18:43 得分 5

for i：=0 to 商品名数-1 DO
begin
for j:=0 to 每种商品数-1 do
begin
adoquery1.close;
Adoquery1.sql.clear;
adoquery1.sql.add('insert into 表名 values('商品编号','商品名')');
adoquery1.ExecSQL;
end;
end;
Top

6 楼echoxh（青衣）回复于 2005-06-02 09:26:56 得分 0

你的问题问得比较模糊，是从一个表倒入另一个表中吗？怎么又从Edit获得数量数据呢？Top

7 楼zyszhx（星空下的心）回复于 2005-06-02 10:07:32 得分 0

没看清楚,不知道你的意思不是不这样.
var
i,k,jlsint,xhcs:integer;//jlsint ADODataSet1里的记录数　xhcs　每条记录要循环的次数

begin
jls:=.RecordCount;
ADODataSet1.First
for k:=1 do jlsint do
begin
for i:=1 to xhcs do
begin
ADODataSet2['商品编号']:=ADODataSet1['商品编号'];
ADODataSet2['商品名'']:=ADODataSet1['商品名''];
end;
ADODataSet1.nest
end;Top

8 楼zyszhx（星空下的心）回复于 2005-06-02 10:19:53 得分 0

没看清楚,不知道你的意思不是不这样.
var
sl,i,k,jlsint,xhcs:integer;//jlsint ADODataSet1里的记录数　xhcs　每条记录要循环的次数sl是产品的数量

begin
jls:=.RecordCount;
ADODataSet1.First
for k:=1 do jlsint do
begin
for i:=1 to xhcs do
begin
sl:=sl+ADODataSet1['数量'];
end;
　　　　ADODataSet２．insert;
ADODataSet2['商品编号']:=ADODataSet1['商品编号'];
ADODataSet2['商品名'']:=ADODataSet1['商品名''];
　　　　ADODataSet2['数量]:=数量;
ADODataSet2.post;
ADODataSet1.nest
end;Top

9 楼aladdin2006（回答问题不接分，不想要分，只为提高技术，解决问题）回复于 2005-06-02 10:20:09 得分 5

for i：=1 to 商品记录数 DO
begin
for j:=1to 每种商品数 do
begin
adoquery1.close;
Adoquery1.sql.clear;
adoquery1.sql.add('insert into 表名 values('pro_id','pro_name)');
adoquery1.ExecSQL;
end;
end;
如果原来得数据是在一个表中可以用SELECT 语句提取记录数和每种商品数就可以了

Top