Spanish Conexion remota con base de datos ¿ Cual es la opción más rápida/ cómoda de programar en la App ?

     'Permisos para poder acceder al server mysql
         AddPermission("android.permission.INTERNET")
         AddPermission("android.permission.ACCESS_NETWORK_STATE")

Sub Process_Globals
    Public mysql As JdbcSQL Private driver As String = "com.mysql.jdbc.Driver"
    Private Username As String = "RED"
    Private Password As String = "-- tu clave --"
End Sub

      Sub mysql_ejec_consulta_resultado(mysql_datos As Map) As ResumableSub
          Dim mysql_user = mysql_datos.Get("mysql_user_map") As String
          Dim mysql_ip = mysql_datos.Get("mysql_ip_map") As String
          Dim mysql_db = mysql_datos.Get("mysql_db_map") As String
          Dim mysql_consulta = mysql_datos.Get("mysql_consulta_map") As String
          Dim mysql_consulta_contar = mysql_datos.Get("mysql_consulta_contar_map") As String
          
          Log("MYSQL JDBC: User: " & mysql_user)
          Log("MYSQL JDBC: Ip: " & mysql_ip)
          Log("MYSQL JDBC: Db: " & mysql_db)
          Log("MYSQL JDBC: Consulta: " & mysql_consulta)
          Log("MYSQL JDBC: Consulta contar: " & mysql_consulta_contar)
      
          'Se define el resultado a devolver
          Dim mysql_resultado As Map
          mysql_resultado.Initialize
              
          Log ("MYSQL JDBC: mysql_resultado As Map Inicializado")
          
          mysql.InitializeAsync("mysql", driver, "jdbc:mysql://"& mysql_ip &"/"& mysql_db &"", mysql_user, Password)
          Wait For MySQL_Ready (Success As Boolean)
          Log ("MYSQL JDBC: Success: " & Success)
          mysql_resultado.Put("Success", Success)
          If Success = False Then
              Log("MYSQL JDBC: Check unfiltered logs for JDBC errors.")
          Else
              Log ("MYSQL JDBC: Try se ejecuta consulta")
              'Se ejecuta la consulta
              Try
                  Dim cursor As JdbcResultSet
                  'Dim cursor As ResultSet
                  cursor = mysql.ExecQuery(mysql_consulta)
                  Log ("MYSQL JDBC: Se ejecuta consulta")
                  'Log ("MYSQL JDBC: Encontrado: " & cursor.NextRow)
                  
                  'Se almacena el resultado
                      mysql_resultado.Put("Cursor_ResultSet", cursor)
                      If cursor.NextRow Then
                          Log ("MYSQL JDBC: Encontrado: " & "Si")
                          mysql_resultado.Put("Encontrado", "Si")
                      Else
                          Log ("MYSQL JDBC: Encontrado: " & "No")
                          mysql_resultado.Put("Encontrado", "No")
                      End If
                      
                  'Se cuenta si es posible
                      Dim cursor_cont As JdbcResultSet
                      'Dim cursor As ResultSet
                      Log ("MYSQL JDBC: Se ejecuta consulta contar")
                      cursor_cont = mysql.ExecQuery(mysql_consulta_contar)
                      If (cursor_cont.NextRow = False) Then
                          'Se almacena el resultado
                              mysql_resultado.Put("contar", 0)
                      Else                   
                          'cursor_cont.NextRow
                          'Se almacena el resultado
      '                        If (cursor_cont.GetInt("CONTAR") = Null) Then                   
      '                            mysql_resultado.Put("contar", 0)
      '                        Else
                                  mysql_resultado.Put("contar", cursor_cont.GetInt("CONTAR"))
      '                        End If
      '                    If cursor_cont.GetInt("CONTAR") > 0 Then
      '                        mysql_resultado.Put("Encontrado", "Si")
      '                    Else
      '                        mysql_resultado.Put("Encontrado", "No")
      '                    End If
                      End If
              Catch
                  Log(LastException)
                  Log("error de mysql_ejec_consulta_resultado")
                  mysql_resultado.Put("Encontrado", "No")
              End Try
          End If
          
      
          Return mysql_resultado
      End Sub

                    'Se generan los parametros
                        Dim Mysql_consulta As Map
                        Mysql_consulta.Initialize
                        Mysql_consulta.Put("mysql_user_map", "RED")
                        Mysql_consulta.Put("mysql_ip_map", ip_server_local)
                        Mysql_consulta.Put("mysql_db_map", "productos_2")
'                        If lista_precios_nro <> 0 Then
                            Mysql_consulta.Put("mysql_consulta_map", "SELECT CATEGORIA AS CATEGORIAS FROM Lista WHERE CATEGORIA IS NOT NULL GROUP BY CATEGORIA")
                            Mysql_consulta.Put("mysql_consulta_contar_map", "SELECT COUNT( N.CATEGORIA ) AS CONTAR FROM (SELECT CATEGORIA FROM Lista WHERE CATEGORIA IS NOT NULL GROUP BY CATEGORIA) AS N")
'                        Else
'                            Mysql_consulta.Put("mysql_consulta_map", "Select VALOR AS VALOR FROM Conteos WHERE TIPO = 'AUTOCOD_TEL' AND DATO = '"& agregar_editar_server_autocodigo_edittext.Text)
'                            Mysql_consulta.Put("mysql_consulta_contar_map", "SELECT 1 as CONTAR")           
'                        End If
                    'Se intenta la consulta
                        Wait For (CallSub2(Starter, "mysql_ejec_consulta_resultado", Mysql_consulta)) Complete (resultado_consulta As Map)

                    'Log(Success)
                    'Se extrae el Success del mapa
                    Dim Success = resultado_consulta.Get("Success") As Boolean

Dim cursor = resultado_consulta.Get("Cursor_ResultSet") As JdbcResultSet

                    If Success = False Then
                        Msgbox("No se ha encontrado el servidor, por favor verifique su conexión al wifi del local y la configuración. Entrando en -Configuración- encontrará una herramienta para obtener la IP correspondiente al Server Local.","Servidor no encontrado.") 'ignore
                        conectar_server_agregar_editar
                    Else
                    'Conexion establecida

                        'Se extraen los valores del mapa
                            Dim Encontrado = resultado_consulta.Get("Encontrado") As String
            Log("resultado_consulta.Get('Encontrado'): " & resultado_consulta.Get("Encontrado"))
                        'Se verifica si se encontro
                            If Encontrado = "Si" Then
                                Dim cursor = resultado_consulta.Get("Cursor_ResultSet") As JdbcResultSet
                                'Dim cantidad_existente = resultado_consulta.Get("CANTIDAD_EXISTENTE") As Float
                                'Se crea la lista
                                    Dim l As List
                                    l.Initialize                               
                                'Se recorre y agregan las categorias
                                    Dim cant = 0 As Int
                                    Dim ultimo_leido = "-12122#" As String
                                    Do While cursor.GetString("CATEGORIAS") <> ultimo_leido
                                        If cursor.GetString("CATEGORIAS") <> "" Then l.Add(cursor.GetString("CATEGORIAS"))
                                        
                                        'Log(cursor.GetString("CATEGORIAS"))

                                        cant = cant + 1
                                        ultimo_leido = cursor.GetString("CATEGORIAS")
                                            If cursor.NextRow Then
                                            Else
                                                Exit   
                                            End If
                                    Loop
                                'Se muestra la lista de seleccion
                                    Dim Res As Int
                                    Res = InputList(l, "Seleccione la categoria...(" & l.Size & ")", -1) 'Ignore
                                    If Res <> DialogResponse.CANCEL Then
                                        'Se asigna el valor
                                            agregar_editar_server_categoria_edittext.Text = l.Get(Res)
                                    End If
                            End If
                    End If