Génération d'XML avec ASP.net via une BDD

Bonjour,
Ce n'est pas très compliqué :
'1 . tu remplis un dataset avec les tables de ta base :
            MonDS.Clear()

            MaConnexion.Open()

            Dim selectSQL AsString = "SELECT * FROM ma table WHERE etc etc..."

            MaCommande = New OleDbCommand(selectSQL, MaConnexion)

            mon DataAdapter.SelectCommand = MaCommande

            monDataAdapter.Fill(MonDS, "Ma_table")
-------
copier toutes les autres tables
------
         MaConnexion.Close()

 ' 2.  tu recopies le Dataset dans un fichier Xml (avec ecrasement éventuel)
         MonDS.WriteXml(Server.MapPath("~/mon_chemin_relatif/MonFichier.xml"))

et là j'espère qu'il aura la forme souhaitée, mais il y a des surcharges !
@+Gilles

MonDS voulait dire  MonDataset. oui, c'était pas bien clair
tu dois écrire
Dim MonDS As New Dataset
monDataAdapter.Fill(MonDS, "produits") ne peut pas marcher si MonDS est une connexion.
une surcharge est , si tu veux , une variante d"une fonction ou d'un méthde avec des arguments différents selon la situation.
ex :writeXml(fileName as string) et writeXml(fileName as string,writehierarchy as boolean)
Consulte l'aide de visual studio, on ne peut pas tout savoir !
@+G

Nickel, merci !

Voici mon code complet pour info :

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim DBobjConn As OleDbConnection
        DBobjConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Request.MapPath("~/App_Data/products.mdb"))
        DBobjConn.Open()

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

        MonDS.Clear()

        Dim selectSQL As String = "SELECT * FROM product"

        MaCommande = New OleDbCommand(selectSQL, DBobjConn)

        monDataAdapter.SelectCommand = MaCommande

        MonDS.DataSetName = "products"

        monDataAdapter.Fill(MonDS, "product")

        DBobjConn.Close()
        MonDS.WriteXml(Server.MapPath("~/products.xml"))
    End Sub

Bonne journée

A++

Fabien S. (Alias: fabienfs)