Ошибка при чтении файла CSV с использованием OleDBAdapter в VB.Net - PullRequest
Новая
       25

Ошибка при чтении файла CSV с использованием OleDBAdapter в VB.Net

0 голосов
/ 08 июля 2019

Необходимо прочитать CSV-файл, который содержит более 3 миллионов записей в DataSet.Использование OleDBAdapter для чтения файла CSV и перемещения всего содержимого в набор данных. 

Dim FolderPath As String = Path.GetDirectoryName(FileDetails)
Dim tblCSV As New DataSet

Dim OleDBConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                                FolderPath & _
                                ";Extended Properties=""text;HDR=Yes;FMT=Delimited"";"

Dim OleDBConn As OleDbConnection

OleDBConn = New OleDbConnection(Trim(OleDBConnString))
OleDBConn.Open()

Dim OleDBAdapater As New OleDbDataAdapter("SELECT * FROM [" & Import_File_Name & "]", OleDBConn)

OleDBAdapater.Fill(tblCSV)

MessageBox.Show(tblCSV.Tables.Item(0).Rows.Count)
...