Spanish Tutorial RDC y MySQL

  Dim Name As Int = 1
  cmd.Initialize
  cmd.Name = "select_inst"
  cmd.Parameters = Array As Object(Name)
  reqManager.ExecuteQuery(cmd, 0, Null)

sql.select_inst=SELECT ID,TIPO,NUMERO,SITUACION,ZONA FROM gsituaciones where ID=?

  Dim id as int = 1
  Dim f as Float = 0
   cmd.Initialize
  cmd.Name = "update_posicion"
  cmd.Parameters = Array As Object(f,i)
  reqManager.ExecuteCommand(cmd,, Null)

sql.update_posicion=UPDATE GSITUACIONES SET LATITUD=? WHERE ID=?

jdbcUrl=jdbc:firebirdsql://192.168.1.162/c:/Android/UMBELA.FDB

JdbcUrl=jdbc:firebirdsql://192.168.1.162/c:/Android/UMBELA.FDB

DriverClass=net.sourceforge.jtds.jdbc.Driver
JdbcUrl=jdbc:jtds:sqlserver://127.0.0.1:1433/Facture;instance=SQLEXPRESS 'Tu base
ServerPort=17178
#If Debug is true then this file will be reloaded on every #query.
#This is useful if you need to modify the queries.
Debug=true
#commands
sql.select_inst=SELECT ID,TIPO,NUMERO,SITUACION,ZONA FROM situaciones
'Vas añadiendo sentencias que luego utilizarás (siempre empiezan por sql.)

"C:\Program Files\Java\jdk1.7.0_45\bin\java" -Xmx256m -cp .;libs\*;jdbc_driver\* anywheresoftware.b4a.remotedatabase.RemoteServer

  If reqManager.IsInitialized Then
    Operacion=0
    ToastMessageShow("Espere, por favor. ACTUALIZANDO", False)
    Dim cmd As DBCommand
      Dim Name As String
      cmd.Initialize
      cmd.Name = "select_inst"
      cmd.Parameters = Array As Object(Name)
      reqManager.ExecuteQuery(cmd, 0, Null)
  End If
End Sub

Sub JobDone(Job As HttpJob)
    If Job.Success = False Then
        'Log("Error: " & Job.ErrorMessage)
        ToastMessageShow("Hable con el Administrador. No es posible la conexión",True)
    Else  
        If Job.JobName = "DBRequest" Then
 
           If sqlCM.IsInitialized=False Then sqlCM.Initialize(File.DirInternal,"CM.db",True)
          sqlCM.ExecNonQuery("DELETE From CM")
          Dim result As DBResult = reqManager.HandleJob(Job)
         'reqManager.PrintTable(result)
          sqlCM.BeginTransaction
         For Each records() As Object In result.Rows
            sqlCM.ExecNonQuery2("INSERT INTO CM VALUES(?,?,?,?,?)",Array As Object(records(0),records(1),records(2),records(3),records(4)))
         Next 
         sqlCM.TransactionSuccessful
         sqlCM.EndTransaction