I have to check for a given name in database via a sql statement by ExecuteRemoteQuery(Sql,Check_Existing_Friend) in httputils2 as follows:
Sql = "SELECT * FROM Friend WHERE Name = 'Chan Tai Main'"
Remark : Chan Tai Main is not in database. So I aware that web server will reply request with zero data.
Problem here :
Sub JobDone(job As Httpjob) seems no function by the zero data request but it functions by non-zero data request.
As a result, I cannot check for the job.success within sub jobdone.
My JobDone codes are belows:
Sub JobDone(job As Httpjob)
If job.Success Then
Dim Res As String
Dim parser As JSONParser
Res = job.GetString
parser.Initialize(Res)
Select job.JobName
Case Get_Friend
Positive case
...
Case Get_Relative
Positive case
...
Case Get_Pet
Positive case
...
End Select
Else
Select job.JobName
Case Get_Friend
Opposite case
...
Case Get_Relative
Opposite case
...
Case Get_Pet
Opposite case
...
End Select
End If
job.Release
End Sub
My main purpose is to do the Opposite case if zero data returned by web server.
Please help... Thanks.
Sql = "SELECT * FROM Friend WHERE Name = 'Chan Tai Main'"
Remark : Chan Tai Main is not in database. So I aware that web server will reply request with zero data.
Problem here :
Sub JobDone(job As Httpjob) seems no function by the zero data request but it functions by non-zero data request.
As a result, I cannot check for the job.success within sub jobdone.
My JobDone codes are belows:
Sub JobDone(job As Httpjob)
If job.Success Then
Dim Res As String
Dim parser As JSONParser
Res = job.GetString
parser.Initialize(Res)
Select job.JobName
Case Get_Friend
Positive case
...
Case Get_Relative
Positive case
...
Case Get_Pet
Positive case
...
End Select
Else
Select job.JobName
Case Get_Friend
Opposite case
...
Case Get_Relative
Opposite case
...
Case Get_Pet
Opposite case
...
End Select
End If
job.Release
End Sub
My main purpose is to do the Opposite case if zero data returned by web server.
Please help... Thanks.