Imprimir página | Cerrar ventana

Importar XML a Access

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84771
Fecha de impresión: 27/Marzo/2026 a las 00:23


Tema: Importar XML a Access
Publicado por: orafo1
Asunto: Importar XML a Access
Fecha de publicación: 23/Octubre/2019 a las 16:12
Buenos dias, tengo un apliocación desarrollada en Access con sus modulo y respectivos formularios, por favor me pueden colaborar con la forma de importar XML a accesss atravez del codigo fuente, muchas gracias.


-------------
Siempre algo nuevo por aprender


Respuestas:
Publicado por: emiliove
Fecha de publicación: 23/Octubre/2019 a las 18:14
Hola

Ya lo intentaste con el asistente.

Saludos.

Publicado por: Mihura
Fecha de publicación: 23/Octubre/2019 a las 18:37
Mírate este enlace:

http://www.accessaplicaciones.com/ejemplos.html#m12" rel="nofollow - Leer XML con DOM


-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es

Publicado por: Maverick2019
Fecha de publicación: 25/Octubre/2019 a las 11:35
Hola
Mira ésto:  https://analystcave.com/vba-xml-working-xml-files/" rel="nofollow - https://analystcave.com/vba-xml-working-xml-files/

Salu2,

Publicado por: orafo1
Fecha de publicación: 26/Octubre/2019 a las 11:46
Buenos dias asi he leido el xml:

VaRespuesta = "C:\FE\Resultados\" & TablaAux4![FacturaNo] & ".XML"
       
        'para generar el resultado
        strRuta = VaRespuesta
        LnPos1 = 0
        LnPos2 = 0
        LcCufe = 0
       
        '"con esto abres el archovo"
        Open strRuta For Input As #1

        '"y con esto lees linea por linea"
        Line Input #1, strLinea
        '"y finalmente con esto cierras el archivo"
        'Close #1

        '"y esto es para que leas el archivo de principio a fin, linea por linea"

        Do While Not EOF(1)
            Line Input #1, strLinea
            '"aqui podras extraer los datos de la linea leida"
            LnPos1 = InStr(1, strLinea, "<b:ZipKey>", vbBinaryCompare)
           
            If LnPos1 <> 0 Then
                LnPos2 = InStr(1, strLinea, "</b:ZipKey>")
                LcCufe = Mid$(strLinea, LnPos1 + 10, LnPos2 - LnPos1 - 10)
            End If
        Loop

        Close #1
 

gracias a todos por sus aportes podemos cerrar el hilo


-------------
Siempre algo nuevo por aprender


Imprimir página | Cerrar ventana