ADO透過ODBC載入TXT資料庫

WTM1

重點..以TXT或DBF當資料庫時，資料夾名稱變成資料庫名稱，檔名變成資料表名稱..不太一樣，要注意喔！
●先建立資料夾當資料庫名稱。
●使用記事本建立資料庫。
●在剛剛建立的資料夾mydbs存檔，檔名為tel.txt。

Private Sub Command1_Click()
Dim Con As Object, Res As Object
Set Con = CreateObject("ADODB.Connection")
Con.open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};defaultdir=c:\mydbs"
'以defaultdir來設定資料夾路徑
〝*.txt; *.csv〞裡有〝;〞字元而造成電腦句子誤判，所以用{ }把驅動程式名稱給包起來
Set Res = Con.Execute("tel.txt")
'使用Execute的方式以檔名為資料表名，載入資料庫
For i = 0 To Res.Fields.Count - 1
Print Res.Fields(i).Name,
Next
Print
Do Until Res.EOF
For i = 0 To Res.Fields.Count - 1
Print Res.Fields(i).Value,
Next
Print
Res.MoveNext
Loop
End Sub
●執行結果。