VB如何把ACCESS中的记录写到txt文件中

Question

比如ACCESS数据表的数据如下:
学号    姓名
111     CKY
222     MMM
写到txt文件格式如下:
学号:111
姓名:CKY
学号:222
姓名:MMM
请大家帮帮忙,解决立刻结贴

Answer 1

首先連接數據庫：
   Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\TEST\雜\各種資料的連接\File\TEST.mdb;User Id=admin;Password=;"
   Cn.Open   Dim Rst As New ADODB.Recordset
   Dim Sql As String
   Sql = "select * from test"
   Rst.CursorLocation = adUseClient
   Rst.Open Sql, Cn, adOpenStatic, adLockPessimistic
   If Rst.RecordCount > 0 Then
      '打開txt文件，導入數據:
      Open "C:\test.txt" For Output As #1
      Do While Not Rst.EOF
         Print #1,"學號：" & Rst.Fields ("學號")
         Print #1,"姓名：" & Rst.Fields ("姓名")
         Rst.MoveNext
      Loop
      Close #1
   End If