Discussion :

[Faridpo]

Bonsoir le forum,

Encore une fois, j'ai besoin de vos connaissances car je suis face à un mur...

J'ai une table liée dont des valeurs d'un champ sont stockées au format JSON et j'ai besoin soit :
- d'afficher les données de ce champ comme s'il s'agissait d'une table classique (nom du champ en en-tête de colonne et les valeurs par ligne)
- créer une table locale au format classique en créant un champ pour chaque en-tête JSON.

Ce n'est peut-être pas possible mais je préfère poser la question à ceux qui maîtrisent bien mieux que moi.

Merci et bonne soirée à tous,

Farid

[Jean-Philippe André]

Salut,

tous tes enregistrements auront-ils le meme format JSON ?

Si c'est le cas, pourquoi ne pas passer par un controleur standard json ?

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
Sub Exemple()
Dim TaValeurRetourJSON As String
'tu alimentes la valeur depuis ta table
Dim TonObjetStructure As Object
    Dim scriptControl As Object
 
    Set scriptControl = CreateObject("MSScriptControl.ScriptControl")
    scriptControl.Language = "JScript"
        Set TonObjetStructure = scriptControl.Eval("(" + TaValeurRetourJSON + ")")
'tu pourras ensuite manipuler ton objet par ses propriétés
MsgBox TonObjetStructure.Prop1
            'etc.
        End With
    End With
 
End Sub

[Faridpo]

Salut Jean-Philippe,

Tous les enregistrements de ce champ seront effectivement au format JSON. Par contre, j'ai 4 autres champs qui sont eux sur des formats standards (numérique et texte).

Je teste ton code ce matin ou du moins je vais essayer car je t'avoue que je n'y comprends pas grand chose, heureusement que tu l'as commenté.
Y a-t-il une référence particulière à activer ?

Bonne journée et encore merci,

Farid

[marot_r]

Bonjour.

comme tu as :

Code :

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

1
2
3
Dim scriptControl As Object 'Typé comme un objet sans précision, peut prendre n'importe quoi y compris un ScriptControl.
 
Set scriptControl = CreateObject("MSScriptControl.ScriptControl") 'Créer vraiment l'objet ScriptControl

Il n'est pas nécessaire d'ajouter une référence, Access va créer l'objet à la demande.

A+

[Faridpo]

Bonjour.
Il n'est pas nécessaire d'ajouter une référence, Access va créer l'objet à la demande.

Bonjour,

C'est noté, merci pour cette précision.

Néanmoins, au risque de passer pour le dernier des imbéciles, j'ai pour habitude d'utiliser Access via l'interface et un peu (mais alors vraiment très peu) de VBA et du coup, je ne sais pas comment utiliser ce code pour obtenir les données sous la forme souhaitée.

Il ne serait pas possible de passer par une requête pour créer une table classique répertoriant tous les champs actuellement au format JSON ?

Bonne fin de journée,

Farid

[marot_r]

Bonjour.

"au risque de passer pour le dernier des imbéciles"

Non, non, je te rassure, le dernier c'est moi :-).

Autant que je sache, Access ne lit pas directement le format JSON donc il faut forcément passer par du code VBA pour le lire.
Une fois que tu es dans le code et que tu as lu ton information tu peux en effet (toujours par code) l'ajouter à une table.
En gros cela donne cela :

1. Vider la table temporaire.
2. Lire l'info du fichier, un "enregistrement" à la fois (ou tout d'un bloc et parcourir les "enregistrements" chargées)
3. Écrire les champs qui t'intéressent dans un nouvel enregistrement de la table temporaire.

Je ne peux pas être tellement plus précis sur comment faire car je n'ai jamais utilisé JSON.

A+

[Faridpo]

Salut,

Merci pour ton intervention et c'est moi qui vais te rassurer je pense qu'il y a bien pire que toi ou moi.

Les étapes que tu décris correspondent exactement ce que j'aimerais faire mais je m'attaque à trop gros, je ne sais même pas par où commencer.

Créer la table temporaire et la vider, je sais faire mais sans la suite ça ne me sert pas à grand chose.

En tout cas merci à vous pour votre aide et le temps que vous m'avez consacré.

Farid

[marot_r]

Bonjour.

Est-ce que tu peux poster un extrait de ton fichier JSON ?

A+

[Faridpo]

Bonjour.
Est-ce que tu peux poster un extrait de ton fichier JSON ?
A+

Re,

La table liée se nomme "destlogs" et c'est le champ "content" qui stocke les données au format JSON :

Code :

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

{"civilite":"M.","nom":"XXX","prenom":"XXX","email":"XXXX@free.fr","telephone":"0123456789","adr1":"ALLEZ L'OHEME","cp":"13000","ville":"MARSEILLE","date_naissance":"1975-07-06","num_bs":"XY1234567","vendeur":"Agent1","vendeur_id":"3128","nb_appels":"0","duree":"0","infra":"A"}

Pour faire le lien, j'aimerais créer une table qui reprend le champ "deal_id" et tous les champs ci-dessus.

Merci pour l'intérêt que tu portes à mon casse-tête.

Farid

[marot_r]

Bonjour.

Je vais laisser un peu de temps passer si Jean-Philippe André a le temps je pense qu'il sera la meilleur personne pour cela.

Sinon comme on a une structure fixe, il est assez facile de faire du code pour "lire" les données sans passer par un programme externe.

A+

[Jean-Philippe André]

Salut,

un exemple :

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
Sub Exemple()
Dim TaValeurRetourJSON As String
'tu alimentes la valeur depuis ta table
TaValeurRetourJSON = Dlookup("TonChampJSON","TaTable","FilterSurID")
Dim TonObjetStructure As Object
    Dim scriptControl As Object
 
    Set scriptControl = CreateObject("MSScriptControl.ScriptControl")
    scriptControl.Language = "JScript"
        Set TonObjetStructure = scriptControl.Eval("(" + TaValeurRetourJSON + ")")
'tu pourras ensuite manipuler ton objet par ses propriétés
MsgBox TonObjetStructure.civilite
MsgBox TonObjetStructure.telephone
            'etc.
End Sub

[Faridpo]

Salut Jean-Philippe,

Merci pour ce boulot !

TaValeurRetourJSON = Dlookup("TonChampJSON","TaTable","FilterSurID")

Pour les 2 premiers, je sais quoi faire mais que dois-je mettre en remplacement de "FilterSurID" ?

Vraiment désolé et encore merci

Farid

[marot_r]

Bonjour.

Tu mentionnes un table destlogs donc je suppose que c'est un identifiant qui permet de retrouver un enregistrement en particulier dans ta table.

Si tu n'en as pas et en capitalisant sur le code fourni.

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
24
25
26
27
28
29
30
31
Sub Exemple()
    Dim TaValeurRetourJSON As String
    'tu alimentes la valeur depuis ta table
    Dim TonObjetStructure As Object
    Dim scriptControl As Object
 
    Set scriptControl = CreateObject("MSScriptControl.ScriptControl")
    scriptControl.Language = "JScript"
 
    dim db as dao.database: set db=currentdb
    dim r as dao.recordset: set r=db.openRecordset("destlogs", dbOpenSnapshot)
    dim rSortie as dao.recordset:set rSortie=db.openRecordset("TaTableTempo", dbOpenDynaset)
 
    do while not r.eof 'Pour tous les enregistrements
       TaValeurRetourJSON=r![TonChampJSON]
       Set TonObjetStructure = scriptControl.Eval("(" + TaValeurRetourJSON + ")")
      'tu pourras ensuite manipuler ton objet par ses propriétés
      rSortie.AddNew
      rSortie![Civilite]=TonObjetStructure.civilite
      rSortie![Telephoe]=TonObjetStructure.telephone
      'etc.
      rSortie.update
      r.movenext
   loop
 
   r.close:set r=nothing
   rSortie.close:set rSortie=nothing
   db.close:set db=nothing
   set TonObjetStructure =nothing
   set scriptControl =nothing
End Sub

A+

[Faridpo]

Désolé, je pense que je suis très chiant mais il semble qu'il est nécessaire de cocher une référence particulière pour :

Code :

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

rSortie As dao.recorset

J'ai un message d'erreur : "Erreur de compilation : type défini par l'utilisateur non défini" (ils ne se sont pas foulés sur le message d'erreur chez MicroSoft )

[micniv]

bonjour

Code :

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

 ... As dao.recordset

of course

Cdlt

[Faridpo]

Arf' ! Mais quel imbécile je suis !

Merci beaucoup.

[marot_r]

Merci d'avoir signalé l'erreur, j'ai corrigé le code source.

A+

[Faridpo]

Bah écoute... Ca marche impec' !

Le seul truc c'est que j'ai dû quitter à la sauvage pour interrompre l'exécution et en rouvrant, j'ai vu ma table renseignée avec le même nombre de lignes donc c'est nickel !

Je vais voir comment récupérer également le champ 'ID' qui est un champ numérique classique et essayer de comprendre pourquoi ça continue de tourner.

Un énorme MERRCIIIIIII !

Bonne soirée,

Farid

[PipoWIL]

Bonjour,

Il semble que vous ayez trouvé une solution qui vous comble de bonheur mais une solution simple peut provenir de la fonction VBA split.

Code :

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

1
2
3
4
5
6
7
8
Dim varLines() As String
Dim strJSON As String
 
varLines = Split(strJSON, ",")
 
For i = LBound(varLines) To UBound(varLines)
    Debug.Print varLines(i)
Next i

récupérer le JSON et le diviser en tous ses composants dans un array puis exploiter l'array.

[marot_r]

Bonjour.

Oui on aurait pu utiliser Split mais c'est plus compliqué car en plus devoir découper sur les virgules il faut aussi récupérer le nom de l'attribut et la valeur. Bref du travail et des validations à faire alors que la méthode avec l'interpréteur de script (que je ne connaissais pas) est beaucoup plus éléguante et sûre.

A+