Discussion :

[jer64]

Bonjour,

Je n'arrive pas à récupérer l'indice par la fonction "Cherche" d'un rdv dans Google Agenda pour ensuite supprimer ce rendez-vous.

En fait je veux supprimer tous les rdv dont l'identifiant Google est égale à IdGoogle préalablement enregistré dans la table de ma base MySQL.

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
56
57
 
 
PROCEDURE SupprimeRdvDsGoogle()
 
bMareqsql est un booléen
MonAgenda est un gglAgenda
Evt est un gglEvénement
sIdGoogle est une chaîne
nIndice est un entier
 
 
// Connexion à ma Base Mysql
 
ConnexionBase()
 
bMareqsql=SQLExec("Lock Table agendaevenement write","req1")
Fen_Depart.MesReqSql(bMareqsql,"req1")
 
//Je récupère le nom de mon Agenda Google ("Pour") et l'Id du rdv dans Agenda Google ("IdGoogle")
 
bMareqsql=SQLExec("select Pour,Idgoogle,ID from agendaevenement where idgoogle is not Null and Supprime='1'","req1")
MesReqSqlTables(bMareqsql,"req1")
 
CnxGoogle()
 
 
 
TANTQUE SQLAvance("req1")=0
 
	sIdGoogle=SQLLitCol("req1",2)
 
 
 
 
 
	MonAgenda=GglRécupèreAgenda(Cnx,SQLLitCol("req1",1))
 
 
	nIndice=Cherche(MonAgenda.Evénement,tcLinéaire,MonAgenda.Identifiant,sIdGoogle)
 
 
 
 
	Supprime(MonAgenda.Evénement,nIndice)
 
 
 
 
	GglEcrit(Cnx,MonAgenda)
 
 
 
 
 
FIN
 
SQLDéconnecte()

Cela me renvoie une erreur "Propriété 'http' interdite"

Merci d'avance pour votre aide.

[jer64]

En fait je me suis trompé sur la fonction cherche, elle ne fait que rechercher l'indice de chaque évènement de mon Google agenda. Mais il me reste un problème de boucle.

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
60
61
62
 
 
PROCEDURE SupprimeRdvDsGoogle()
 
bMareqsql est un booléen
MonAgenda est un gglAgenda
sIdGoogle est une chaîne
nIndice est un entier
 
 
 
//connexion à la base MySQL
 
ConnexionBase()
 
bMareqsql=SQLExec("Lock Table agendaevenement write","req1")
Fen_Depart.MesReqSql(bMareqsql,"req1")
 
//Je récupère le nom de mon Agenda Google ("Pour") et l'Id du rdv dans Agenda Google ("IdGoogle")
 
bMareqsql=SQLExec("select Pour,Idgoogle,ID from agendaevenement where idgoogle is not Null and Supprime='1'","req1")
 
MesReqSqlTables(bMareqsql,"req1")
 
CnxGoogle()
 
 
 
TANTQUE SQLAvance("req1")<>1
 
	sIdGoogle=SQLLitCol("req1",2)
 
 
 
	MonAgenda=GglRécupèreAgenda(Cnx,SQLLitCol("req1",1),"20100101")
 
 
		POUR TOUT Unevenement DE MonAgenda.Evénement
 
		nIndice=Cherche(MonAgenda.Evénement,tcLinéaire,"Identifiant",Unevenement.Identifiant)
 
 
 
 			SI sIdGoogle=MonAgenda.Evénement[nIndice].Identifiant ALORS
 
	Supprime(MonAgenda.Evénement,nIndice)
 
              GglEcrit(Cnx,MonAgenda)
 
			FIN
 
		FIN
 
 
 
 
 
 
 
FIN
 
SQLDéconnecte()

Cela ne fait que comparer l'IdGoogle de ma base en cours avec le nIndice en cours alors que je dois comparer chaque nindice avec l'IdGoogle en cours ou inversement.

Je creuse mais je n'y arrive pas.