标题：如何加快数据导入速度

1楼

ZJZK2018 发表于：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

2楼

cd_tdh 发表于：2023/9/22 13:07:00

直接导入到数据库

3楼

ZJZK2018 发表于：2023/9/22 13:29:00

怎么

直接导入到数据库

4楼

有点蓝 发表于：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

5楼

ZJZK2018 发表于：2023/9/22 18:45:00

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

Dim tds = elems(n).GetElementsByTagName("td")

6楼

有点蓝 发表于：2023/9/23 8:33:00

禁止绘制

Tables("AA").StopRedraw

原来的代码

Tables("AA").ResumeRedraw

7楼

ZJZK2018 发表于：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

Tables("AA").ResumeRedraw

8楼

有点蓝 发表于：2023/9/23 14:32:00

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

4楼的方法只能是提高把数据直接保存到数据库的速度，没有办法提高遍历网页元素的速度

共8 条记录, 每页显示 10 条, 页签: [1]