Insertar datos en tabla desde ficheto TXT

EDN Admin

Well-known member
Joined
Aug 7, 2010
Messages
12,794
Location
In the Machine
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.

View the full article
 

Similar threads

A
Replies
0
Views
91
AzurePanda7108
A
M
Replies
0
Views
339
Marifer AtzirySangabriel Perez
M
Back
Top