Vota por nosotros en el ranking web que participamos

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Octubre 12, 2008, 09:01:44
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: importar XML a Access 2003 !!!! 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: importar XML a Access 2003 !!!!  (Leído 126 veces)
c_cydejko
Recien Llegado
*
Desconectado Desconectado

Mensajes: 3


Ver Perfil
« en: Junio 03, 2008, 10:16:34 »

Hola amigos alguien me pude ayudar de como puedo importar un archivo xml a access, ya lo intente con la opcion importar del mismo access pero no me muestra los registros del archivo xml que quiero importar, asi si alguien me puede ayudar se los agradeceria mucho amigos. bueno saludos y espero alguien responda a mi problema, no tengo drama en enviarles el archivo al que me quiera dar una mano ok.

bueno a ver si me ayudan amigo porque realmente no se que hacer.

gracias.
En línea
Argo$
Miembro
*****
Desconectado Desconectado

Mensajes: 64



Ver Perfil Email
« Respuesta #1 en: Junio 09, 2008, 02:40:48 »

Con .net es muy facil te creas un dataset y lo cargas con la informacion del xml dataset.readxml(ruta del archivo) y despues  vuelcas el dataset sobre la base de datos access.

Ejemplo.

El codigo es VB .net

Leo el dataset


dim ds as new dataset
ds.ReadXml("ruta del archivo xml")
        Try
            'Crea la conección a la base de Access
            Dim Con As OleDbConnection = New OleDbConnection("Data Source=ruta del access;" & _
                                       "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                       "Mode=Share Deny None;User ID=Admin")


            'Query a la tabla que se desea manejar
            Dim Query As String = "select * from nombre_de_la_tabla_access"

            'Crea el Adaptador a la tabla seleccionada
            Dim Adap As OleDbDataAdapter = New OleDbDataAdapter(Query, Con)

            'Crea automaticamente los comandos (Select, update, insert, delete)
            'Si esta linea no estuviera, tendriamos que crear los comandos manualmente
            Dim Cmd As OleDbCommandBuilder = New OleDbCommandBuilder(Adap)
            'Si ya existe la tabla actualiza los datos que tenía
            If Not ds.Tables("nombre_de_la_tabla_dataset") Is Nothing Then
                'Actualiza los datos en la base de datos
                Adap.Update(ds, "nombre_tabla_access"")
                'Borra la información de la tabla para no duplicar los datos
                'Esto no se verá reflejado en la Base de Datos
                'NOTA: si hay relaciones referenciales, hay que actualizar
             End If
          Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Con este código lo haces, yo lo utilizo en una aplicación que tengo y funciona sin problemas.

Saludos
En línea

Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: importar XML a Access 2003 !!!! « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.6 | SMF © 2006-2007, Simple Machines LLC