Discussion :

[SuperArbre]

Bonjour à tous,

J'ai un objet recordset qui contient un champs "xml_data". Il s'agit d'une string que je souhaite convertir en document XML.
Le code suivant me retourne l'erreur: 9, l'indice n'appartient pas à la sélection

Je ne comprends pas trop ce que je fais faux?

D'autre part si quelqu'un a une meilleure idée pour convertir chaque xml_string vers une document xml depuis un recordset je suis preneur!

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
 
'get five last mesure
    Dim record_return As ADODB.recordSet
    Set record_return = model_proof.get_five_last_record
    'update the view
    Dim view_proof As view_proof
    Set view_proof = FACTORY.create_view_proof
    'get the xml_data, transform string to XMLDOC
    'for each record create XML doc
    Dim array_xml() As MSXML2.DOMDocument30
    Dim i As Integer
    i = 1
    Do While Not record_return.EOF
        Dim xml_doc As MSXML2.DOMDocument30
        Dim str_xml As String
        str_xml = record_return.Fields("xml_data")
        Set xml_doc = returnXML_from_str(str_xml)
        array_xml(i) = xml_doc
        Set xml_doc = Nothing
        record_return.MoveNext
        i = i + 1
    Loop
    view_proof.Load_five_last_record array_xml

[SfJ5Rpw8]

bonjour,
sur qu'elle ligne l'erreur?

[SuperArbre]

Bonjour,

l'erreur se trouve à la ligne numéro 18.
L'instruction

Code :

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

array_xml(i) = xml_doc

[Invité]

bonjour,
tu déclares un tableau : Dim array_xml() As MSXML2.DOMDocument30
il est de longueur variable : array_xml()
avant de l'utiliser il faut le redimensionner

Code :

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

1
2
 ReDim Preserve array_xml(i)
 array_xml(i) = xml_doc

maintenant si tu veux enregistrer dans un fichier, vue que ton champ text contient déjà du xml :

Code :

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

1
2
3
4
5
FileNumber = FreeFile
Open "c:\FICHTEST.XML" For Output As #FileNumber
 
Write #FileNumber, returnXML_from_str(str_xml)
Close #FileNumber

[SuperArbre]

Merci beaucoup pour la réponse précise!
Bonne fin de week-end!