Discussion :

[bladack01]

Bonjour,
Tout d'abord voila mon fichier xml

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
<root>
      <base>
		<id>bla</id> 
  		<dsn>bla</dsn> 
  		<basetype>8</basetype> 
  		<server>bla</server> 
  		<basename>bla</basename> 
  		<client>bla</client> 
  		<user>bla</user>
  		<password>0D2F2CED1F</password> 
  		<configauto>False</configauto> 
		<cg18ldapdomain>bla</cg18ldapdomain>
		<cg18ldapserver>bla</cg18ldapserver>
		<ldapdomain>bla</ldapdomain>
		<ldapserver>bla</ldapserver>
		           <site>
			<name />
			<uncdocuments>bla</uncdocuments>
			<uncmodeles>bla</uncmodeles>
			<authentificationtype>389</authentificationtype>
		           </site>
  	</base>
</root>

Je souhaite pouvoir ajouté depuis un formulaire des sites dans l'élément parent <base>
Une base peux avoir plusieur site qu'on peux rajouté dans le temps. Je comprend pas comment faire pour dire a mon code d'insert a tel endroit regardé ce que j'ai essayé de faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 Sub ajout_Xml_site(ByVal fichier As String, ByVal op As Site)
 
        Dim test As XElement = XElement.Load(fichier)
        Dim ajout_site = New XElement("Site", New XElement("name", op.Name), New XElement("uncdocuments", op.UncDocuments), New XElement("uncmodeles", op.UncModeles), New XElement("urldocuments", op.UrlDocuments), New XElement("authentificationtype", op.AuthentificationType), New XElement("indexserver", op.IndexServer)) ', New XElement("serveurfax", New XAttribute("name", op.NameFax))))
        test.AddBeforeSelf(<base>ajout_site</base>)
 
end sub

Si quelqu'un pourrai m'aidé please
Merci

[bladack01]

Bon personne a posté de réponse mais je après quelque recherche j'ai trouvé donc je me permet de la posté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
 Dim DocXml As XElement = XElement.Load(fichier)
        Dim noeud As XElement = DocXml...<ldapserver>(0) 'enfaite la on choisi en quelque sorte le noeud sur lequel on se place
        Dim ajoutSite = New XElement("Site", _
                                      New XElement("name", siteAcropolis.NomSite), _
                                      New XElement("uncdocuments", siteAcropolis.UncDocuments), _
                                      New XElement("uncmodeles", siteAcropolis.UncModeles), _
                                      New XElement("urldocuments", siteAcropolis.UrlDocuments), _
                                      New XElement("authentificationtype", siteAcropolis.typeAuthentification), _
                                      New XElement("indexserver", siteAcropolis.IndexServer))
 
noeud.AddAfterSelf(ajoutSite)' le addafterself permet d'inséré les nouveau après le noeud sélectionner plus haut ^^

Voila j'espere que sa pourra aidé certaine persone