Ayuda con insertar Archivo TXT

03/07/2003 - 15:55 por Rodrigo | Informe spam
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
 

Leer las respuestas

#1 Softjaen
03/07/2003 - 16:11 | Informe spam
"Rodrigo" escribió:

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]

Preguntas similares