Spanish Llenar spinner + mysql

Sub llenadospiner
MapPaises.Clear
Spinner1.Clear
c=s.ExecQuery(¨SELECT id,pais FROM Paises ORDER BY pais¨)
If c.RowCount>0 Then
For i=0 To c.RowCount-1
c.Position=i
Spinner1.Add(C.GetString(¨pais¨)
MapPaises.Put("pais","id")
Next
Else
´algo....
Enf if
End Sub

ValorADesignar=MapPaises.Get(Spinner.SelectedItem)

Sub Spinnerllenar
        Dim lista As List
        lista.Initialize
        s.BeginTransaction
        c = s.ExecQuery("SELECT * FORM tu_tabla")
        For I = 0 To c.RowCount - 1
        c.Position = I
        Spinner1.Add(c.GetString("nombre"))
        lista.Add(c.GetString("id"))
        Next
        Spinner1.Tag = lista
        s.TransactionSuccessful
        s.EndTransaction
        c.Close
End Sub

Dim id As Int
Dim cbValor As List
cbValor = Spinner1.Tag
id = cbValor.Get(Spinner1.SelectedIndex)

Sub Process_Globals
    Dim VarPais As String
End Sub

Sub Activity_Create(FirstTime As Boolean)
    CargaDatos
End Sub

Sub CargaDatos
     'CargaDatos del Cliente
     'Una ves que cargas los datos del Cliente, tambien trayendo el pais
      VarPais = m.Get("pais")
      Spinnerllenar
End Sub

Sub Spinnerllenar
        Dim lista As List
        lista.Initialize
        s.BeginTransaction
        If VarPais == "" Then
            c = s.ExecQuery("SELECT * FORM Paises")
        Else
            c = s.ExecQuery("SELECT * FORM Paises WHERE Pais = "&VarPais)
        End If
        For I = 0 To c.RowCount - 1
        c.Position = I
        Spinner1.Add(c.GetString("pais"))
        lista.Add(c.GetString("id"))
        Next
        Spinner1.Tag = lista
        s.TransactionSuccessful
        s.EndTransaction
        c.Close
End Sub

Spinner1.SelectedIndex(Spinner1.IndexOf(MapPaises.Get("pais"))

Sub Globals

    Dim h1 As HttpJob
    Dim h2 As HttpJob
    Dim Json1 As JSONParser
    Dim Json2 As JSONParser

End Sub

Sub Activity_Create(FirstTime As Boolean)

    Activity.LoadLayout("plantilla")

    h1.initialize("json1", Me)
    h1.Download2("http://www.prueba.cl/prueba.php", Array As String("codigo", "0"))

    h2.initialize("json2", Me)
    h2.Download2("http://www.prueba.cl/cliente.php", Array As String("codigo", "0"))

End Sub

Sub JobDone(job As HttpJob)

    If job.Success Then
        Select job.JobName
            Case "json1"
                CargarSpinner(job.GetString)
            Case "json2"
                CargarCliente(job.GetString)
        End Select
    Else
        Msgbox(job.ErrorMessage, "Error")
    End If

End Sub

Sub CargarSpinner(datos As String)

    Json1.Initialize(datos)

    Dim m As Map

    m=Json1.NextObject
    Dim data As List
    data=m.Get("data")

    Dim lista As List
    lista.Initialize

    For i = 0 To data.Size-1
        m=data.Get(i)
        Spinner.add(m.Get("Paises"))
        lista.Add(m.Get("ID"))
    Next

    Spinner.Tag = lista

End Sub

Sub CargarCliente(datos As String)

    Json2.Initialize(datos)

    Dim m As Map
    m=Json2.NextObject
    Dim data As List
    data=m.Get("data")

    m=data.Get(0)

    LblNom.Text = m.Get("nombre")
    ...
    ...
    ...
    Spinner/*Como lo cargo*/


End Sub

spinner.SelectedIndex=()

Sub CargarCliente(datos As String)

    Json2.Initialize(datos)

    Dim m As Map
    m=Json2.NextObject
    Dim data As List
    data=m.Get("data")

    m=data.Get(0)

    LblNom.Text = m.Get("nombre")
    ...
    ...
    ...
    'Spinner Como lo cargo 
    Spinner.SelectedIndex(Spinner.IndexOf(m.Get("pais"))

End Sub

Sub Process_Globals
    Private Server As String
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Server = "DIRECCION DEL ARCHIVO PHP EN TU SERVIDOR"
    User_PHP
End Sub

Sub GetData(SQL_Cadena As String, sJob As String)
    Dim GetSQL As HttpJob
    GetSQL.Initialize(sJob, Me)
    GetSQL.download2(Server, Array As String ("SQL", SQL_Cadena))
End Sub

Sub User_PHP
    GetData("SELECT * FROM usuario WHERE Alguna condicion;","GetUsuario")
End Sub

Sub JobDone(Job As HttpJob)
    If Job.Success Then
            Dim res As String
            res = Job.GetString
            Log("Back from Job:" & Job.JobName )
            Log("Job Text: " & res)
            Dim parser As JSONParser
            parser.Initialize(res)

        Select Job.JobName
       
            Case "GetUsuario"
               Dim ListOfUsuario As List
                 ListOfUsuario = parser.NextArray 'returns a list with maps
                If ListOfUsuario.Size == 0 Then
                   '
                Else
                    s.BeginTransaction
                    s.ExecNonQuery("DELETE FROM usuario")
                    For i = 0 To ListOfUsuario.Size - 1
                        Dim Users As Map
                        Users = ListOfUsuario.Get(i)
                        s.ExecNonQuery2("INSERT INTO usuario VALUES(?,?,?,?,?,?)", Array As String(Users.Get("id_usuario"), Users.Get("nombre"), Users.Get("imei"), Users.Get("activo"), Users.Get("id_zona"), Users.Get("usr_tipo")))
                    Next
                    s.TransactionSuccessful
                    s.EndTransaction
                End If
        End Select
    Else
        'ToastMessageShow("Error: " & Job.ErrorMessage, True)
    End If
    Job.Release

End Sub

Sub SincronizaRegistro
    s.BeginTransaction
    c = s.ExecQuery("SELECT * FROM registro WHERE id_registro = 0 ORDER BY id")
    For i = 0 To c.RowCount-1
    c.Position = i
    GetData("AQUI PUEDE IR UN INSERT O UN UPDATE MYSQL PHP"; SELECT * FROM USUARIO", "GetRegistro")  ' PUEDES HACER UN SELECT Y TRAER LOS REGISTROS ENVIADOS AL SERVIDOR Y DEJARLOS EN EL TELEFONO NUEVAMENTE ACTUALIZADOS.
    Next

    s.TransactionSuccessful
    s.EndTransaction
End Sub

<?php

    $host = "SERVIDOR";
    $user = "USER";
    $pw = "PASS";
    $db = "BASE DE DATOS";

    $conn = new mysqli($host, $user, $pw, $db);

    /* verificar la conexión */
    if ($conn->connect_error) {
        die("Connection failed: " . $conn->connect_error);
    }
    /* cambiar el conjunto de caracteres a utf8 */
    if (!$conn->set_charset("utf8")) {
        printf("Error cargando el conjunto de caracteres utf8: %s\n", $mysqli->error);
    exit();
    }

    $result = $conn->query($sql);

    $SQL = $_GET["SQL"];
    $SQL_SEPARADO = explode(";", $SQL);

    for($i = 0 ;$i<count($SQL_SEPARADO);$i++) {
        if ($SQL_SEPARADO[$i]!='') {
            $pre = $conn->query($SQL_SEPARADO[$i]);
            if ($pre->num_rows > 0) {
                $rows = array();
                while($r = $pre->fetch_assoc()) {
                    $rows[] = $r;
                }
            }
        }
    }
       print json_encode($rows);

?>

Spinner.SelectedIndex = Spinner.IndexOf(Map.Get(m.Get("pais")))