緊急求助:如何讀取.txt檔案中的內容到sql數據表中?

Question

.txt檔案中內容之間以tab做為分隔符號,比如
zgx    16    男    2005-06-18
bbb    25    女    2005-06-15
如何將這些數據插入到sql數據表中?
謝謝!

Answer 1

On Error Resume next
Dim strTmp as String
Dim Ar
Open "C:\22.txt" For Input As #1
While EOF(1)
    line input #1,strTmp '读取每行数据
    ar=split(strTmp," ") '分解字符串
    SQL="Insert into 表(姓名，年龄，性别，日期) values('" & ar(0) & "'," & ar(1) & ",'" & ar(2) & "','" & ar(3) & "')"
    con.execute sql
wend
close(1)