Public Sub Delete_Officer_From_DB(delOfficerIDNo As Int)
delOfficerIDNo = 222
Dim req As DBRequestManager = CreateRequest
Dim cmd As DBCommand = CreateCommand("Delete_Officer", Array(delOfficerIDNo))
' Wait For (req.ExecuteQuery(cmd, 0, Null)) JobDone(j As HttpJob)
Wait For (req.ExecuteCommand(cmd, Null)) JobDone(j As HttpJob)
If j.Success Then
Log("Officer deleted from DB successfully!")
Else
Log("ERROR: " & j.ErrorMessage)
End If
j.Release
End Sub