ADO可以读EXCEL文件，可否读txt文本文件？

Question

有个文本文件，是从数据库倒出来的，格式如下：
TXTNUM     TXTCODE
2173        105
2120        205
数据很多现要把该文本倒到SQL Server数据库表中,如表名为IMPORTDATA
字段:
IMPORTNUM   char(14)
IMPORTCODE  char(10)1、怎样通过ADO的方式倒数据？

Answer 1

可以.
Dim conn As New ADODB.Connection
Dim rs As New ADODB.RecordsetPrivate Sub Command1_Click()
    Dim ConnStr As String
    
    ConnStr = "Provider=MSDASQL.1;" & _
              "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _
              "DBQ=E:\DEMO\txt"
    conn.Open ConnStr
    
    rs.CursorLocation = adUseClient
    rs.Open "Select * From score2.txt", conn, adOpenDynamic, adLockPessimistic
End Sub

Answer 2

Option Explicit
Private fs As Variant
Private a As VariantPrivate Sub Command1_Click()
Dim k As String
Open (Dir1.Path + "\" + File1.FileName) For Input As 1#Line Input #1, k
MsgBox (k)
Close 1#
End SubPrivate Sub Dir1_Change()
File1.Path = Dir1.Path
File1.FileName = "*.txt"End SubPrivate Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End SubPrivate Sub Form_Load()
File1.FileName = "*.txt"
end sub你真累！TXT 本可以这样读，为什么要用ADO，还有很多函数可能控制 TXT文本的行、你也可以用啊! 
共多少行，每行都用固定的写行方式 ，或读出方式 都可以当做记录啊!