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.
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


0