GÉNÉRATION D'UN XML À PARTIR D'UNE BDD ACCESS

'Connexion à la bdd access
        Dim DBobjConn As OleDbConnection
        DBobjConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Request.MapPath("~/App_Data/votredb.mdb"))
        DBobjConn.Open()

        Dim MonDS As New DataSet
        Dim MaCommande As New OleDbCommand
        Dim monDataAdapter As New OleDbDataAdapter

        MonDS.Clear()

'Requete SQL qui va chercher les données dans une table
        Dim selectSQL As String = "SELECT * FROM votre_table"

        MaCommande = New OleDbCommand(selectSQL, DBobjConn)

        monDataAdapter.SelectCommand = MaCommande

'Nom de votre noeud root de votre fichier XML
        MonDS.DataSetName = "Donnees"

        monDataAdapter.Fill(MonDS, "votre_table")

        DBobjConn.Close()

'Ecriture dans le fichier XML
        MonDS.WriteXml(Server.MapPath("~/monxml.xml"))