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.

Preguntas similare

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.

Respuesta Responder a este mensaje
#2 Javier Muñoz
23/11/2006 - 21:09 | Informe spam
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.





Respuesta Responder a este mensaje
#3 Yonaides
23/11/2006 - 21:35 | Informe spam
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.








Respuesta Responder a este mensaje
#4 Javier Muñoz
23/11/2006 - 23:14 | Informe spam
Por lo mismo, la idea es que sea automatizado.. son varios txt que tengo que
convertir en forma periodica.

"Yonaides" escribió en el mensaje de noticias
news:
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.












email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida