怎么把在SQL中查询的记录,导入到文本中!在线等,马上结贴

[wyy1001]

怎么把table1的记录,导入1.txt文本中!

[of123]

最直接的方法：
dim cn as new adodb.connection
dim rs as new adodb.recordset
cn.connectionstring = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb"
cn.open
set rs = cn.execute("select * from table1")

open "1.txt" for output as #1

do until rs.eof

for i = 0 to rs.Fields.count -1
print #1, rs.Fields(i) & vbTab
nexti

print #1,""
rs.movenext
loop

close #1
rs.close
set rs = nothing
cn.close
set cn = nothing

[wyy1001]

谢谢楼上的,可是我不想是这个的,我要导出来的记录,在文本里面好那个表的结构一样

排列的

[w3k]

楼主想要这样的结果吧
表1:id xh xm sex jg
倒出到txt应该这样吧

1 200101 王 0 海南
2 200102 李 0 海南
3 200103 莫 1 深圳
--------------------------
2楼的代码稍微修改就可以了……

[qingyun67]

用dts导入\导出:
目的地:选择文本文件------浏览到1.txt

[wyy1001]

并且我要导出的数据,格式为(根在查询分析器里面所查找到的记录,再用另存为文本的)的那种格式

帮一下忙噢