Не удается прочитать CSV-файл через поставщика данных OLE DB - PullRequest
Новая
       11

Не удается прочитать CSV-файл через поставщика данных OLE DB

0 голосов
/ 09 июня 2011

Я не могу прочитать файл CSV с OLEDB.

Я получаю эту ошибку:

... неверный путь. Убедитесь, что путь указан правильно и что вы подключены к серверу, на котором находится файл

это мой код 

'**********Genarate DataTable***************
Function CsvCreateDataTable(ByVal strPath As String, ByVal strFilesName As String) As DataTable
    Dim objConn As New OleDbConnection
    Dim dtAdapter As OleDbDataAdapter
    Dim dt As New DataTable

    'Response.Write(strPath);
    'm_objFile.SaveAs(Server.MapPath("~") + "\uploads\gallery\original\" + m_strFileName)
    Dim dirFilename As String
    'dirFilename = Server.MapPath("~") + strPath + strFilesName
    dirFilename = Server.MapPath("~\Uploads\") + "11backlist.csv"

    If File.Exists(dirFilename) Then

        Response.Write(dirFilename)

    Else
        Response.Write("ssssssss")
    End If

    Response.Write("<br><br><br>")
    Dim strConnString As String
    strConnString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & dirFilename & ";Extended Properties='TEXT;HDR=Yes;FMT=Delimited;Format=Delimited(,)'"

    objConn = New OleDbConnection(strConnString)
    objConn.Open()

    Dim strSQL As String
    strSQL = "SELECT * FROM " & strFilesName

    dtAdapter = New OleDbDataAdapter(strSQL, objConn)
    dtAdapter.Fill(dt)

    dtAdapter = Nothing

    objConn.Close()
    objConn = Nothing

    Return dt '*** Return DataTable ***'

End Function
...