我的数据库有6个字段,我想取出其中的一条信息,而且是用一个循环一条一条的附给一个变量!怎样实现?

Question

dim i%
dim str$
for i=0 to rst.fields.count-1
 str=rst(i)&""
next i

Answer 1

dim fil as field
dim stemp as string
                 '表名
do while not ret.eof
     for each fil int tabname.fields
         '在这里你可以顺序的得到你想要的值
         stemp=fil.value
     next fil
     ret.movenext
loop

Answer 2

dim tintCount as integer
dim tstr() as string
for tintCount=0 to rs.fields.count-1
   redim preserve tstr()=rs.field(tintcount).value
next tintcount