Как делать JSON тип схема используя JSON.net?

Я делаю API REST в ASP используя такой Visual Basic как базовый код. Нужно помнить, что нет многой документации для такого языка по этому поводу.

У меня есть этот JSON:

{
   "Id": 1,
   "NombreUsuario": "admin",
   "Clave": "admin",
   "CorreoElectronico": "admin@localhost",
   "Token": "0m1sand5p2ru5gdinaewi2ox"
}

Но то, что я хочу, состоит в том, чтобы создавать объект JSON таким образом:

{
   "statusCode" : 200,
   "statusText" : "OK",
   "data" : [
      {
         "Id": 1,
         "NombreUsuario": "admin",
         "Clave": "admin",
         "CorreoElectronico": "admin@localhost",
         "Token": "0m1sand5p2ru5gdinaewi2ox"
      }
   ]
}

Я не нахожу способ вводить данные, предыдущие "дате" в компьютер: []

Это мой код VB.NET:

Dim respuesta = obj.login '' Aca solamente hace la consulta de un login 

If respuesta.HasRows Then

    Session.Timeout = 5
    Dim key = Session.SessionID

    Dim array As New JArray()

    While respuesta.Read
        obj.id = respuesta(0)
        For index As Integer = 0 To respuesta.FieldCount - 1
            array.Add(respuesta(index))
        Next
    End While

    Dim o As New JObject()


    o("Id") = array(0)
    o("NombreUsuario") = array(1)
    o("Clave") = array(2)
    o("CorreoElectronico") = array(3)
    o("Token") = key

    respuesta.Close()

    Dim schema As JSchema = JSchema.Parse(o.ToString)    

    obj.TokenKey = key

    Dim token = obj.token

    If token Then

        Response.AddHeader("Content-Type", "application/json")
        Response.AddHeader("Access-Control-Allow-Origin", "*")
        Response.Write(o)
    Else
        print_json("401", "Error de autenticacion", Nothing)
    End If
1
задан 26.01.2017, 16:40
2 ответа

Уже resolvГ - моя проблема, я имею cГіdigo на всякий случай любой его переместил то же самое

                               Dim respuesta = obj.login                                
                               If respuesta.HasRows Then

                                Session.Timeout = 5
                                Dim key = Session.SessionID

                                Dim array As New JArray()

                                While respuesta.Read
                                    obj.id = respuesta(0)
                                    For index As Integer = 0 To respuesta.FieldCount - 1
                                        array.Add(respuesta(index))
                                    Next
                                End While

                                Dim o As New JObject()



                                o("Id") = array(0)
                                o("NombreUsuario") = array(1)
                                o("Clave") = array(2)
                                o("CorreoElectronico") = array(3)
                                o("Token") = key



                                Dim dict As New Dictionary(Of String, JObject)

                                dict.Add("data", o)


                                respuesta.Close()




                                obj.TokenKey = key

                                Dim token = obj.token

                                If token Then

                                    Response.AddHeader("Content-Type", "application/json")
                                    Response.AddHeader("Access-Control-Allow-Origin", "*")

                                    Dim stringb As New StringBuilder

                                    stringb.Append("{")
                                    stringb.Append(Chr(34) & "statusCode" & Chr(34) & ": 200,")
                                    stringb.Append(Chr(34) & "statusText" & Chr(34) & ":" & Chr(34) & "OK" & Chr(34) & ",")


                                    For Each a In dict


                                        stringb.Append(Chr(34) & a.Key.ToString & Chr(34))
                                        stringb.Append(":")
                                        stringb.Append(a.Value.ToString)
                                        stringb.Append("}")

                                    Next

                                    Response.Write(stringb)


                                Else
                                    print_json("401", "Error de autenticacion", Nothing)
                                End If
1
ответ дан 24.11.2019, 11:26
string json = @"{
statusCode: 200,
statusText: 'OK',
data: [
        {
            Id: 1,
            NombreUsuario: 'admin',
            Clave: 'admin',
            CorreoElectronico: 'admin@localhost',
            Token: '0m1sand5p2ru5gdinaewi2ox'
        }    
     ]
}";

JObject o = JObject.Parse(json);
0
ответ дан 24.11.2019, 11:26
  • 1
    Я не думаю, что это так просто как это, помещенный тому, что я не верю в JSON посредством String, я приношу данные о SQLDataReader с BD и потом они добавляет в JArray, что потом, они добавлены JObject. Мас Син эмбарго, не беспокойтесь, так как уже я решил мою проблему, спасибо за помощь – Anthony Medina 26.01.2017, 16:54