Android Question insert into mysql remote whith Okhttp

Dim job1 As HttpJob
    job1.Initialize("Insert", Me)
    job1.Download2("https://sample.net/insertdata.php", _
    Array As String("user_id",username))

Sub JobDone (Job As HttpJob)

    ProgressDialogHide
    Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
    If Job.Success = True Then

Select Job.JobName
 
    Case "Insert"
        Dim str As String

       str=Job.Getstring     

       msgbox(str,"title")



     End Select
End if
Job.Release

End Sub

Sub Process_Globals
Dim hc As HttpClient
End Sub

Sub Globals
 
End Sub

Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
hc.Initialize("hc")
End If
Activity.LoadLayout("formulario") 
End Sub

Sub Sub Button4_Click
    Dim Query1  As String
    Dim req As HttpRequest
Query1="INSERT INTO Brain (Nombre,Contraseña) VALUES ('" & edittext1.text & "' ,'" & edittext2.text & "')"
req.InitializePost2("http://kahapdos.com/mapas.php",Query1.GetBytes("UTF8"))
hc.Execute(req, 1)
end sub


Sub hc_ResponseSuccess (Response As HttpResponse, tarea As Int)
End Sub

Sub hc_ResponseError (Response As HttpResponse, Reason As String, StatusCode As Int, tarea As Int)
End Sub

<?

$databasehost = "localhost";
$databasename = "****";
$databaseusername ="****";
$password="*****";

$con = mysql_connect($databasehost,$databaseusername,$databasepassword) or die(mysql_error());
mysql_select_db($databasename) or die(mysql_error());
mysql_query("SET CHARACTER SET utf8");
$query = file_get_contents("php://input");
$sth = mysql_query($query);

if (mysql_errno()) {
header("HTTP/1.1 500 Internal Server Error");
echo $query.'\n';
echo mysql_error();
}
else
{
$rows = array();
while($r = mysql_fetch_assoc($sth)) {
$rows[] = $r;
}
print json_encode($rows);
}
?>

Sub Insertbtn_Click

Dim job1 As HttpJob
    job1.Initialize("Insert", Me)
    job1.Download2("https://sample.net/insertdata.php", _
    Array As String("user_id",username))

End Sub

Sub Updatebtn_Click

Dim job1 As HttpJob
    job1.Initialize("update", Me)
    job1.Download2("https://sample.net/updatedata.php", _
    Array As String("user_id",username))

End Sub

Sub Deletebtn_Click

Dim job1 As HttpJob
    job1.Initialize("delete", Me)
    job1.Download2("https://sample.net/deletedata.php", _
    Array As String("user_id",username))

End Sub








Sub JobDone (Job AsHttpJob)
ProgressDialogHide
Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
If Job.Success = True
Then
       Select Job.JobName
                Case "Insert"
                   Dim str AsString

                   str=Job.Getstring
                   msgbox(str,"title")

                 Case"update"



                  Case "delete"



End Select

End if
Job.Release

End Sub

Sub Insertbtn_Click
    Dim job1 AsHttpJob
    job1.Initialize("", Me)
    job1.Download2("https://sample.net/insertdata.php", Array As String("user_id",username))

   Wait For (job1) JobDone(job1 As HttpJob)
   If job1.Success Then
     Log(job1Getstring.)
   End if
   job1.Release

End Sub