Afficher un JSON dans un datagridview

Version imprimable

1 pièce(s) jointe(s)

Bonjour, j'ai un JSON que je voudrais afficher dans un datagridview mais j'ai une erreur qui est du je crois au sous nœud "name", j'ai bien crée mes classes pour représenter mes données mais j'ai une erreur, merci :

ERREUR :
Pièce jointe 633452

Classe :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Class Utilisateur
 
#Region "Propriétés"
    Public Property gender As String
    Public Property name As Name
    Public Property location As Location
    Public Property email As String
    Public Property login As Login
    Public Property dob As Dob
    Public Property registered As Registered
    Public Property phone As String
    Public Property cell As String
#End Region
 
Public Class Name
    Public Property title As String
    Public Property first As String
    Public Property last As String
End Class ....

Code :

Code:

1
2
3
4
5
  Dim jsonString As String = File.ReadAllText("C:\datas.json")
            Dim data As List(Of Utilisateur) = JsonConvert.DeserializeObject(Of List(Of Utilisateur))(jsonString)
            Dim bs As New BindingSource
            bs.DataSource = data
            DataGridView1.DataSource = bs

Fichier JSON :

Code:

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
"utilisateurs": [
    {
      "gender": "male",
 
      "name": {
              "title": "Mr",
              "first": "Titouan",
              "last": "Martinez"
               },
 
      "location": 
               {
               "street": {
                          "number": 7644,
                          "name": "Boulevard de Balmont"
                         },
               "city": "Angers",
               "state": "Loire",
               "country": "France",
               "postcode": 73323
               },
 
      "email": "titouan.martinez@example.com",
 
      "login": {
                "uuid": "fabc208b-2e53-4467-9876-91825753d1fd",
                "username": "lazygorilla631",
                "password": "lipstick",
                "salt": "i6umsADd",
                "md5": "eb7f2a59bbbd3d2b53f586ce4f10b774",
                "sha1": "21b3214a4b0a791eb6c5461cd0c3e106ba5d64e8",
                "sha256": "9dc4aaddf4073c6b84e4396b7fa21ad6c5acb3067cd636582c2fee1f9b269f0e"
                },
 
      "dob": {
             "date": "1950-01-23T02:43:11.033Z"
             },
 
      "registered": {
                    "date": "2011-07-08T01:21:06.991Z"
                    },
 
      "phone": "02-43-28-09-81",
 
      "cell": "06-16-01-70-15"
    }

ce code la fonctionne mais je n'arrive pas à aller chercher le "name,first" :

Code:

1
2
3
4
5
6
DataGridView1.AutoGenerateColumns = False
            Dim FileName As String = "C:\datas.json" 'IO.Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "test.json")
            Dim content As String = IO.File.ReadAllText(FileName)
            Dim results As Rootobject = JsonConvert.DeserializeObject(content, GetType(Rootobject))
            Dim dataResults = results.utilisateurs.Select(Function(data) New Utilisateur With {.gender = data.gender}).ToList
            DataGridView1.DataSource = dataResults

31/01/2023, 19h31
HULK

1 pièce(s) jointe(s)

j'ai fait un test désespéré, j'ai ajouté des crochets au début et la fin du json, je n'ai plus d'erreur par contre il n'y a rien dans mon objet "data" et par conséquent rien dans mon datagrid

Pièce jointe 633460

Bon j'ai résolu le problème en passant par une autre méthode, merci :

Code:

1
2
3
4
5
6
     Dim jsonString As String = File.ReadAllText("..\..\Datas\datas.json")
            Dim jsonObject As JObject = JObject.Parse(jsonString)
            For Each User As JObject In JArray.Parse(jsonObject.SelectToken("utilisateurs").ToString)
                DsUser1.daUser.Rows.Add(User.SelectToken("name.last").ToString, User.SelectToken("name.first").ToString, User.SelectToken("gender").ToString,
                                        User.SelectToken("dob.date").ToString, User.SelectToken("phone").ToString, User.SelectToken("cell").ToString)
            Next

01/02/2023, 16h50
umfred
sauf erreur de ma part et de copier-coller, il devait manquer un crochet fermant pour fermer la liste utilisateurs que tu nous a donnée
Code:

1 2 3 4 "utilisateurs": [ { [...] }
Ensuite, comme c'est une liste qu'il y a dans le JSON, il faut le récupérer dans une liste
Enfin j'ai trouvé ça pour l'affichage de listes imbriquées dans un DataGridView (il faut créé une colonne dans laquelle on "met à plat" la liste imbriquée, ce que tu as finalement fait)
https://stackoverflow.com/questions/...string-in-grid