Leer archivo de texto [SOLUCIONADO]

[Korku]

Hola freegirl,

Bueno, yo normalmente lo que hago para importar datos de un fichero txt a una tabla es usar el objeto StreamReader ... te doy un ejemplo:

Código:

        Dim path As String = "C:\prueba.txt"
        Dim sr As StreamReader = File.OpenText(path)

        Dim cadenaSQL As SqlCeCommand = conn.CreateCommand
        Dim linea As String

        Do
            Try

                linea = sr.ReadLine()

                If Not linea = "" Or Not linea = Nothing Then

                    cadenaSQL.CommandText = "INSERT INTO prueba(p_codigo,p_nombre) " & _
                    "VALUES " & _
                    "('" & Trim(Mid(linea, 1, 4)) & "'," & _
                    "" & Replace(Trim(Mid(linea, 5, 40)), ",", ".") & "" & _
                    ")"

                    cadenaSQL.ExecuteNonQuery()

                End If

            Catch ex As SqlCeException
                MsgBox(ex.Message)
                Exit Sub
            End Try

        Loop Until linea Is Nothing

        sr.Close()
        cadenaSQL.Dispose()

        sr = Nothing
        cadenaSQL = Nothing

Espero que te sirva de algo,

Saludos