ado用文本文件做数据库

作者:admin 日期:2008-05-15

字体大小: 小中大

Dim cn As New Connection
cn.ConnectionString = "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=c:\;Extensions=asc,csv,tab,txt;"
   cn.Open
   Dim Rst As New ADODB.Recordset
   Dim Sql As String
   Sql = "select * from TEST.txt"
   Rst.CursorLocation = adUseClient
   Rst.Open Sql, cn, adOpenStatic, adLockPessimistic
   While Not Rst.EOF
    Debug.Print Rst(0)
   Rst.MoveNext
   Wend