Блог

У меня возникли проблемы с преобразованием моей базы данных JSON для отображения в DataGridView. Я уже изменю файл JSON. Он всегда показывает быстрое сообщение о том, что он не может преобразовать объект типа «system.string» в тип «Name.vb».

Вот мой код:

 Public Sub ShowRecord()
    Try
        Dim dtTable As New DataTable

        dtTable.Columns.Add("Name")

        dtTable.Columns.Add("Age")

        If clearDGVCol = True Then
            LeaveDataView.Columns.Clear()
            clearDGVCol = False
        End If

        Dim SRRecord = client.Get("Name/")
        Dim myJsonTool As New JavaScriptSerializer
        Dim myDeserializedItems = myJsonTool.Deserialize(Of Dictionary(Of String, Name))(SRRecord.Body)

        For Each dictItem As KeyValuePair(Of String, Name) In myDeserializedItems
            dtTable.Rows.Add(dictItem.Value.Name,
                             dictItem.Value.Age)
        Next

        LeaveDataView.DataSource = dtTable
        dtTableGrd = dtTable
    Catch ex As Exception
        If ex.Message = "One or more errors occurred." Then
            MessageBox.Show("Cannot connect to firebase, check your network !", "Error Message", MessageBoxButtons.OK, MessageBoxIcon.Error)
        ElseIf ex.Message = "Object reference not set to an instance of an object." Then
            Dim dtTable As New DataTable
            dtTable.Columns.Add("Name")
            dtTable.Columns.Add("Age")
            LeaveDataView.DataSource = dtTable
            MessageBox.Show("Database not found or Database is empty.", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            MessageBox.Show(ex.Message, "Error Message", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If

    End Try
End Sub
 

Вот файл JSON:

 {
  "Nico" : {
    "Age:" : "24",
    "Contact:" : "1234567890",
    "Name:" : "Nico Gonzales",
    "Password:" : "123",
    "Username:" : "nico"
  }
}
'''

'''
Here is my Name.vb file:
'''
    Public Class Name
        Public Property Name() As String = ""
        Public Property Age() As String = ""
        Public Property Contact() As String = ""
        Public Property Username() As String = ""
        Public Property Password() As String = ""
    End Class
'''