dim str as string
dim i as long
open "filename" for output as #1
do until rs.eof
for i =0 to rs.fields.count-1
str=str & rs.fields(i).value & " "
next i
print #1,str
rs.movenext
loop
rs.close
set rs=nothin
dim i as long
open "filename" for output as #1
do until rs.eof
for i =0 to rs.fields.count-1
str=str & rs.fields(i).value & " "
next i
print #1,str
rs.movenext
loop
rs.close
set rs=nothin
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货