Hello
how to pass a value in a variable on the server knowing that the command is android
Dim j As HttpJob
j.Initialize("report", Me)
j.Download(link & "/Report")
ProgressDialogShow("Downloading report...")
-----------------------------------------------------------------------------------------------
sur le serveur pc
sub Class_Globals
Dim ID As Int = 4
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
End Sub
Merci
Public Sub Handle(req As ServletRequest, resp As ServletResponse)
'Dim html As String = DBUtils.ExecuteHtml(Main.SQL1, "SELECT * FROM animals ORDER BY Age ASC ", Null)
Dim html As String = DBUtils.ExecuteHtml(Main.SQL1, "SELECT * FROM animals WHERE Age = "& ID, Null)
resp.ContentType = "text/html"
resp.Write(html)
End Sub
how to pass a value in a variable on the server knowing that the command is android
Dim j As HttpJob
j.Initialize("report", Me)
j.Download(link & "/Report")
ProgressDialogShow("Downloading report...")
-----------------------------------------------------------------------------------------------
sur le serveur pc
sub Class_Globals
Dim ID As Int = 4
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
End Sub
Merci
Public Sub Handle(req As ServletRequest, resp As ServletResponse)
'Dim html As String = DBUtils.ExecuteHtml(Main.SQL1, "SELECT * FROM animals ORDER BY Age ASC ", Null)
Dim html As String = DBUtils.ExecuteHtml(Main.SQL1, "SELECT * FROM animals WHERE Age = "& ID, Null)
resp.ContentType = "text/html"
resp.Write(html)
End Sub