Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何加快数据导入速度


  共有3293人关注过本帖树形打印复制链接

主题：如何加快数据导入速度
帅哥哟，离线，有人找我吗？
ZJZK2018
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00 		如何加快数据导入速度  发帖心情 Post By：2023/9/22 12:53:00 [只看该作者]

如何加快数据导入速度：
如果数据量大的话，用下面代码导入速度有点慢，有没有更快的办法？

Dim ndr As Row = Tables("AA").AddNew()
For n As Integer = 1 To elems.Count - 2
    Dim tds = elems(n).GetElementsByTagName("td")
    ndr = Tables("AA").AddNew()
    For tn As Integer = 0 To tds.Count -1
        ndr(tn) = tds(tn).InnerText
    Next
Next
 回到顶部
帅哥，在线噢！
cd_tdh
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3210 积分：21336 威望：0 精华：0 注册：2016/3/28 16:57:00 		  发帖心情 Post By：2023/9/22 13:07:00 [只看该作者]

直接导入到数据库

 回到顶部
帅哥哟，离线，有人找我吗？
ZJZK2018
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00 		  发帖心情 Post By：2023/9/22 13:29:00 [只看该作者]

怎么
直接导入到数据库
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110784 积分：563852 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/9/22 13:33:00 [只看该作者]

如果是SqlServer数据库，可以看看：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=159738&replyID=&skin=1

或者看看：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=147288
 回到顶部
帅哥哟，离线，有人找我吗？
ZJZK2018
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00 		  发帖心情 Post By：2023/9/22 18:45:00 [只看该作者]

老师你们是表与表之间导入，我这个是大集合里面的数据导入到指定表里面,如何处理

Dim tds = elems(n).GetElementsByTagName("td")
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110784 积分：563852 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/9/23 8:33:00 [只看该作者]

禁止绘制
Tables("AA").StopRedraw
原来的代码
Tables("AA").ResumeRedraw
 回到顶部
帅哥哟，离线，有人找我吗？
ZJZK2018
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00 		  发帖心情 Post By：2023/9/23 14:21:00 [只看该作者]

加上后速度没有什么加快，有没有其他办法？？

Tables("AA").StopRedraw
Dim ndr As Row = Tables("AA").AddNew()
For n As Integer = 1 To elems.Count - 2
    Dim tds = elems(n).GetElementsByTagName("td")
    ndr = Tables("AA").AddNew()
    For tn As Integer = 0 To tds.Count -1
        ndr(tn) = tds(tn).InnerText
    Next
Next
Tables("AA").ResumeRedraw
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110784 积分：563852 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/9/23 14:32:00 [只看该作者]

没有办法，估计慢是GetElementsByTagName这种提取网页数据的功能，这种没有任何办法加速

4楼的方法只能是提高把数据直接保存到数据库的速度，没有办法提高遍历网页元素的速度
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询