如何使用ado访问文本文件？

Question

哪位高手给段代码吧！！

Answer 1

Public Function Read_Text_File() As ADODB.Recordset
      Dim rs As ADODB.Recordset
      Set rs = New ADODB.Recordset
      Dim conn As ADODB.Connection
      Set conn = New ADODB.Connection
      conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _
                  "DBQ=" & App.Path & ";", "", ""      rs.Open "select * from [test#txt]", conn, adOpenStatic, _
                  adLockReadOnly, adCmdText
      Set Read_Text_File = rs
      Set rs = Nothing
      Set conn = Nothing
End FunctionPrivate Sub cmdReadTXT_Click()
      Set DataGrid1.DataSource = Read_Text_File
End Sub test.txt文件内容Test,Test2
1,1
2, 2
3, 3
4, 4
5, 5
6, 6
7, 7
8, 8
9, 9
111,222

Answer 2

文本文件如果是按分隔符分隔各个字段的,可以使用一楼龙兄的方法,如果是按照定长的,就必须创建一个信息文件schema.ini,比较麻烦一点

Answer 3

没搞错吧，这都是谁出的主意啊，用ADO访问文本文件，写程序写到这份上也可以退休了，放着VB的FileSystemObject不用，还用ADO去访问，不累吗？