Question

如何用VB将access中字段数据导出生成txt格式的文本文件

我想从access数据库中将其中某一个表的数据导出，生成txt文件，请问要怎样才能实现啊？要用到哪些控件呢？谢谢!
数据库的表格式大体如下：
节点坐标表
节点编号 X坐标 Y坐标 Z坐标
1 0 0 0
2 0 1 0
3 1 1 1
4 2 3 3
5 2 3 1
…
用VB编程，将节点坐标表以如下TXT格式导出：
Jiedianzuobiao
1 c=0 0 0
2 c=0 1 0
3 c=1 1 1
4 c=2 3 3
5 c=2 3 1
…
其中“c=”是我加的一种格式，也可以换成“b=”，“q=”之类的格式；
我的VB很菜，还请各位高手详细的指点下哈，多谢啦！
多谢啦！那请问如何连接access数据表呢？

Answer 1

Dim conn As New ADODB.Connection, RS As New ADODB.Recordset, strSQL As String, AA() As String, SST As Integer, X As Integer
'数据库链接语句略
strSQL = "Select * From 数据表名"
RS.Open strSQL, conn, 2, 1
SST = RS.RecordCount
ReDim AA(1 To 4, 1 To SST) '将动态数组定义上下标
Do While Not RS.EOF
X = X + 1
AA(1, X) = RS!节点编号 '将各字段值存储到数组中
AA(2, X) = RS!X坐标
AA(3, X) = RS!Y坐标
AA(4, X) = RS!Z坐标
RS.MoveNext
Loop
RS.Close
conn.Close
'写入txt文件中
Open "txt文件的路径+文件名" For Output As #1
For I = 1 To SST
'将数组写入txt文件中，" "是空格，vbCrLf是换行符
Write #1, AA(1, I) & " c=" & AA(2, I) & " " & AA(3, I) & " " & AA(4, I) & " " & vbCrLf
Next
Close #1