讀數CSV文件導入Access數據庫

Question

我想讀一個CSV文件導入Access數據庫，這裏是我的代碼：

Private Sub load_csv() 
    Dim ConnectionString As String 
    ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ 
    "Data Source=" & input_file & ";" & _ 
    "Extended Properties=""Text;HDR=Yes""" 
    Dim TextConnection As New System.Data.OleDb.OleDbConnection(ConnectionString) 
    TextConnection.Open() 
    Dim da As New System.Data.OleDb.OleDbDataAdapter _ 
    ("SELECT * INTO [MS Access;Database=" & current_db & "].[Rapoarte] FROM [" & input_file & "]", TextConnection) 
End Sub 

當我運行它，我得到一個錯誤：

'C:\Documents and Settings\username\Desktop\test.csv' 

不是有效的路徑。確保 路徑名拼寫正確，並且 您連接到文件所在的服務器 。

奇怪的是，該文件真的存在，那麼還有什麼可能出錯？

Answer 1

沒關係，

我發現我做錯了。

而不是提供文件路徑我給它的文件名。 參考它應該看起來像這樣。

Private Sub load_csv() 
     Dim ConnectionString As String 
     ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ 
     "Data Source=" & file_path & ";" & _ 
     "Extended Properties=""Text;HDR=Yes""" 
     Dim TextConnection As New System.Data.OleDb.OleDbConnection(ConnectionString) 
     TextConnection.Open() 
     Dim da As New System.Data.OleDb.OleDbDataAdapter _ 
     ("SELECT * INTO [MS Access;Database=" & current_db & "].[Rapoarte] FROM [" & input_file & "]", TextConnection) 
    End Sub