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