1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
'Création de la chaîne de connexion
Dim connectString As String = "Blablablablablabalbal"
'Création de la connexion
Dim connection As SqlClient.SqlConnection = New SqlClient.SqlConnection(connectString)
'Création du SqlDataAdapter
Dim da As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter("Select * from Customers", connection)
'Création d'un DataSet
Dim ds As DataSet = New DataSet
'Remplissage du DataSet avec le SqlDataAdapter
da.Fill(ds, "Customers")
'Ecriture du fichier XML au moyen de la méthode WriteXml
ds.WriteXml("D:\TestXml.xml") |
Partager