Discussion :

[Fred_rt]

Bonjour,

Je développe une application Android qui enregistre un TAG NFC et le lie à un client (+sa position GPS).
Au démarrage, l'application fait un SELECT sur le serveur et insère les données dans une table locale de l'application via les services Web de Windev (serveur vers Android). Pas de souci.

Maintenant la table locale a été modifiée et je souhaite donc mettre à jour la table sur le serveur (Android vers serveur).
Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Procedure UpdateProteckSites()
sdLocaledb est une Source dede Données
sReqUP est une chaîne
 
 
sRequete = [
SELECT
SitesDBLocale.IDSite AS IDSite,
SitesDBLocale.NFCTagSite AS NFCTagSite,
SitesDBLocale.Latitude AS Latitude,
SitesDBLocale.Longitude AS Longitude
FROM
SitesDBLocale
WHERE
SitesDBLocale.NFCTagSite <> 'NULL' AND Sitesdblocale.Latitude <> '0.000000' AND Sitesdblocale.Longitude <> '0.000000'
ORDER BY
IDSite Asc
]
 
sReqUP = [
UPDATE
sites
SET
SiteTAG = '%1', SiteLatitude = '%2', SiteLongitude = '%3'
WHERE
sites.IDSite = '%4'
]
 
 
 
HExécuteRequêteSQL(sdLocaledb,hRequêteDéfaut,sRequete)
HLitPremier(sdLocaledb,IDSite)
TANTQUE HEnDehors() = Faux
nIDSite = sdLocaledb.IDSite
sSiteTag = sdLocaledb.NFCTagSite
sLatitude = sdLocaledb.Latitude
sLongitude = sdLocaledb.Longitude
 
SI nConnexionDB <> 0 ALORS //nConnexionDB est un entier = SQLConnecteWS("http://srv-ws/WDSOAPDB_WEB/","srv-ws","admin","xxxxxxxxxxx","XXXXX","MYSQL")
 
sReqUP = ChaîneConstruit(sReqUP,sSiteTag,sLatitude,sLongitude,nIDSite)
 
// info(sReqUP) --> donne la bonne requête
 
SQLExec(sReqUP,"MonUpdate")
SQLDéconnecte()
 
SINON
SQLInfoGene()
Erreur(SQL.MesErreur)
ChangeEtatRondierPlus(3)
FIN
HLitSuivant(sdLocaledb,IDSite)
 
FIN

Pas d'erreur mais en revanche la table du serveur n'est pas mise à jour. En mode test par Windev Mobile et en entrant des valeurs en dur dans la requête, cela fonctionne. Je ne comprends pas pourquoi cela ne fonctionne pas. J'ai fais différents tests avec SQLExec CREATE TABLE, SELECT, c'est ok. Mais UPDATE, ça ne veut pas...

Je remercie la communauté par avance.

Fred

[Fred_rt]

Voici la solution, en fait, il faut relancer la connexion et c'est ok:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Procedure UpdateProteckSites()
sdLocaledb est une Source dede Données
sReqUP est une chaîne
 
 
sRequete = [
SELECT
SitesDBLocale.IDSite AS IDSite,
SitesDBLocale.NFCTagSite AS NFCTagSite,
SitesDBLocale.Latitude AS Latitude,
SitesDBLocale.Longitude AS Longitude
FROM
SitesDBLocale
WHERE
SitesDBLocale.NFCTagSite <> 'NULL' AND Sitesdblocale.Latitude <> '0.000000' AND Sitesdblocale.Longitude <> '0.000000'
ORDER BY
IDSite Asc
]
 
sReqUP = [
UPDATE
sites
SET
SiteTAG = '%1', SiteLatitude = '%2', SiteLongitude = '%3'
WHERE
sites.IDSite = '%4'
]
 
 
 
HExécuteRequêteSQL(sdLocaledb,hRequêteDéfaut,sRequete)
HLitPremier(sdLocaledb,IDSite)
TANTQUE HEnDehors() = Faux
nIDSite = sdLocaledb.IDSite
sSiteTag = sdLocaledb.NFCTagSite
sLatitude = sdLocaledb.Latitude
sLongitude = sdLocaledb.Longitude
 
sReqUP = ChaîneConstruit(sReqUP,sSiteTag,sLatitude,sLongitude,nIDSite)
 
SQLConnecteWS("http://srv-ws/WDSOAPDB_WEB/","srv-ws","admin","xxxxxxxxxxx","XXXXX","MYSQL")
 
SI nConnexionDB <> 0 ALORS 
 
sReqUP = ChaîneConstruit(sReqUP,sSiteTag,sLatitude,sLongitude,nIDSite)
 
 
SQLExec(sReqUP,"MonUpdate")
SQLFerme(sReqUP)
SQLDéconnecte()
 
SINON
SQLInfoGene()
Erreur(SQL.MesErreur)
ChangeEtatRondierPlus(3)
FIN
HLitSuivant(sdLocaledb,IDSite)
 
FIN

Voilà, si ça peut servir.