1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
Dim ConnSQL As String = "Data Source=" & SelectedServer & ";Initial Catalog=" & SelectedDatabase & ";Persist Security Info=True;User ID=" & Username & ";Password=" & Password & ""
Dim sqlConnect As SqlConnection = New SqlConnection(ConnSQL)
sqlConnect.Open()
' Création du SqlDataAdapter
Dim da As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter("Select * from Clients", sqlConnect)
' Création d'un DataSet
Dim ds As DataSet = New DataSet()
' Remplissage du DataSet avec le SqlDataAdapter
da.Fill(ds)
' Ecriture du fichier XML au moyen de la méthode WriteXml
ds.WriteXml(FolderArchive & FileName & ".xml", XmlWriteMode.IgnoreSchema) |
Partager