[VB 6] modificare file xml

[xonica]

Ho questo file xml:

'file.xml'

<?xml version="1.0" encoding="iso-8859-1"?>
<Modifiche>
  <Query ID="1"> ... </Query> 
</Modifiche>

Come si fa ad inserire nuovi dati...

<?xml version="1.0" encoding="iso-8859-1"?>
<Modifiche>
  <Query ID="1"> ... </Query> 
  <Query ID="2"> ... </Query> 
  <Query ID="3"> ... </Query> 
</Modifiche>

che codice si scrive... non riesco a capire????

chi lo sa (NON SIETE IN MOLTI) mi dia al più presto una risposta xke è di una urgenza che neanche vi immaginate!!!

[xonica]

Originariamente inviato da xonica
Ho questo file xml:

'file.xml'

<?xml version="1.0" encoding="iso-8859-1"?>
<Modifiche>
  <Query ID="1"> ... </Query> 
</Modifiche>

Come si fa ad inserire nuovi dati...

<?xml version="1.0" encoding="iso-8859-1"?>
<Modifiche>
  <Query ID="1"> ... </Query> 
  <Query ID="2"> ... </Query> 
  <Query ID="3"> ... </Query> 
</Modifiche>

che codice si scrive... non riesco a capire????

chi lo sa (NON SIETE IN MOLTI) mi dia al più presto una risposta xke è di una urgenza che neanche vi immaginate!!!

URGENZA ASSOLUTA

[tas]

Prova ad usare la libreria "Microsoft XML" che dovresti avere disponibile nella finestra dei riferimenti (menu Progetto/Riferimenti). Hai fatto una ricerca sul forum? Ricordo altri post simili al tuo, ciao

[xonica]

Originariamente inviato da tas
Prova ad usare la libreria "Microsoft XML" che dovresti avere disponibile nella finestra dei riferimenti (menu Progetto/Riferimenti). Hai fatto una ricerca sul forum? Ricordo altri post simili al tuo, ciao

Di inserire i dati con la libreria li so inserire, il problema sorge quando ho un file esistente e ci devo aggiungere dentro altri campi....

[tas]

Una cosa tipo questa?

Dim dd As New DOMDocument
Dim root As IXMLDOMElement
Dim nd As IXMLDOMNode
Dim at As IXMLDOMAttribute

'apre il file
dd.Load "c:\test.xml"

Set root = dd.documentElement

'crea elemento query e attributo id
Set nd = dd.createElement("query")
Set at = dd.createAttribute("id")
at.Value = "2"
nd.Attributes.setNamedItem at
nd.Text = "testo query"

'aggiunge elemento
root.appendChild nd

'salva il tutto
dd.Save "c:\test.xml"

[xonica]

:metallica