VB.net - JSON parse - Newtonsoft - json

Question

I am having a troble parsing JSON using vb.net with Newtonsoft Json library.
My JSON Data is as follows :
{
"Result":"Success",
"UserID":"johns",
"Password":null,
"Locked":"False",
"Comment":"",
"LastLoggedOn":"11/9/2013 9:14:17 PM",
"NumFailedAttempts":"1",
"FirstName":"John",
"LastName":"Smith",
"MessageNum":"UA-000",
"MessageText":"Authorisation successful"
}
My code is as follows :
Dim a As saLoginResponse = JsonConvert.DeserializeObject(Of saLoginResponse)(strJSONEncode)
Response.Write(a.ToString)
Response.Write(a.MessageText)
This does not produce any output.
Any help is appreciated.

Answer 1

Assuming your saLoginResponse class is defined like the following, and your strJSONEncode string contains the JSON data you posted in your question, your code should work fine.
Public Class saLoginResponse
Public Property Result As String
Public Property UserID As String
Public Property Password As String
Public Property Locked As Boolean
Public Property Comment As String
Public Property LastLoggedOn As String
Public Property NumFailedAttempts As String
Public Property FirstName As String
Public Property LastName As String
Public Property MessageNum As String
Public Property MessageText As String
End Class
Demo:
Sub Main()
Dim json As String = _
"{" + _
"""Result"":""Success""," + _
"""UserID"":""johns""," + _
"""Password"":null," + _
"""Locked"":""False""," + _
"""Comment"":""""," + _
"""LastLoggedOn"":""11/9/2013 9:14:17 PM""," + _
"""NumFailedAttempts"":""1""," + _
"""FirstName"":""John""," + _
"""LastName"":""Smith""," + _
"""MessageNum"":""UA-000""," + _
"""MessageText"":""Authorisation successful""" + _
"}"
Dim a As saLoginResponse = JsonConvert.DeserializeObject(Of saLoginResponse)(json)
Debug.WriteLine(a.MessageText + " for " + a.FirstName + " " + a.LastName)
End Sub
Output in debug window:
Authorisation successful for John Smith