Forums Últimos mensajes - Powered by IBM
 

Convertir Texto a Access

23/11/2006 - 20:58 por Javier Muñoz | Informe spam
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.
 

Leer las respuestas

#1 Yonaides
23/11/2006 - 21:05 | Informe spam
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.

Preguntas similares