Sub Process_Globals
'Private ServerUrl As String = "http://www.example.com/test1.aspx"
Private ServerUrl As String = "http://192.168.0.5/"
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim job As HttpJob
job.Initialize("Job1", Me)
Activity.LoadLayout("front")
'job.PostString(ServerUrl, "SELECT col1, col2 FROM Table_1")
job.PostString(ServerUrl, "SELECT * from hrd.zerobill")
End Sub
Sub JobDone (Job As HttpJob)
If Job.Success Then
Dim parser As JSONParser
Dim response As String = Job.GetString
parser.Initialize(response)
Dim rows As List
rows = parser.NextArray
'work with result
'rows is a List. Each item is a Map with the columns names as keys and the db values as the values.
For i = 0 To rows.Size - 1
Log("Rows #" & i)
Dim m As Map
m = rows.Get(i)
Log("col1=" & m.Get("col1")) 'log the values of col1 and col2
Log("col2=" & m.Get("col2"))
Next
Else
Msgbox("aaa","sss")
End If
Job.Release
End Sub#Region Module Attributes
#FullScreen: False
#IncludeTitle: True
#ApplicationLabel: MySQL Example
#VersionCode: 1
#VersionName:
#SupportedOrientations: portrait
#End Region
#AdditionalJar:mysql-connector-java-5.1.22-bin
'Activity module
Sub Process_Globals
Private COUNTRIES_LIST = "countries_list", COUNTRY_POPULATION = "country_population" As String
End Sub
Sub Globals
Type TwoLines (First As String, Second As String)
Dim lblPopulation As Label
Dim ListView1 As ListView
Dim lblCountry As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
FetchCountriesList
End Sub
Sub FetchCountriesList
ProgressDialogShow("Fetching list of countries")
'Gets all the available countries
'ExecuteRemoteQuery("SELECT name, id FROM countries ORDER BY id", COUNTRIES_LIST)
ExecuteRemoteQuery("SELECT * from zerobill", COUNTRIES_LIST)
End Sub
Sub ListView1_ItemClick (Position As Int, Value As Object)
Dim tl As TwoLines
tl = Value
lblCountry.Text = tl.Second
lblPopulation.Text = "Calling server..."
ExecuteRemoteQuery("SELECT population FROM countries WHERE id='" & tl.First & "'", COUNTRY_POPULATION)
End Sub
Sub ExecuteRemoteQuery(Query As String, JobName As String)
Dim job As HttpJob
job.Initialize(JobName, Me)
'job.PostString("https://www.b4x.com/android/countries.php", Query) óriginal sample
'job.PostString("https://192.168.0.5/casureco2", Query)
job.PostString("https://127.0.0.1:17178/casureco2", Query)
End Sub
Sub JobDone(Job As HttpJob)
ProgressDialogHide
If Job.Success Then
Dim res As String
res = Job.GetString
Log("Response from server: " & res)
Dim parser As JSONParser
parser.Initialize(res)
Select Job.JobName
Case COUNTRIES_LIST
Dim COUNTRIES As List
COUNTRIES = parser.NextArray 'returns a list with maps
Dim m As Map
For i = 0 To COUNTRIES.Size - 1
m = COUNTRIES.Get(i)
'We are using a custom type named TwoLines (declared in Sub Globals).
'It allows us to later get the two values when the user presses on an item.
Dim tl As TwoLines
tl.First = m.Get("id")
tl.Second = m.Get("name")
ListView1.AddTwoLines2(tl.First, tl.Second, tl)
Next
Case COUNTRY_POPULATION
Dim l As List
l = parser.NextArray
If l.Size = 0 Then
lblPopulation.Text = "N/A"
Else
Dim m As Map
m = l.Get(0)
lblPopulation.Text = NumberFormat2(m.Get("population"),0, 0, 0, True) & " (K)"
End If
End Select
Else
Log(Job.ErrorMessage)
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub#AdditionalJar: mysql-connector-java-5.1.27-bin#AdditionalJar: mysql-connector-java-5.1.22-bin
Of course not.
JdbcUrl=jdbc:mysql://192.168.0.5:3306/test?characterEncoding=utf8Private const rdcLink As String = "http://yourPCip:17178/rdc"JdbcUrl=jdbc:mysql://localhost:3306/test?characterEncoding=utf8Private const rdcLink As String = "http://192.168.0.5:17178/rdc"
