[Resolvido] Importar Arquivo Texto - Access

[Faccruz 0]

Boa tarde,

Preciso ler um arquivo texto com o delimitador ; (ponto e virgula) e jogar em uma base access, mas não sei como começar. Consigo fazer a leitura do arquivo normalmente. Segue abaixo como faço a leitura do arquivo.

 

If MsgBox("Você selecionou o ITEM 2 - UPLOAD, no Coletor de dados?", MsgBoxStyle.Exclamation + MsgBoxStyle.YesNo, "Atenção") = MsgBoxResult.Yes Then
            Dim iQtd As Integer
            Dim fluxoTexto As IO.StreamReader
            Dim linhaTexto As String

            ColetorDados.Port = 3 'Porta virtual USB
            ColetorDados.BaudRate = 115200 'Velocidade do recebimento, é a maior
            ColetorDados.Timeout = 5 'Tempo de espera
            ColetorDados.InitConnection(1) 'Tipo de conexão - Cradle/IR

            iQtd = ColetorDados.ReadFile(edtRecebe.Text) 'Verifica a memória do Coletor e conta os registros

            If iQtd > 0 Then
                'Lendo arquivo
                If IO.File.Exists(edtRecebe.Text) Then
                    fluxoTexto = New IO.StreamReader(edtRecebe.Text)
                    linhaTexto = fluxoTexto.ReadLine

                    While linhaTexto <> Nothing
                        TextBox1.Text += linhaTexto & vbCrLf
                        linhaTexto = fluxoTexto.ReadLine
                    End While
                    fluxoTexto.Close()
                Else
                    MsgBox("Arquivo não encontrado", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Erro")
                End If

                Dim msg As String = "Total de registros recebidos: " & iQtd
                MsgBox(msg, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Recepção de arquivo finalizada")
            Else
                MsgBox("Erro ao ler o arquivo no Coletor de Dados", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Erro")
                ColetorDados.CloseConnection()
            End If
        End If

Estou pegando o arquivo TXT de um Coletor de Dados e gravando na maquina para, depois, fazer a importação na base.

 

Espero ter sido claro na dúvida.

[quintelab 91]

Pesquise sobre o split para separa os itens por ponto e virgula.

 

Abraços...

[nexus 0]

Como disse o colega acima, você poder usar o metodo Split, para separar os dados delimitados por ;..

 

exemplo:

dim str as string
dim dados() as string

str = "100;Produto de Teste;10.99;11.99;12.99;78910111233123"
dados = str.Split(";")

'dados(0) = 100
'dados(1) = Produto de Teste
'dados(2) = 10.99
'dados(3) = 11.99
'dados(4) = 12.99
'dados(5) = 78910111233123

bom, desta maneira fica tudo separadinho, ae eh soh gravar na sua tabela do banco de dados access..

 

sem segredos.

 

boa sorte

[Faccruz 0]

Muito Obrigado!

 

Funcionou!!