Question

我想将csv文件读入访问数据库，这是我的代码：

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

将csv文件读入访问数据库

1 个答案: