Spanish consultar bases de datos mysql

Sub Process_Globals
   Dim hc As HttpClient
   Dim Camp1, Camp2,Camp3 As String   
End Sub

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

Sub ejecutar_query()
   Dim Query,TascaId As String 'Query es la cadena que contiene la consulta y
                        'TascaId se utiliza para identificar la solicitud
                        'ya que el proceso se realiza de forma asincrona.
                        'La respuesta en hc_responsesuccess incluira este valor
                        'permitiendonos saber a que consulta corresponde.
   Query ="SELECT tabla.Camp1, tabla.Camp2, tabla.Camp3 FROM tabla "
   Dim Consulta As HttpRequest
   Consulta.InitializePost2("http://192.168.1.100/codigo.php",Query.GetBytes("UTF8"))
   hc.Execute(Consulta,TascaId)
End Sub

Sub hc_responseerror(Response As HttpResponse,Reason As String, Statuscode As Int,TascaId As Int)
    'Colocar aqui control de errores en la respuesta
End Sub

Sub hc_responsesuccess(Response As HttpResponse,TascaId As Int)
   Dim Resp As String
   Dim Parser As JSONParser
   Dim Registres As List
   Resp = Response.GetString("UTF8") 'La respuesta contiene un formato JSON
   Parser.Initialize(Resp) 'que analizamos con este JSONParser
   Registres = Parser.NextArray 'En la lista Registres cargamos el array resultante
   For i = 0 To Registres.Size - 1 'Recorremos la lista y cargamos el mapa m con los pares de valores
      Dim m As Map
      m = Registres.Get(i)
      Camp1 = m.Get("Camp1")  'Los pares key / value del map corresponden al nombre del campo de la tabla
      Camp2 = m.Get("Camp2")  'y al contenido del mismo.
      Camp3 = m.Get("Camp3")  
   Next 
   Response.Release      
End Sub