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

Question

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

Answer 1

最直接的方法：
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 #1do until rs.eoffor i = 0 to rs.Fields.count -1
print #1, rs.Fields(i) & vbTab
nextiprint #1,""
rs.movenext
loopclose #1
rs.close
set rs = nothing
cn.close
set cn = nothing

Answer 2

楼主想要这样的结果吧
表1:id xh xm sex jg
倒出到txt应该这样吧
     
1 200101 王 0 海南
2 200102 李 0 海南
3 200103 莫 1 深圳
--------------------------
2楼的代码稍微修改就可以了……

Answer 3

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