DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: zjharv003
今日帖子: 0
在线用户: 8
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 hungshou (扬凡) ★☆☆☆☆ -
普通会员
2003/4/16 21:58:35
标题:
紧急求助!一定要帮忙啊! 浏览:4046
加入我的收藏
楼主: 请问怎么循环插入以下数据到一个数据表中?
DATE  R01  R02  R03  R04  R05  R06  R07  R08
 1    A     B    C    D    E    F    G    H
 2    H     A    B    C    D    E    F    G
 3    G     H    A    B    C    D    E    F
 4    F     G    H    A    B    C    D    E
 5    E     F    G    H    A    B    C    D
 6    D     E    F    G    H    A    B    C
 7    C     D    E    F    G    H    A    B
 8    B     C    D    E    F    G    H    A
 9    A     B    C    D    E    F    G    H
————如果要循环插入10万条记录,请各高手帮小弟一把!在下必不胜感谢!

----------------------------------------------
扬凡
作者:
女 ldyocean (ldyocean) ★☆☆☆☆ -
盒子活跃会员
2003/4/16 22:10:48
1楼: procedure getindate(mrow:integer);
//mrow:记录数
var
   m_string:array[0..7] of string;
   i,j:integer;
begin
   for i:=0 to mrow-1 do begin
       if not table1.active then table1.open;
       table1.append;
       table1.filedbyname('date').asinteger:=i;
       table1.fieldbyname('ro1').asstring:=m_string[0];
     ^^^^^^^^^^^^^^
       table1.filedbyname('ro8').asstring:=m_string[7];
       for j:=0 to 7 do begin
           if j<>1 then m_string[j]:=m_string[j-1]
           else m_string[j] :=m_string[7];
       end;  
       table1.post; 
   end;
end;

以上代码没有测试过,另外好象效率太低,如果你要插入10万条记录,他就做了70万次循环,我估计得死机。:)
如果你有什么好方法也希望告诉我。
----------------------------------------------
-
作者:
女 ldyocean (ldyocean) ★☆☆☆☆ -
盒子活跃会员
2003/4/16 22:21:57
2楼:     我靠,好象for应该写到post后面比较好,不过也无所谓。
----------------------------------------------
-
作者:
女 ldyocean (ldyocean) ★☆☆☆☆ -
盒子活跃会员
2003/4/16 22:31:52
3楼:      哦,再补充一句啊,在过程一开始应该给数组赋值的,我忘记了,嘿嘿。

     另外,因为我翻了一下帖子,你这不就是那个什么保安排班的程序吗?需要10万条吗?太夸张了吧,十万个星期以后估计大楼估计都没有了吧?
----------------------------------------------
-
作者:
男 hungshou (扬凡) ★☆☆☆☆ -
普通会员
2003/4/16 22:56:15
4楼: ldyocean这位朋友,无论怎样小弟都非常感谢!因为我涉足DELPHI还不深,许多问题弄不懂,看了你的回贴,有理由相信您是一个很乐于助人的高手,如果能和兄台交上朋友,实是我之荣幸!我的QQ是36056878,如果愿意,很乐意能与您交谈。
----------------------------------------------
扬凡
作者:
男 mantousoft (孜孜不倦的馒头) ★☆☆☆☆ -
盒子活跃会员
2003/4/16 22:59:01
5楼: to hungshou:我删除了你以前一个相同问题的帖子,给你说一下:)
----------------------------------------------
看到帖子就想顶,原谅我是这么直了~ 
作者:
男 hungshou (扬凡) ★☆☆☆☆ -
普通会员
2003/4/16 23:04:47
6楼: to mantousoft:因为发第一个贴的时候等了好久都没人回复,实是无奈,很是抱歉!希望以后每次能得到各位热心朋友的帮忙,小弟在此谢过了!
----------------------------------------------
扬凡
作者:
男 mantousoft (孜孜不倦的馒头) ★☆☆☆☆ -
盒子活跃会员
2003/4/16 23:07:41
7楼: 你可以回复自己的帖子顶一下嘛:)
----------------------------------------------
看到帖子就想顶,原谅我是这么直了~ 
作者:
男 hungshou (扬凡) ★☆☆☆☆ -
普通会员
2003/4/16 23:29:51
8楼: 甚好,狂顶ldyocean 和mantousoft 一把!
----------------------------------------------
扬凡
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行161.0107毫秒 RSS