Private Sub btnRegister_Click
'get the entered user details
Dim up As Map = CreateMap()
up.Put("firstname", txtFirstName.Text)
up.Put("lastname", txtLastName.Text)
up.Put("tel1", txtMobile.Text)
up.Put("tel2", txtNextOfKin.Text)
up.Put("deviceid", txtDeviceID.Text)
'check if blank and warn user
Log(up)
GetMemberProfileByMobileNo(txtMobile.Text)
End Sub
Sub GetMemberProfileByMobileNo (id As String)
'sql.select_user_bytelnumber = Select * FROM user WHERE tel1= ?
Dim req As DBRequestManager = MP.CreateRequest(Me)
LogColor("GetMemberProfileByMobileNo.CreateRequest...", xui.Color_Cyan)
Dim cmd As DBCommand = MP.CreateCommand("select_user_bytelnumber", Array(id))
LogColor("GetMemberProfileByMobileNo.CreateCommand...", xui.Color_Cyan)
Wait For (req.ExecuteQuery(cmd, 0, Null)) JobDone(j As HttpJob)
LogColor("GetMemberProfileByMobileNo.Wait For ExecuteQuery...", xui.Color_Cyan)
LogColor("GetMemberProfileByMobileNo.Success Result..." & j.success, xui.Color_Cyan)
If j.Success Then
req.HandleJobAsync(j, "req")
Wait For (req) req_result(res As DBResult)
Log(res.Columns)
Log(res)
'work with result
req.PrintTable(res)
Else
Log("ERROR: " & j.ErrorMessage)
End If
j.Release
End Sub