VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 2803|回复: 0

[求助] 请教怎么增加数据效率高点 怎么都不明白 为何 效率那么低的

[复制链接]
发表于 2016-1-11 09:28:25 | 显示全部楼层 |阅读模式

  1.   
  2.      rst.Open "信息", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
  3.      
  4.      For i = 0 To cid '~=25000
  5.          
  6.          With Datas(i)
  7.           If Not IsEmpty(Datas(i).p_info) Then
  8.           m = UBound(Datas(i).p_info)
  9.             For j = 1 To m
  10.             n = UBound(Datas(i).p_info(j, 5))

  11.                 If n = 0 Then
  12.                     rst.AddNew Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 13, 14, 16), _
  13.                     Array(.p_info(j, 0), .p_info(j, 1), .p_info(j, 2), .p_info(j, 3), .p_info(j, 4), Empty, Empty, Empty, Empty, _
  14.                     .p_info(j, 9), Empty, .p_info(j, 11), .p_info(j, 12), Empty _
  15.                     )

  16.                 Else
  17.                 For k = 1 To n
  18.                     rst.AddNew Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 13, 14, 16), _
  19.                     Array(.p_info(j, 0), .p_info(j, 1), .p_info(j, 2), .p_info(j, 3), .p_info(j, 4), IIf(Datas(i).p_info(j, 5)(k, 0) = "", Empty, idlx(Val(Datas(i).p_info(j, 5)(k, 0)))), IIf(Datas(i).p_info(j, 5)(k, 1) = "", Empty, iddj(Val(Datas(i).p_info(j, 5)(k, 1)))), .p_info(j, 5)(k, 2), .p_info(j, 5)(k, 3), _
  20.                     .p_info(j, 9), .p_info(j, 5)(k, 4), .p_info(j, 11), .p_info(j, 12), .p_info(j, 5)(k, 5) _
  21.                     )

  22.                 Next k
  23.                End If
  24.             Next j
  25.          End If
  26.          
  27.        End With

  28.     Next
  29.      rst.Close
  30.      Set rst = Nothing
  31.          Datas(0-25000+) 结构如下
  32.              |属性1
  33.                  |属性2
  34.                  ...
  35.                  |属性13
  36.         其中 |属性info 为动态数组 维数不定
  37.                     |属性info的子属性1
  38.                         |属性info的子属性2
  39.                         |属性info的子属性3
  40.                         |属性info的子属性4
  41.                         |属性info的子属性5 为动态数组 维数不定
  42.                                                 |属性info的子属性5孙属性1
  43.                                                 |属性info的子属性5孙属性2
  44.                                                 |属性info的子属性5孙属性3
  45.                                                 |属性info的子属性5孙属性4
  46.                                                 |属性info的子属性5孙属性5
  47.                         
  48.                         ...
  49.                         |属性info的子属性8
  50.                         。。。
  51.         idlx 和iddj 是2个已有固定数组
复制代码
需要接近10分钟 太慢了.. 是取datas数组太慢了?!
为什么不在生成数组的时候直接存入表,我只能说我有 暗疾.....说不出的痛
一般情况下 写完后 表[信息] 将有12万条记录为什么这么慢的呢  试过 将 21行的屏蔽后能大概提高1班时间,如果芝士将 21行的iif语句该为直接数组的值(即不取对应固定数组中的值), 有10-20%的提升
第21行 其实增加的数据量很少的
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-9-27 10:43

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表