2011年7月5日 星期二

透過ADO.Recrodset取得文字資料庫csv的方法

參考網址
http://blog.blueshop.com.tw/topcat/archive/2005/08/08/11356.aspx


可以透過RecordSet來直接讀取csv檔
不過要特別注意讀取後,兩個豆號間如果沒有資料
那麼那個欄位會是【null】
以下是範例程式

--------------------------------------------------------------------------------

Dim conn as Object
Dim rs as Object
Dim FilePath as String
Dim SQLTXT1 as String

Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

FilePath = "D:\TEMP"

conn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=" & FilePath & ";Extensions=asc,csv,tab,txt;Persist Security Info=False"

With rs
.CursorType=2
.LockType=3
.CursorLocation=3
.ActiveConnection=conn
End With

SQLTXT1 = "SELECT * FROM ABC.csv"
RS.Open SQLTXT1

沒有留言:

張貼留言

如果久久沒有反應,請直接寄信
應該是我不太會用google blogger 導致有留言過久未處理><
實在深感抱歉..