Please help me how can i convert this json date to my normal date
B4X:
Dates: /Date(1542834000000)/
B4X:
Dim CustID As String = 782911364' Customer ID
Dim j As HttpJob
j.Initialize("", Me)
'j.Download("http://192.168.1.239/WebServicesula/Service.asmx/Get")
j.Download("http://192.168.1.239/Generic_Handler_JSON/HandlerVBPay.ashx?customerid=" & CustID)
'j.Download("http://192.168.1.239/Generic_Handler_JSON/HandlerVB.ashx")
'j.PostString("http://192.168.1.239/Webandroid//VB.aspx?customerid=" & CustID)
j.GetRequest.Timeout = 10000 ' 10 seconds
Wait For (j) JobDone(j As HttpJob)
If j.Success Then ' if job is success (http status code 200)
Dim RetVal As String
RetVal = j.GetString
Dim jp As JSONParser
jp.Initialize(j.GetString)
Log(jp) ' will pr
Dim quotes As List = jp.NextArray
For Each quot As Map In quotes
Log("Customerid: " & quot.Get("Account"))
Log("Name: " & quot.Get("Names"))
Log("Class: " & quot.Get("Class"))
Log("Stream: " & quot.Get("stream"))
Log("Amount: " & quot.Get("Amount"))
Log("Dates: " & quot.Get("Dates"))
Log("Years: " & quot.Get("Years"))
Log("Term: " & quot.Get("Term"))
Next
End If
it show this
[{"CustomerId":"05-00001","Name":"Makumbi Sulaiman","Stream":"N","Amount":45000,"Dates":"\/Date(1542834000000)\/","Term":"Term1 ","Years":"2018","Class":"S2"},{"CustomerId":"05-00002","Name":"Nkabirwa Rayan","Stream":"S","Amount":5000,"Dates":"\/Date(1542574800000)\/","Term":"Term1 ","Years":"2018","Class":"P4"}]
IMO, "JSON date" is a string according ISO 8601.2004 standard. For example, 2018-11-21T09:27:09.501Z.
My app communicates with server, which generates similar data using standard Javascript function.
I have no idea about B4a built-in functions which are able to convert this to ticks.
So, I used Substring and DateUtils.SetDate2
IMO, "JSON date" is a string according ISO 8601.2004 standard. For example, 2018-11-21T09:27:09.501Z.
My app communicates with server, which generates similar data using standard Javascript function.
I have no idea about B4a built-in functions which are able to convert this to ticks.
So, I used Substring and DateUtils.SetDate2
how can check if a table has data in it like checking the first row only please help i was using this but it does not bring out what i want
B4X:
cursor1 = Starter.SQL1.ExecQuery("SELECT id FROM student")
'cursor1 = SQL1.ExecQuery("SELECT Phone FROM Register")
If cursor1.RowCount > 0 Then
For i = 0 To cursor1.RowCount - 1
cursor1.Position = i
Next
End If
cursor1 = Starter.SQL1.ExecQuery("SELECT id FROM student LIMIT 1")
If cursor1.RowCount > 0 Then
cursor1.Position = 0
'do stuff
else
log("no records")
End If
cursor1 = Starter.SQL1.ExecQuery("SELECT id FROM student LIMIT 1")
If cursor1.RowCount > 0 Then
cursor1.Position = 0
'do stuff
else
log("no records")
End If
cursor1 = Starter.SQL1.ExecQuery("SELECT ID ,phone FROM Register")
If cursor1.RowCount > 0 Then
Msgbox("You are Already Registered" & cursor1.Getstring("Phone") &" ,"SMIS")
i what my message to show the Phone number of the person that is already registered in the message
example You are Already Registered with 0783333455
Dim MyID As String ="0783333455"
cursor1 = Starter.SQL1.ExecQuery2("SELECT ID , phone FROM Register WHERE ID = ?", Array As String(MyID))
If cursor1.RowCount > 0 Then
cursor1.Position=0
MsgboxAsync("You are Already Registered with phone: " & cursor1.Getstring("Phone") ,"SMIS")
Else
Log("No such member in the database.")
End If
Dim MyID As String ="0783333455"
cursor1 = Starter.SQL1.ExecQuery2("SELECT ID , phone FROM Register WHERE ID = ?", Array As String(MyID))
If cursor1.RowCount > 0 Then
cursor1.Position=0
MsgboxAsync("You are Already Registered with phone: " & cursor1.Getstring("Phone") ,"SMIS")
Else
Log("No such member in the database.")
End If