Discussion :

[johan0510]

Bonjour à tous,

Je souhaite intégrer les données d'un fichier excel (xlsx) sous WinDev.
Cependant je n'arrive pas à ajouter des informations dans deux fichiers WinDev différents.

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
IDFichierXLS est un xlsDocument
NomFichierXLS est une chaîne = SAI_Fichier_Excel
IDFichierXLS =xlsOuvre(NomFichierXLS)
SI IDFichierXLS<>-1 ALORS 	
	iTaille est un entier=xlsNbLigne(IDFichierXLS,Vrai)
	i est un entier=1
	TANTQUE i<=iTaille
		i++
		Clients.ID_clients=xlsDonnée(IDFichierXLS,i,1,Faux)
		Clients.Libelle_clients=xlsDonnée(IDFichierXLS,i,2,Faux)	
		Partenaires.ID_partenaires=xlsDonnée(IDFichierXLS,i,3,Faux)
		HAjoute(Clients)
		HAjoute(Partenaires)
	FIN			
SINON 
	Erreur(xlsMsgErreur(IDFichierXLS)+" "+ErreurInfo()) 
FIN
xlsFerme(IDFichierXLS)

Le code ci dessus me permet juste d'ajouter des données dans le fichier "Clients"...

Quelqu'un a-t-il un idée pourquoi le HAjoute(Partenaires) ne fonctionne pas ??

Merci pour votre aide!

[frenchsting]

Oui, plein... Mais avec si peu d'info (structure des fichiers et liaisons) autant nous demander d'écrire la théorie de la relativité...

[johan0510]

Bonjour Frenchsting,

Je vais donner plus d'informations sur les deux fichiers :

Clients
-> ID_clients
-> Libelle_clients

Partenaires
-> ID_partenaires
-> Libelle_partenaires
-> ID_clients

Contrainte d'intégrité 1,1 entre Clients et Partenaires

[serendib]

Tu ne crois pas qu'en renseignant ID_clients
de ton fichier partenaire ça irait mieux ?
Heureusement que Frenchsting t'a demandé un complément d'infos
sinon moi non plus je ne peux rien faire.
Mais cherchez un peu les gars, avant de poser des questions.
C'est basique, ça, non ?
C'est ton analyse après tout.
T'as du pot que des couillons (moi compris) est du temps à perdre.

[johan0510]

Non ca ne fonctionne pas mieux malheureusement !

C'est un ID_auto donc voila le problème est pas aussi évident que tu crois...

[serendib]

Clients.ID_clients=xlsDonnée(IDFichierXLS,i,1)
Donc :
Partenaires.ID_clients=xlsDonnée(IDFichierXLS,i,1)

Partenaires.ID_clients ne peut pas être un indentifiant auto
sinon gros problème dans l'analyse.


Il me semble que c'est évident.

Sinon, j'ai rien compris, et alors mea culpa.

[johan0510]

Arf!! en fait c'est plus compliqué que cela...

Mon fichier "Clients" possède comme clé unique et auto-increment : IDClients_Partenaires. Et cette clé n'est donc pas dans le fichier Excel.

Avec deux champs :
-> ID_clients
-> ID_partenaires

Mon fichier "Partenaires" possède comme clé unique et auto-increment :
ID_partenaires. Cette clé n'est donc pas dans le fichier Excel.

Avec deux champs :
-> Libelle_partenaires
-> ID_clients

[serendib]

C'est bien ce que je disais, analyse à revoir...
Et puis, peut-être, un petit (même grand) tour dans l'autoformation.
L'analyse c'est les fondations !

[Atsibat]

Dans le hajoute il faut forcer l'IDAUTO
Hajoute(client,hforceIDAuto)

[johan0510]

Dans le hajoute il faut forcer l'IDAUTO
Hajoute(client,hforceIDAuto)

Bonjour Atsibat,

Je vais essayer ta solution !

Merci !

[frenchsting]

Attention quand tu forces l'id !!! Cela peut entrainer des surprises. Il vaut mieux faire le hajoute(clients). Le système HF attribue un ID auto et de là tu peux faire un Partenaires.ID_clients = Clients.ID_clients.

[johan0510]

Attention quand tu forces l'id !!! Cela peut entrainer des surprises. Il vaut mieux faire le hajoute(clients). Le système HF attribue un ID auto et de là tu peux faire un Partenaires.ID_clients = Clients.ID_clients.

Bonjour Frenchsting,

Le code suivant fonctionne :

Code :

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

1
2
Hajoute(clients)
Partenaires.ID_clients = Clients.ID_clients

Merci !

[jibi049]

Visiblement, la consommation en mémoire RAM de xlsOuvre est énorme... J'en ai fait les "frais" dans l'après-midi.

[SevenSoftware]

Bonjour,

De mémoire, on peut lire une feuille Excel à l'aide d'une connexion
et d'une requête SQL.
Je ne sais pas si c'est plus performant, il y a longtemps que je
ne l'ai pas fait...