Hola a todos alguien podria ayudarme. Tengo un problema con mi aplicación. Lo q hace esta, es leer de un archivo de texto el contenido linea por linea y lo almaceno en una lista, despues de esto separo cada linea en substring's para despues enviar esta informacion a una tabla de sql. El problema es q en mi maquina si lo realiza muy bien, pero cunado lo implemento en otro equipo me gusrda los datos en la BD de manera incompleta, es decir en algunos casos se come la primera letra de cada registro en los campos. Ya probe con la configuracion regional, pero nada. El codigo es el siguiente:
Dim Lineas As New List(Of String)
Using Archivo As StreamReader = New StreamReader(Ruta_txt.Text)
Dim Linea As String
Me.Cursor = Cursors.WaitCursor
Do
Linea = Archivo.ReadLine()
If Mid(Linea, 2, 1) <> "-" And Mid(Linea, 1, 1) <> "L" And Len(Linea) > 2 Then
Lineas.Add(Mid(Linea, 1, 181))
End If
Loop Until Linea Is Nothing
Lineas.RemoveAt(Lineas.Count - 1)
Archivo.Close()
End Using
For i As Integer = 0 To Lineas.Count - 1
Orden = Lineas(i).Substring(13, 4)
Producto = Lineas(i).Substring(26, 5)
Descripcion = Lineas(i).Substring(44, 50)
Lote = Lineas(i).Substring(98, 5)
Codigo = Lineas(i).Substring(120, 6)
Analisis = Lineas(i).Substring(126, 10)
Cantidad = Lineas(i).Substring(154, 17)
Estatus = Lineas(i).Substring(175, 6)
Cargar()
Next
----y la funcion cargar es esta
Public Sub Cargar()
Conectar()
Dim Insertar As New SqlCommand
With Insertar
.Connection = Conecta
.CommandText = "insert into detalle_ordenLoeff values (" & Orden & ",'" & Producto & "','" & Descripcion & _
"','" & Lote & "','" & Codigo & "','" & Analisis & "'," & Cantidad.ToString & ",'" & Estatus & "','')"
.ExecuteNonQuery()
Conexion.Close()
End With
End Sub
