border
VB 6
 
 
/

Retroceder   VB-MUNDO - Visual Basic, y mucho mas > Programacion > Visual Basic 6.00
Olvidó Password? Registrarse!
Registrarse FAQDonate Miembros Calendario Buscar Temas de Hoy Marcar Foros Como Leídos

El Mejor Hosting .NET Framework 4.0

En VB-MUNDO usamos el increible servicio de SmarterASP

Respuesta
 
LinkBack Herramientas
  #1 (permalink)  
Antiguo 04-04-2005, 22:38:10
Gran Participación en el Foro
 
Registrado: oct 2004
Posts: 172
Créditos: 4.052
miguel_1969 Valoración +2
Predeterminado Cargar datos de un archivo de texto a Access

Hola,

Quisiera saber como puedo cargar datos de distintos archivos texto delimitados por coma a una tabla Access usando código.

Gracias :smt006
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #2 (permalink)  
Antiguo 05-04-2005, 06:25:27
Avatar de Alella
Super Moderator
 
Registrado: mar 2004
Ubicación: BARCELONA - ESPAÑA
Posts: 1.494
Créditos: 30.555
Alella Valoración +2
Predeterminado

Hola, q tal.

Te paso un programa que lee ficheros de texto con delimitadores. En este caso es | pero lo puedes cambiar por la coma. Y también te paso código para poder leer un fichero plano y pasarlo a access. Espero q te sirva.


Open App.Path & "\agenda.txt" For Input As #2
While Not EOF(2)

Line Input #2, agenda
varcampo1 = RTrim(Mid$(agenda, 33, 32)) & " " & RTrim(Mid$(agenda, 1, 32))
varcampo2 = " "
varcampo3 = Mid$(agenda, 65, 15)
varcampo4 = " "
varcampo5 = " "
varcampo6 = " "


cadsql = "INSERT INTO TFNOS (Nombre,Dirección,Teléfono,Notas,Notas1,Emilio) VALUES ('"
cadsql = cadsql & varcampo1 & "',' " & varcampo2 & "',' " & varcampo3 & "',' " & varcampo4 & "',' " & varcampo5 & "',' " & varcampo6 & "')"
cnn.Execute cadsql, , 0

Wend
Close #2
Archivos Adjuntos
Tipo de Archivo: rar leerficherocondelimitadores.rar (215,3 KB, 73 visitas)
__________________
Un saludo.

Alfredo
Barcelona-España
_________________
Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion
Normas del Foro
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #3 (permalink)  
Antiguo 05-04-2005, 08:24:24
Avatar de latortuga
Buena Participación en el Foro
 
Registrado: mar 2005
Posts: 69
Créditos: 1.091
latortuga Valoración +2
Predeterminado

tambien puedes emplear la función split, que te ahorrara el trocear la linea leida del fichero de texto, se le pasa un array, un separador y la cadena y te devuelve la cadena troceada en el array segun el separador indicado, después sólo tienes que hacer un bucle para asignar los campos leido a la consulta SQL que estas construyendo.
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #4 (permalink)  
Antiguo 05-04-2005, 11:47:00
Gran Participación en el Foro
 
Registrado: oct 2004
Posts: 172
Créditos: 4.052
miguel_1969 Valoración +2
Predeterminado

Gracias Alella y latortuga, voy a probar y ver que sale.

Gracias! :smt006
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
Respuesta


Herramientas

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado


Temas Similares
Tema Autor Foro Respuestas Último Mensaje
cargar opciones del menu desde archivo de texto cesar Visual Basic 6.00 6 03-11-2006 15:23:23
datos desde Regedit o archivo texto sagamoal Visual Basic .NET 2 07-09-2005 16:10:17
cargar archivo txt chlsaul Visual Basic 6.00 3 30-05-2005 06:57:49
Como convertir un Archivo de Texto en Archivo Excel Gace Visual Basic 6.00 5 05-05-2005 07:34:50
como puedo convertir un Archivo de Texto a un archivo PDF Gace Visual Basic 6.00 2 22-02-2005 22:15:17


La franja horaria es GMT. Ahora son las 03:45:15.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
vBCredits v1.4 Copyright ©2007 - 2008, PixelFX Studios


right
Inactive Reminders By Icora Web Design