ASP.NET - Leer fichero TXT y guardar en tabla

 
Vista:

Leer fichero TXT y guardar en tabla

Publicado por Zunea (18 intervenciones) el 09/05/2013 14:50:59
Hola, la verdad empiezo con este tema de asp.net vb y no he podido tener exito con lo siguiente:

Quiero leer desde el archivo ClientesHFM.txt unos datos separados por , y otros con doble "". Estuve mirando en algunos foros y trate de usar el siguiente código, pero me sale un erro sobre la definición de campos...

Lo que pretendo es seleccionar algunos datos separados por coma y guardarlos en una tabla...

Uso Visual Studio 2010, Asp.net con VB...

Gracias por la ayuda....

______________________________________________________________________________________________________
Dim archivo As String = Server.MapPath("~/Files/ClientesHFM.txt")
'Array donde se almacenara los campos de la fila separados
Dim campos As String()
'Declaramos el lector
Dim reader As StreamReader

' Dim CAMPO1, CAMPO2, CAMPO3, CAMPO4 As String

Dim cnp1 As New SqlConnection
Dim queryp1 As New SqlCommand

cnp1.ConnectionString = SDSourceClient.ConnectionString

cnp1.Open()
queryp1.CommandType = Data.CommandType.Text
' queryp1.CommandText = "Select * from Clientes "
queryp1.Connection = cnp1

Try
'Leemos su contenido
reader = File.OpenText(archivo)

'Leemos linea por linea
While reader.Peek() <> -1

'Separamos la linea por el ;
campos = reader.ReadLine.Split(";")

'Aqui haces el insert a la tabla de tu BD...
queryp1.CommandText = "INSERT INTO CLIENTES (Cod, Nombre, Nit, Dir) VALUES(campos(0), campos(2), campos(0), campos(4))"

queryp1.ExecuteNonQuery()

End While

Dim n As Integer = queryp1.ExecuteNonQuery()

LblError.Text = ("Nº de registros afectados: " & CStr(n))

reader.Close()

Catch ex As Exception

MsgBox(ex.Message)

End Try

cnp1.Close()
______________________________________________________________________________________________
Haaaa quisiera saber como puedo ejecutar el asistente para que el usuario examine y pueda seleccionar el archivo .Txt a leer...

Gracias por la ayuda, pues ya me estoy voviendo loco.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder