Boucle recordset - AdoDB string - to xml
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!:oops:
Code:
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 |
