Spanish Ayuda con Insert

[Rafel Llabres]

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?

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]

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?

 

[Rafel Llabres]

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]

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?

 

[Rafel Llabres]

En las dos BD's es texto.