Hello
I have written an application which is used on 4 IPADs
The customer has three IPAD AIR 2 and one IPAD AIR PRO
The application is working fine, all the time, on the three IPAD AIR 2
but on the IPAD AIR PRO, sometimes I got a time-out when I want to send data to the server
I have reboot this IPAD, I have disable and re-enable the wifi
I have check if the email or access to internet , it is ok
but my application got a time-out response and nothing has been received in the server
I don't know what to do to solve this problem
I am using this librairies :
the code si :
'Envoi des interventions
private Sub EnvoiInterventions
If NBInterventions > 0 Then
Dim commands As List
commands.Initialize
MSG("Envoi des interventions sur le serveur, NB = " & NBInterventions)
Dim rs As ResultSet = SQL1.ExecQuery("SELECT * FROM interventions")
Do While rs.NextRow
Dim cmdx As DBCommand
cmdx.Initialize
cmdx.Name = "insert_interventions"
cmdx.Parameters = Array(rs.GetString("NumContrat"), rs.GetString("NumClient"), _
rs.GetString("Intervenant"),rs.GetString("Date"),rs.Getstring("Texte"), _
rs.GetString("Type_Com"),rs.GetString("Code") )
commands.Add(cmdx)
Loop
rs.close
reqManager.ExecuteBatch(commands,"insert_interventions")
End If
End Sub
Thanks for any help
Best Regards
Yves
I have written an application which is used on 4 IPADs
The customer has three IPAD AIR 2 and one IPAD AIR PRO
The application is working fine, all the time, on the three IPAD AIR 2
but on the IPAD AIR PRO, sometimes I got a time-out when I want to send data to the server
I have reboot this IPAD, I have disable and re-enable the wifi
I have check if the email or access to internet , it is ok
but my application got a time-out response and nothing has been received in the server
I don't know what to do to solve this problem
I am using this librairies :
the code si :
'Envoi des interventions
private Sub EnvoiInterventions
If NBInterventions > 0 Then
Dim commands As List
commands.Initialize
MSG("Envoi des interventions sur le serveur, NB = " & NBInterventions)
Dim rs As ResultSet = SQL1.ExecQuery("SELECT * FROM interventions")
Do While rs.NextRow
Dim cmdx As DBCommand
cmdx.Initialize
cmdx.Name = "insert_interventions"
cmdx.Parameters = Array(rs.GetString("NumContrat"), rs.GetString("NumClient"), _
rs.GetString("Intervenant"),rs.GetString("Date"),rs.Getstring("Texte"), _
rs.GetString("Type_Com"),rs.GetString("Code") )
commands.Add(cmdx)
Loop
rs.close
reqManager.ExecuteBatch(commands,"insert_interventions")
End If
End Sub
Thanks for any help
Best Regards
Yves