用ADO连接数据库,打开一个文本文件,然后
dim f as Field do while not rs.Eof
strContent=""
for each f in rs.fields
strContent=strContent & " " & f.Value
next f
把strContent写入文件
rs.Movenext
loop
dim f as Field do while not rs.Eof
strContent=""
for each f in rs.fields
strContent=strContent & " " & f.Value
next f
把strContent写入文件
rs.Movenext
loop
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货