XML vers mySQL

pour ce qui est de l'XML tu peu utiliser un objet "Microsoft Xml..."
tiens par exemple un code qui génére un fichier xml...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Dim oXml 'As New MSXML2.DOMDocument
Dim oRac 'Element racine
 Dim oEl ' As MSXML2.IXMLDOMElement ' element
Set oXml = CreateObject("MSXML2.DOMDocument")
 Set oRac = oXml.createElement("Adresses")
 
 Set oEl = oXml.createElement("Contact")
 oEl.setAttribute "Nom", "dubois"
 oEl.setAttribute "Prenom", "Jacques"
 oEl.setAttribute "Main", "jacques.dubois@Dio.fr"
 oRac.appendChild oEl
 Set oEl = oXml.createElement("Contact")
  oEl.setAttribute "Nom", "dupon"
 oEl.setAttribute "Prenom", "Jean"
 oEl.setAttribute "Main", "jean.dupont@Dio.fr"
 oRac.appendChild oEl
 Set oEl = oXml.createElement("Contact")
  oEl.setAttribute "Nom", "Monaco"
 oEl.setAttribute "Prenom", "Albert"
 oEl.setAttribute "Main", "Albert.Monaco@Dio.fr"
 oRac.appendChild oEl
 oXml.appendChild oRac
 oXml.Save "MesAdresses.xml"

un autre exemple qui permet de lire un fichier XML ( celui d'export des MP de ce forum...)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Dim oXml 'As MSXML2.DOMDocument
Dim o 'As IXMLDOMElement
Dim oMess 'As IXMLDOMElement
Dim oFldEnv 'As IXMLDOMElement
Dim st ' as string 
Set oXml = CreateObject("MSXML2.DOMDocument")
oXml.Load ("D:\donnees\bbil\Mes documents\DVP\MPHISTO\messagesprivés-bbil-05-06-2006.xml")
Set oFld = oXml.getElementsByTagName("folder")
For Each o In oFld
 If o.getAttribute("name") = "Éléments envoyés" Then
  Set oFldEnv = o
 End If
Next
If Not (oFldEnv Is Nothing) Then
For Each oMess In oFldEnv.childNodes 'Parcours les messages de la boite d'envoi
  st = oMess.getElementsByTagName("touser")(0).nodeTypedValue 
  st = st & "  " & oMess.getElementsByTagName("datestamp")(0).nodeTypedValue
  st = st & "  " & oMess.getElementsByTagName("title")(0).nodeTypedValue
  WScript.echo st
 Next
End If

as tu un exemple de fichier voir si l'on peu le lire...