Ayuda con insertar Archivo TXT

"Rodrigo" escribió:

Mostrar la cita

pero de los 400 registros que inserte solo 12 registros se
insertan hasta la mitad, es decir si el registro tiene 100
caracteres se estan insertando 30 o cuarenta caracteres,
este problema no lo he podido solucionar y ya revise el
archivo TXT y todo esta OK.

Hola, Rodrigo:

El código es correcto y no tiene que darte ningún problema.

¿Qué delimitador de campos tiene el archivo de texto? ¿Comas, puntos y
comas, ...? ¿Estas utilizando algún archivo de información de esquema
«Schema.ini»?

Si no tienes inconveniente alguno, mejor que me mandes el archivo de texto a
mi correo personal para que le eche un vistazo.

Un saludo.

Enrique Martínez
[MS MVP - VB]

"Manuel Romero" escribió:

Mostrar la cita

La pregunta obvia, de cuantos caracteres es el largo del campo y que tipo

de
Mostrar la cita

campo es?

Hola, Manuel:

Llevas mucha razón: la pregunta es demasiado obvia. :-)

Un saludo.

Enrique Martínez
[MS MVP - VB]

La pregunta obvia, de cuantos caracteres es el largo del campo y que tipo de
campo es?

"Rodrigo" escribió en el mensaje
news:4f3701c3416a$b2428ab0$
Aplique el siguiente codigo para insertar un archivo TXT
en una tabla de Access 2000 y todo me resulta muy bien,
pero de los 400 registros que inserte solo 12 registros se
insertan hasta la mitad, es decir si el registro tiene 100
caracteres se estan insertando 30 o cuarenta caracteres,
este problema no lo he podido solucionar y ya revise el
archivo TXT y todo esta OK.

Adjunto el codigo que he usado, Gracias.

Dim cnn As ADODB.Connection
Dim sConnect As String, sSQL As String

'INSERTA ARCH. TXT CLIENTES EN TABLA ACCESS Cliente_ccc100
sConnect = "[TEXT; HDR=yes; DATABASE=I:\Sistema\Txt].
[Clientes#txt]"
'Construimos la consulta SQL
sSQL = "INSERT INTO Cliente_Ccc100 SELECT * FROM " &
sConnect
' Conexión con tu base de datos Accesss
Set cnn = New ADODB.Connection
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0;"
.ConnectionString = "Data
Source=I:\Sistema\Txt\Alpha.mdb"
.Open
'Añadimos los registros
.Execute sSQL, , adCmdText
'Cerramos la conexión
.Close
End With

Enrique, las preguntas obvias siempre deben hacerse.

Alguna vez alguien me llamo porque la impresora no funcionaba y despues de
gastarle un rato, me di cuenta que estaba desconectada.

"Softjaen" @yahoo.es> escribió en el mensaje
news:
Mostrar la cita

"Manuel Romero" escribió:

> La pregunta obvia, de cuantos caracteres es el largo del campo y que

tipo
Mostrar la cita

de
> campo es?
>

Hola, Manuel:

Llevas mucha razón: la pregunta es demasiado obvia. :-)

Un saludo.

Enrique Martínez
[MS MVP - VB]

el delimitador es un ; y los caracteres no estan dentro de
comillas, es decir el delimitador esta entre numericos y
alphanumericos, ojala me entienas.
lo que descubri es que hay caracteres con comillas y esos
son los registros que tienen problemas. La cosa es que no
debo quitar las comillas, mi pregunta es que puedo hacer
en este caso para que no se maree.
Te envie los registros a tu direccio e-mail.
Muchas Gracias.

Mostrar la cita

"Rodrigo" escribió:

Mostrar la cita

pero de los 400 registros que inserte solo 12 registros

se
Mostrar la cita

Mostrar la cita

insertan hasta la mitad, es decir si el registro tiene

100
Mostrar la cita

Mostrar la cita

caracteres se estan insertando 30 o cuarenta caracteres,
este problema no lo he podido solucionar y ya revise el
archivo TXT y todo esta OK.

Hola, Rodrigo:

El código es correcto y no tiene que darte ningún

problema.
Mostrar la cita

¿Qué delimitador de campos tiene el archivo de texto?

¿Comas, puntos y
Mostrar la cita

comas, ...? ¿Estas utilizando algún archivo de

información de esquema
Mostrar la cita

«Schema.ini»?

Si no tienes inconveniente alguno, mejor que me mandes el

archivo de texto a
Mostrar la cita

mi correo personal para que le eche un vistazo.

Un saludo.

Enrique Martínez
[MS MVP - VB]


.