Discussion :

[jer64]

Bonsoir,

Je travaille sur la synchronisation d'un agenda WinDev avec Google Agenda.

Je stocke mes info rdv dans une table MySQL.

Pour l'instant je code l'insertion des rdv dans Google agenda et je coince sur l'insertion du lieu de rdv dans mon Google Agenda.

Pour le reste cela fonctionne.

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
 
 
MonAgenda est un gglAgenda
Evt est un gglEvénement
MonLieu est un gglLieu
 
//Connexion à la base de données MySQL 5.6
 
ConnexionBase()
 
//Extraction des données de la table Mysql
 
SQLExec("select DateDebut,DateFin,Titre,Description,Pour,Lieu from agendaevenement where Idgoogle is Null","req1")
 
//Connexion à Google Agenda
 
CnxGoogle()
 
 
 
TANTQUE SQLAvance("req1")=0
 
	Evt.DateDébut=SQLLitCol("req1",1)
	Evt.DateFin=SQLLitCol("req1",2)
	Evt.Titre=SQLLitCol("req1",3)
	Evt.Contenu=SQLLitCol("req1",4)
 
 
	MonLieu..Valeur=SQLLitCol("req1",6)
 
 
	MonAgenda=GglRécupèreAgenda(Cnx,SQLLitCol("req1",5))
 
	Ajoute(MonAgenda.Evénement,Evt)
 
 
              //C'est ici que cela pose problème. Cela me génère une erreur et stoppe le traitement.
 
	Ajoute(MonAgenda.Evénement,MonLieu)
 
	GglEcrit(Cnx,MonAgenda)
 
 
 
FIN
 
SQLDéconnecte()
 
Multitâche(300)
 
Ferme(FEN_Jauge)

Si je supprime le code concernant MonLieu cela fonctionne mais je ne peux pas récupérer le lieu.

Merci d'avance pour votre aide.

[jer64]

Bien j'ai fini par trouver.

Code :

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

1
2
3
 
 
Ajoute(MonAgenda.Evénement[MonAgenda.Evénement..Occurrence].Lieu,MonLieu)

A bientôt et une très bonne année à tous.