如何将field对象中的所有数据加入数组？

将rs.field（"动物")中的所有数据（猫，狗，鱼）都加入数组中  
  即a(1)=猫  
      a(2)=狗  
      a(3)=鱼  
  改怎么做？  
  问题重发了一次，因为之前的没有给分，且问题还没解决，不好意思。 问题点数：10、回复次数：4Top

1 楼cuilei197979（风）回复于 2006-02-08 08:24:25 得分 0

Dim   MyString,   MyArray  
  MyString   =   Split("VBScript,is,fun",   ",",   -1,   1)  
  '   MyString(0)   包含"VBScript"。  
  '   MyString(1)   包含"is"。  
  '   MyString(2)   包含   "fun"。  
   
  Top

2 楼of123（）回复于 2006-02-08 08:52:55 得分 5

将rs.field（"动物")中的所有数据（猫，狗，鱼）都加入数组中  
  即a(1)=猫  
      a(2)=狗  
      a(3)=鱼  
  改怎么做？  
  问题重发了一次，因为之前的没有给分，且问题还没解决，不好意思。  
   
  dim   a()   as   string,   i   as   integer  
  rs.open   "select   distinct   动物   from   tablename",   cn  
   
  i=0  
  do   until   rs.eof  
          redim   preserve   a(i)  
          a(i)   =   rs.fields("动物")  
          i   =   i   +   1  
          rs.movenext  
  loop  
   
  rs.close  
  set   rs   =   nothing  
  Top

3 楼ZOU_SEAFARER（颓废程序员^_^）回复于 2006-02-08 09:31:16 得分 5

do   while   not   rs.bof  
        a(i)   =   rs.field（"动物")  
        i   =   i   +1  
        rs.movenext  
  loopTop

4 楼ZOU_SEAFARER（颓废程序员^_^）回复于 2006-02-08 09:32:14 得分 0

sorry   应该是do   while   not   rs.EOFTop

相关问题

• 数据
• 加入数组
• 动物
• mystring
• rs
• 狗
• 猫
• 所有数据
• 鱼
• field

• 帖主：junyo
• of123
• ZOU_SEAFARER

• Visual Basic类图书
• Visual Basic类源码下载