Spanish Ayuda con Insert

Rafel Llabres

New Member
Licensed User
Hola, estoy intentando insertar registros de mi sqlite a una mysql remota. Me esta haciendo inserts pero no de todos los registros. Consulto toda la tabla, hay unos 31 reg. y solo me inserta 5.
Alguna idea?

B4X:
Sub envio
Dim req As HttpRequest
Dim Query As String
Dim P As Int
Dim sentencia As String
Dim Cursor As Cursor


   
    sentencia = "SELECT IDEMPL FROM RUTA"
    Cursor = SQL2.ExecQuery(sentencia)
    For P = 0 To Cursor.RowCount - 1
        Cursor.Position = P
        ENV_NEMPLEADO = Cursor.GetString("IDEMPL")
        Query="INSERT INTO DIARIO (idEmpl) VALUES ('"&ENV_NEMPLEADO&"')"
        req.InitializePost2("http://www.esmolinou.com/verdiblau/conexion.php", Query.GetBytes("UTF8"))
        hc.Execute(req, 0)
        ENV_NEMPLEADO = ""
       
        'Msgbox (ENV_NEMPLEADO,"AVISO")
    Next
   
    Cursor.Close



End Sub
 

josete

Member
Licensed User
De entrada le daria un nombre diferente a Cursor para diferenciarla del tipo (por ejemplo c minuscula).
Dim cursor As Cursor
Por otro lado idEmple es int o text en la tabla original?
 
Last edited:

Rafel Llabres

New Member
Licensed User
Gracias, lo acabo de probar pero solo me inserta el primer registro. Con el hc.Execute me inserta el registro, luego se va al hc_ResponseSuccess, pero no continua con el For. Algo se me escapa. Gracias de antemano.
 

josete

Member
Licensed User
Perdona ,estoy editando la respuesta y asi no hacemos nada... IdEmple es numerico en la tabla original y en la mysql o es tipo texto?
 
Top