Question

vb6如何将ACCESS数据库中的一张表里全部数据以TXTl格式保存到本地计算机

数据库名为DB2000，表名为yhsj，A,B,C,D,E五个字段
谢谢

Answer 1

先读取数据库的Recordset ,例如Recordset的名称是Rs

rs.MoveLast: rs.MoveFirst
'如果没有数据就离开，不继续往下运行。
If rs.RecordCount <> 0 Then Exit Sub
Open "c:\Newtest.txt" For Output As #1
Do While Not rs.EOF
Print #1, rs("字段1"), rs("字段2"), rs("字段3"), rs("字段4"), rs("字段5")
rs.MoveNext
Loop
Close #1