Estou fazendo a leitura de um arquivo csv por um Console Application, e até este ponto está me retornando corretamente.
Agora estou tendo dificuldades em entender como incluir cada campo em uma coluna do Banco.
Este é o código que tenho até o momento.
Public Function LerCsvConfrec()
Dim sb As New StringBuilder
Dim ds As New DataSet
Dim dtConfrec As New DataTable
Dim maquinaProducao As String = "PRODUCAO"
Dim pastaOrigem As String = ""
Dim pastaDestino As String = ""
If Environment.MachineName = "PRODUCAO" Then
'PRODUÇÃO
pastaOrigem = "C:\KAWASAKI\FTP\SUPPORTE-UBERLANDIA\INBOUND\CONFREC\"
pastaDestino = "C:\KAWASAKI\FTP\SUPPORTE-UBERLANDIA\INBOUND\CONFREC\Lidos\"
Else
'TESTE
pastaOrigem = "C:\temp\Confrec\"
pastaDestino = "C:\temp\Confrec\Lidos\"
End If
'Busca arquivos .csv na Pasta de Origem
Dim dirCsv As String() = Directory.GetFiles(pastaOrigem, "*.csv")
Try
For Each csvFile In dirCsv
'Lê o conteúdo de cada arquivo
Dim arqCsv As String = File.ReadAllText(csvFile)
For Each linha As String In arqCsv.Split(vbCrLf)
'Verifica se não está vazio
If Not String.IsNullOrEmpty(linha) Then
'Delimitador de separação usado (;)
For Each coluna As String In linha.Split(";")
Next
End If
Next
Next
Catch ex As Exception
End Try
End Function
Eu verifiquei a informação que retorna e a cada vez que passa pelo
For Each coluna As String In linha.Split(";")
Next
ele retorna a informação certa, porém não consegui inserir no banco. Como posso fazer para que cada coluna do CSV entre na coluna correta do Banco ?