topcat 姍舞之間的極度凝聚

csv是一種文字型態的資料庫
以往讀取這類的東西，都是透過檔案存取物件FileSystemObject
這樣會浪費了文字資料庫的特性
其實可以透過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

 

以下是簽名：

• 歡迎轉貼本站的文章，不過請在貼文主旨上加上【轉貼】，並在文章中附上本篇的超連結與站名【topcat姍舞之間的極度凝聚】，感恩大家的配合。
• 小喵大部分的文章會以小喵熟悉的語言VB.NET撰寫，如果您需要C#的Code，也許您可以試著用線上的工具進行轉換，這裡提供幾個參考
  • http://converter.telerik.com/
  • http://www.carlosag.net/tools/codetranslator/
  • http://www.developerfusion.com/tools/convert/vb-to-csharp/