1.可以这样打开txt文件:
dim conn as new adodb.connection
Dim ConnStr As String
ConnStr = "Provider=MSDASQL.1;" & _
"DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _
"DBQ=D:\tmep"
conn.Open ConnStr
rs.CursorLocation = adUseClient
rs.Open "Select * From test.txt", conn, adOpenDynamic, adLockPessimistic
dim conn as new adodb.connection
Dim ConnStr As String
ConnStr = "Provider=MSDASQL.1;" & _
"DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _
"DBQ=D:\tmep"
conn.Open ConnStr
rs.CursorLocation = adUseClient
rs.Open "Select * From test.txt", conn, adOpenDynamic, adLockPessimistic
第二个问题我回答过N遍了,如果是SQLServer或者Oracle可以用
select * from information_schema.tables