EOF no detecta fin de archivo
Publicado por Rubén González (7 intervenciones) el 27/06/2016 15:36:32
Buen día.
Tengo que leer los datos de un archivo y grabarlos en una tabla de una base de datos, pero el EOF no me detecta el fin del archivo que contiene los datos a subir, y por ende me da error y se detiene.
A continuación el código simplificado para mostrar el error:
Se cambió el contenido real para mostrar en una etiqueta los datos leídos. Con todo y de esta manera aún da el error que coloqué en mi código, más: "La entrada de datos ha sobrepasado el final del archivo".
He colocado el ciclo de diferentes maneras y sigue dando el error.
Agradezco la ayuda que me puedan brindar.
Rubén Darío.
Tengo que leer los datos de un archivo y grabarlos en una tabla de una base de datos, pero el EOF no me detecta el fin del archivo que contiene los datos a subir, y por ende me da error y se detiene.
A continuación el código simplificado para mostrar el error:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub cmdPrecios_Click()
On Error GoTo mensaje
Open txtArchivo For Input As #1
Input #1, VKORG, VTWEG, VKBUR, PLTYP, matnr, DATAB, DATBI, KBETR, KPEIN, KMEIN
While Not EOF(1)
lblProducto = matnr Input #1, VKORG, VTWEG, VKBUR, PLTYP, matnr, DATAB, DATBI, KBETR, KPEIN, KMEIN
Wend
Close #1
mensaje:MsgBox "No se actualizaran los precios. " & vbCrLf & Err.Description, vbInformation + vbOKOnly, "Mensaje"
End Sub
Se cambió el contenido real para mostrar en una etiqueta los datos leídos. Con todo y de esta manera aún da el error que coloqué en mi código, más: "La entrada de datos ha sobrepasado el final del archivo".
He colocado el ciclo de diferentes maneras y sigue dando el error.
Agradezco la ayuda que me puedan brindar.
Rubén Darío.
Valora esta pregunta
0
