[ADO.NET] Charger un xml dans la base

Bonjour,

Je creer un fichier XML representant une de mes tables :

Code:

---

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")

---

J'aimerai savoir comment le réinsérer dans une base (différente mais au schéma identique) en ajout (ma base contient déjà des éléments que je ne veux pas écraser).


[EDIT] Je récupére toutes les infos au bon format en parcourant mon xml et en l'injectant dans ma base via une requete paramêtrée. SAUF l'attribut image qui est bisarement converti

Merci d'avance

Salut Atar,

Moi j'ai réussi à extraire des données d'un XML (ou une sorte de XML), mais pas avec un parseur.

J'ai juste créé une fonction (enfin, elle n"est pas tout à fait de moi, je l'ai juste remanié à ma sauce), et c'est très simple.

Je peux te montrer ma fonction :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Public Function PrendreEntre(ByRef Source As String, ByVal PartieDeb As String, ByVal PartieFin As String) Dim PosDeb As Integer Dim PosFin As Integer Dim LongueurEntre As Integer Dim PartieExtraite As String = 0   'On enlève les " en trop de PartieDeb et PartieFin PartieDeb = PartieDeb.Substring(0, Len(PartieDeb)) PartieFin = PartieFin.Substring(0, Len(PartieFin))   PosDeb = Source.IndexOf(PartieDeb) PosFin = Source.IndexOf(PartieFin) LongueurEntre = PosFin - PosDeb If PosDeb > 0 Then If LongueurEntre > 0 Then PartieExtraite = Source.Substring(PosDeb + Len(PartieDeb), LongueurEntre - Len(PartieDeb)) End If End If   Return PartieExtraite End Function

---

Ensuite, tu l'appeles. Moi je l'ai appelé dans une boucle qui lit ligne par ligne mon fichier. Extrait de mon code qui l'appelle...

Code:

---

1 2 3 4 5

While Not EOF(1) strLine = LineInput(1)   strGw = PrendreEntre(strLine, "<gateway name=""", """ org=") End While

---

Tu mets des doubles guillemets pour le caractère ", pour différencier de celui ouvrant et celui fermant.

Sinon, si je puis me permettre, comme cela me semble dans le même domaine... Est-ce que tu saurais m'aider par hasard pour exécuter une simple requête, s'il te plaît ? J'ai réussi les requêtes d'insertion pour insérer dans ma base. Mais dès que je veux faire une requête qui affiche les données de telle table sur un clic de bouton, je ne sais pas du tout comment m'y prendre.
J'ai essayé avec ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Dim cmSQL As SqlCommand Dim strSQL = ("Select * from utilisateur") cmSQL = New SqlCommand(strSQL, cnSQL) Dim DataAdapter As New SqlDataAdapter(cmSQL) Dim CmBuilder = New SqlCommandBuilder(DataAdapter) Dim DataSet As New DataSet() Dim DataTable As New DataTable Dim formdeux As New Form2() Dim DataGrid2 As New DataGridView     cnSQL.Open() cmSQL.Connection() = cnSQL   DataAdapter.Fill(DataSet, "utilisateur") DataTable = DataSet.Tables("utilisateur") formdeux.DataGrid2.DataSource = DataTable formdeux.Show()   cnSQL.Close()   MsgBox("Opération effectuée", MsgBoxStyle.Information, "ok")

---

Mais il doit manquer plein de trucs, car pas moyen d'avoir le résultat.

Voilà, j'espère avoir réussi à t'aider, et que tu aies compris mes explications... Merci également si tu me dépannes !

Harry Potter

Ah par contre je remarque que ça marche en définissant directement la table UTILISATEUR dans la propriété DataSource du DataGrid.

C'est peut-être cette partie de code qui ne marche pas alors :

Code:

---

1 2	DataTable = DataSet.Tables("utilisateur") formdeux.DataGrid2.DataSource = DataTable

---

Merci Harry mais sa m'aide pas vraiment.
Je prend mon Dataset puis je le passe en XML

J'arrive à récupérer toutes les valeurs et les réinjecter sauf l'image que j'arrive pas à récupérer, impossible de reconstruire une image avec sa.