您的位置：程序门 -> vb -> 控件



将ado访问access数据库返回的记录集中的数据赋给数组的问题,帮帮忙啊


[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]


将ado访问access数据库返回的记录集中的数据赋给数组的问题,帮帮忙啊[已结贴,结贴人:shootboy1984]
发表于：2007-05-29 14:07:07 楼主
把ado对象连接数据库,把符合查询条件的纪录集中数据赋给二维数组,我只知道数据的字段数,不知道记录数,我就定义了一个动态数组,运行提示我下标出界,问题出在哪呢,数据库已连接,代码如下
varsource   =   "select   *   from   tiredata   where   tiremanufacturer= ' "   &   var1   &   " '   and   testdate= ' "   &   var7   &   " '   and   teststate= '纯侧偏 ' "
rs2.cursorlocation   =   aduseclient
rs2.open   varsource,   cnn,   3,   3         'cnn为连接字符串
dim   rc   as   integer
  rc   =   rs2.recordcount
  dim   lateral（)   as   double  
  rs2.movefirst
  dim   i   as   integer
  for   i   =   1   to   rc
  lateral（i,   1)   =   rs2.fields（10)
  lateral（i,   2)   =   rs2.fields（11)
  lateral（i,   3)   =   rs2.fields（12)
  lateral（i,   4)   =   rs2.fields（13)
  lateral（i,   5)   =   rs2.fields（14)
  lateral（i,   6)   =   rs2.fields（15)
  lateral（i,   7)   =   rs2.fields（16)
  lateral（i,   8)   =   rs2.fields（17)
  lateral（i,   9)   =   rs2.fields（18)
  lateral（i,   10)   =   rs2.fields（19)
  lateral（i,   11)   =   rs2.fields（20)
  rs2.movenext
  next
发表于：2007-05-29 14:22:331楼 得分:0
dim   v       as   variant

v   =   rs.getrows（)
发表于：2007-05-29 15:02:222楼 得分:0
能具体一点吗,我想在我原有的代码的基础上改进一下实现这个功能
谢谢了
发表于：2007-05-29 19:39:583楼 得分:0
getrows可以将指定记录和指定字段的值放到一个多维数组里面，具体的用法参考msdn
发表于：2007-05-29 20:26:224楼 得分:20
dim   lateral（)   as   double  
redim   lateral（1   to   11,0   to   rs2.recordcount)

lateral（i,   1)   =   rs2.fields（10)   ==〉   lateral（   1，i)   =   rs2.fields（10)
然后写出来就好了

相关文章
其他资讯

快速检索
分类导航标签a

最新资讯
热门点击