Désérialisation XML dans VB/VBA

Question

J'ai un ensemble de classes VBA dans une base de données MS Access. J'ai une chaîne xml avec des données avec lesquelles je veux créer de nouvelles classes.

En dehors de la définition individuelle de chaque propriété, existe-t-il un moyen facile de désérialiser le code XML dans mon objet?

Je l'ai vu le code en utilisant la bibliothèque TypeLib

Public Sub ISerializable_Deserialize(xml As IXMLDOMNode) 

    Dim tTLI As TLIApplication 
    Dim tInvoke As InvokeKinds 
    Dim tName As String 
    Dim tMem As MemberInfo 

    tInvoke = VbLet 

    For Each tMem In TLI.ClassInfoFromObject(Me).Members 

    tName = LCase(tMem.Name) 

    CallByName Me, tMem.Name, VbLet, xml.Attributes.getNamedItem(tName).Text 

    Next tMem 
End Sub 

mais cela ne semble pas fonctionner avec les modules de classe standard. Je reçois une erreur 429:

ActiveX Component Cannot Be Created 

Quelqu'un d'autre peut-il m'aider? Je préfère ne pas avoir à régler chaque propriété à la main si je peux l'aider, certaines de ces classes sont énormes!

Answer 1

Vous ne tTLI par exemple dans ce code & et plus tard s'y référer comme juste TLI il ne fonctionnera pas, l'erreur 429 peut-être parce que la bibliothèque TypeInfo est pas enregistré, il ne vous ajoutez comme référence?

Si vous avez fait ce qui suit fonctionnera:

Dim TLI As TLIApplication 
Dim II As InterfaceInfo 
Dim MI As MemberInfo 

Set TLI = New TLIApplication 
Set II = TLI.InterfaceInfoFromObject(Me) 

For Each MI In II.Members 
    If MI.InvokeKind = InvokeKinds.INVOKE_PROPERTYPUT Then 
     Debug.Print MI.Name 
     TLI.InvokeHook Me, MI.Name, InvokeKinds.INVOKE_PROPERTYPUT, "PROPVALUE" 
    End If 
Next 

Vous pouvez remplacer InvokeHook avec CallByName si vous le souhaitez.