Access vba et json

Bonjour à tous,

Pourriez vous m'aider

J'ai vue qu'il y a http://www.ediy.co.nz/vbjson-json-pa...xidc55680.html.
Que dois je installer et comment je peux récupérer ma data ? car je n'ai pas vraiment trouvé d'exemple. J'ai vue aussi qu'il y a plusieurs librairies?

Merci de votre aide.

Bonjour.

Apparement c'est pour VB6 et non VBA.
VB6 et VBA sont des langages "cousins" et même si leur syntaxe est assez semblable, ils sont suffisamment différents pour être incompatibles.
Si tu as accès au code source, il est peut-être possible d'adapter le code à VBA.

A+

Merci pour la précision, du coup ,

j'ai trouvé ça https://github.com/VBA-tools/VBA-JSON cela fonctionne. Par contre on peut parcourir le json, j'ai l'habitude de travailler avec du xml?

Merci.

Bonjour.

Les données lues sont stockées dans un objet de type Dictionary (Dim Parsed As Dictionary).

Donc tu peux parcourir les éléments 1 par 1 en avant (et je pense dans l'ordre alphabétique des noms), ou alors allez chercher un élément par son "nom".

Ici une explication de leurs usages.

Using the Dictionary Class in VBA
https://www.experts-exchange.com/art...ss-in-VBA.html

L'exemple est pour Excel mais à part l'écriture des résultats dans des cellules (ce qui n'existe pas en Access) le code est assez semblable.

Désolé je n'en ai pas trouvé pour Access.

A+

Merci,

Par exemple pour ci dessous si je fais json("test")(1)("attribut1") j'obtiens bien valeur1. Par contre pour de très gros json comment je fais pour récupérer les attributs
dans un for each? je fais le for each sur la valeur test?

Code:

---

1 2 3 4 5 6 7 8 9 10

{ "test": [ { "attribut1": "valeur1", "attribut2": "[{\"valeur\":2}]" }, { "attribut1": "valeur1" } }

---

Bonjour.

En fait je n'en ai aucune idée.
Cela dépend de comment les données sont stockées dans le dictionnaire.

Ici un exemple de code qui t'affiche la clef et la valeur :

Code:

---

1 2 3 4 5 6 7 8

Dim d as dictionary 'ici du code pour remplir le dictionnaire   dim i as long   For i = 0 To d.Count - 1 Debug.Print d.items()(i), d.keys()(i) Next i

---

Et un exemple avec un for each:

Code:

---

1 2 3 4 5

Dim K As Variant   For Each K In d.Keys debug.print "Key: " & K , "Value: " & d.Item(K) Next

---

Cela devrait te permettre de voir ce que contient ton dictionnaire.

A+

Merci,

Code:

---

1 2 3 4 5 6 7 8 9

Set jsontest = JsonConverter.ParseJson(json)     Dim i As Long   For i = 1 To jsontest("test").Count Debug.Print jsontest("test")(i)("id") Next i

---

Je vais utiliser que le for du coup.

Merci de votre aide.