Cn.ConnectionString = "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=F:\;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就用Txt文件吧,容易维护,第一行会做为栏位来处理,所以第一行改为标题类的文字也可以直接读取txt文件的方法来做
Cn.ConnectionString = "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=F:\;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就用Txt文件吧,容易维护,第一行会做为栏位来处理,所以第一行改为标题类的文字也可以直接读取txt文件的方法来做