Spanish Problema al Actualizar Tablas

dhernandez

Active Member
Licensed User
Hola Amigos, tengo un detalle al actualizar dos tablas desde mi servidor a mi dispositivo movil, mediante Remote Database Connector(RDC).
Utilizo este metodo para actualizar una tabla:
B4X:
Sub JobDone(Job As HttpJob)
    If Job.Success = False Then
        ToastMessageShow("No es posible la conexión",True)
    Else 
        If Job.JobName = "DBRequest" Then
              If SQL1.IsInitialized=False Then SQL1.Initialize(ruta, "am14dbishe.db", True, "Asdfg1234",ruta)
                  SQL1.ExecNonQuery("DELETE FROM t_extintor_titulo")
                Dim Result As DBResult = ReqManagerList.HandleJob(Job)
                SQL1.BeginTransaction                       
                  For Each records() As Object In Result.Rows           
                       SQL1.ExecNonQuery2("INSERT INTO t_extintor_titulo VALUES (?,?,?,?,?,?,?)",Array As Object(records(0),records(1),records(2),records(3),records(4),records(5),records(6)))
                Next
                 SQL1.TransactionSuccessful
                 SQL1.EndTransaction   
            End If
    End If
End Sub
Pero como le hago para actualizar dos tablas?

Actualmente trato de hace esto junto con el sub JobDone, Pero no resulta :( :
B4X:
Sub TrabajoTerminado(Trabajo As HttpJob)
    If Trabajo.Success = False Then
        ToastMessageShow("No se puede realizar la conexion", True)
    Else
        If Trabajo.JobName = "Consulta1" Then
            SQL1.ExecNonQuery("DELETE FROM t_extintor_det")
            Dim Resultado As DBResult = AdministrarLista.HandleJob(Trabajo)
                SQL1.BeginTransaction
                For Each Registros() As Object In Resultado.Rows
                    SQL1.ExecNonQuery2("INSERT INTO t_extintor_det VALUES (?,?,?,?,?)", Array As Object(Registros(0),Registros(1),Registros(2),Registros(3),Registros(4)))
                   
                Next
                SQL1.TransactionSuccessful
                 SQL1.EndTransaction   
        End If
    End If
End Sub
Lo pregunte en foro de Ingles, pero en Ingles estoy frito y el traductor me confunde...
 

Heppy

Active Member
Licensed User
Yo cuando tengo que hacer varias operaciones pongo un puntero. Por ejemplo Operacion=1, Operacion=2.

Entonces digo ActualizarTabla1 y Operacion 1.
Luego lo mismo con tabla 2, etc

Sub TrabajoTerminado(Trabajo As HttpJob)
If Trabajo.Success = False
else
If Operacion=1 then actualizotabla1
If Operacion=2 then Actualizotabla2
..........
 

dhernandez

Active Member
Licensed User
Gracias Heppy, pero siendo sincero no te comprendí. :(
 

Heppy

Active Member
Licensed User
Perdona a ver si me explico


B4X:
Dim Operacion as Integer
Sub TareasPorbotonoautomatico
  If Operacion=1 then
    Hago un select a la table que quiero actualizar
    En JobDone miro si operacion=1 y actualizo una tabla
  end if
  If Operacion=2 then
   Hago un select a la segunda tabla del PC y la actualizo en JobDone
  end If
end sub 

Sun JobDone
  If Job.Success = FalseThen
    ToastMessageShow("No es posible la conexión",True)
  Else If Job.JobName = "DBRequest" Then
    If Operacion=1 then
      hago delete y actualizo Tabla1
      Operacion=2
    end if
    If Operacion=2 then
      Actualizo table2
      Operacion=3
    end if
  end if
  Y vuelves a llamar a la funcion Tareas.
end if
Espero que me entiendas
 

dhernandez

Active Member
Licensed User
Ohhh en tiendo maestro, eres grande :3..
 

Heppy

Active Member
Licensed User
Gracias por tu piropo, pero nada grande.

Lo que más manejo es el RDC, por que es lo que más he sufrido.

Es lo que deberiamos hacer los usuarios del foro español para no dar tantas vueltas por inglés.

Cuando lo tengas funcionando, postea si te ha servido y pones Solucionado al título, para incluirlo en el indice que estamos realizando y buscar soluciones más rapidamente o para tener una pequeña biblioteca.

Pon si puedes el código de las dos funciones y así todo completo.

Muchas gracias por responder y hacer feedback de los post
 

dhernandez

Active Member
Licensed User
Claro que si Heppy, ahora lo estoy probando, ya te aviso cuando termine.. Gracias
 
Top