Convertir Texto a Access

Hola, tengo el siguiente problema, tengo que convertir una TXT que tiene
datos de una base de datos, separadas por tabulacion, a access, estoy
usando el siguiente codigo.

Dim cnn As New OleDb.OleDbConnection
Dim cmd As New OleDb.OleDbCommand
Dim SQL As String
cnn.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;" & _
"Data Source=D:\basedemo.mdb;"
' Abrimos la base de datos de Access
cnn.Open()
' Construimos la consulta SQL
SQL = "SELECT * INTO [Mi_Tabla1] FROM [demostracion.txt] IN
''[TEXT;DATABASE=D:\]"

' Importamos los datos
With cmd
.Connection = cnn
.CommandText = SQL
.ExecuteNonQuery()
End With

' Cerramos la conexión
cnn.Close()

que crea un solo campo.. y cada linea del txt lo toma como 1 registro.
Desde ya, muchas gracias por su ayuda.

Por que no pruebas importar los datos del TXT
a Access

Att Yonaides (Estudiante de Ing. en Sistemas)
Salu2

"Javier Muñoz" escribió en el mensaje
news:

Hola, tengo el siguiente problema, tengo que convertir una TXT que tiene
datos de una base de datos, separadas por tabulacion, a access, estoy
usando el siguiente codigo.

Dim cnn As New OleDb.OleDbConnection
Dim cmd As New OleDb.OleDbCommand
Dim SQL As String
cnn.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;" & _
"Data Source=D:\basedemo.mdb;"
' Abrimos la base de datos de Access
cnn.Open()
' Construimos la consulta SQL
SQL = "SELECT * INTO [Mi_Tabla1] FROM [demostracion.txt] IN
''[TEXT;DATABASE=D:\]"

' Importamos los datos
With cmd
.Connection = cnn
.CommandText = SQL
.ExecuteNonQuery()
End With

' Cerramos la conexión
cnn.Close()

que crea un solo campo.. y cada linea del txt lo toma como 1 registro.
Desde ya, muchas gracias por su ayuda.

Eso es lo que hace el codigo... toma el TXT y lo envia a Access...
El problema es que tiene que hacerlo asi... no puedo hacerlo en forma
manual.

"Yonaides" escribió en el mensaje de noticias
news:upR$

Por que no pruebas importar los datos del TXT
a Access

Att Yonaides (Estudiante de Ing. en Sistemas)
Salu2

"Javier Muñoz" escribió en el mensaje
news:

Hola, tengo el siguiente problema, tengo que convertir una TXT que tiene
datos de una base de datos, separadas por tabulacion, a access, estoy
usando el siguiente codigo.

Dim cnn As New OleDb.OleDbConnection
Dim cmd As New OleDb.OleDbCommand
Dim SQL As String
cnn.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;" & _
"Data Source=D:\basedemo.mdb;"
' Abrimos la base de datos de Access
cnn.Open()
' Construimos la consulta SQL
SQL = "SELECT * INTO [Mi_Tabla1] FROM [demostracion.txt] IN
''[TEXT;DATABASE=D:\]"

' Importamos los datos
With cmd
.Connection = cnn
.CommandText = SQL
.ExecuteNonQuery()
End With

' Cerramos la conexión
cnn.Close()

que crea un solo campo.. y cada linea del txt lo toma como 1 registro.
Desde ya, muchas gracias por su ayuda.

Yo me refiero a importarlo desde access No con tu codigo
claro si access lo permite.


"Javier Muñoz" escribió en el mensaje
news:

Eso es lo que hace el codigo... toma el TXT y lo envia a Access...
El problema es que tiene que hacerlo asi... no puedo hacerlo en forma
manual.

"Yonaides" escribió en el mensaje de noticias
news:upR$

Por que no pruebas importar los datos del TXT
a Access

Att Yonaides (Estudiante de Ing. en Sistemas)
Salu2

"Javier Muñoz" escribió en el mensaje
news:

Hola, tengo el siguiente problema, tengo que convertir una TXT que
tiene datos de una base de datos, separadas por tabulacion, a access,
estoy usando el siguiente codigo.

Dim cnn As New OleDb.OleDbConnection
Dim cmd As New OleDb.OleDbCommand
Dim SQL As String
cnn.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;" & _
"Data Source=D:\basedemo.mdb;"
' Abrimos la base de datos de Access
cnn.Open()
' Construimos la consulta SQL
SQL = "SELECT * INTO [Mi_Tabla1] FROM [demostracion.txt] IN
''[TEXT;DATABASE=D:\]"

' Importamos los datos
With cmd
.Connection = cnn
.CommandText = SQL
.ExecuteNonQuery()
End With

' Cerramos la conexión
cnn.Close()

que crea un solo campo.. y cada linea del txt lo toma como 1 registro.
Desde ya, muchas gracias por su ayuda.