Sub Button2_Click
Dim LoginStatus As Int
LoginStatus = 0
Dim req As DBRequestManager = CreateRequest
Dim cmd As DBCommand = CreateCommand("validate", Null)
Wait For (req.ExecuteQuery(cmd, 0, Null)) JobDone(j As HttpJob)
If j.Success Then
req.HandleJobAsync(j, "req")
Wait For (req) req_Result(res As DBResult)
'work with result
req.PrintTable(res)
If res.Rows.size > 0 Then
LoginStatus = 1
MsgboxAsync("Valid user ", "Login successful")
StartActivity("Home")
Else
LoginStatus=0
MsgboxAsync("Invalid user ","Login Unsuccessful")
End If
Else
Log("ERROR: " & j.ErrorMessage)
End If
j.Release
End Sub