Discussion :

[Hatcode]

Bonjour, j'ai un champ combo qui doit afficher tout les transporteurs que je rentre lors de l'ajout d'un véhicule dans ma table.

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
donneesTrans est une Source de Données 
 
requeteTrans est une chaîne = "Select distinct Transporteur From Véhicule"// where Véhicule.Transporteur = transporteur
 
 SI HExécuteRequêteSQL(donneesTrans,requeteTrans) ALORS
 
	HLitPremier(Véhicule,Véhicule.Transporteur) 
	ListeSupprimeTout(cmb_trans)
	TANTQUE PAS HEnDehors() 
		HSuivant()
		ListeAjoute(cmb_trans,Véhicule.Transporteur)
		FIN
	SINON 
		Erreur()	
	FIN

Avec ce code la il m'affiche seulement un transporteur.
J'aimerais savoir d'ou peut venir le problème.

[philouZ]

Bonjour,

La première chose que je vois c'est que tu exécutes une requête et qu'ensuite tu essayes de parcourir le fichier véhicule en lieu et p)lace de la requête.

La deuxième est que ta boucle est complètement fausse. La parcours avec HLitPremier() ne se fait pas de cette manière. Lis l'aide sur cette fonction, l'exemple correspond exactement à ce que tu souhaites faire.

[tbc92]

J'ajouterais une chose : l'indentation.

Un code correctement indenté est lisible. Un code qui n'est pas correctement indenté, c'est illisible. Ici, on s'en sort, parce qu'il n'y a que 15 lignes. Mais dès que tu feras des choses un peu compliquées, tu ne pourras pas t'en sortir avec un code illisible.
Dans Windev, il y a une fonctionnalité pour indenter correctement du code.

D'autre part, en ligne 14, idem, tu appelles la fonction erreur(), mais sans aucun texte affiché. Le jour où ton programme affichera cette fenêtre, tu te poseras 1000 questions, alors que si tu mets un message explicite, ce sera beaucoup plus clair.

Sinon 100% aligné avec les 2 points de philouZ.

[Hatcode]

Merci pour vos réponses,

J'ai modifié mon code grâce a l'aide pcsoft et ce que vous m'avez dit.

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
donneesTrans est une Source de Données 
 
requeteTrans est une chaîne = "Select distinct Transporteur From Véhicule"// where Véhicule.Transporteur = transporteur
 
 SI HExécuteRequêteSQL(donneesTrans,requeteTrans) ALORS
 
	HLitPremier(donneesTrans,donneesTrans.Transporteur)
 
	ListeSupprimeTout(cmb_trans)
 
	TANTQUE HEnDehors(donneesTrans) = Faux  
 
		HLitSuivant(donneesTrans,donneesTrans.Transporteur)
 
		ListeAjoute(cmb_trans,donneesTrans.Transporteur)
 
		FIN
 
	SINON 
 
		Erreur("requete sql Combo")	
 
	FIN

Lorsque que je test,

"Que s'est-il passé ?
Il n'existe pas de rubrique <0> dans le fichier <donneesTrans>."

Je ne comprend peut-être pas l'erreur, mais ma source de donnée "donneesTrans" a bien enregistré différents transporteurs.



EDIT : J'ai oublié de préciser que dans mon combo tout mes transporteurs sont égales a 0, alors que dans "donnéesTrans" il y a bien des prénoms différents.

[Jon Shannow]

Bonjour,

Je vois 2 problèmes. Le premier est la syntaxe de HLitPremier. Le deuxième paramètre doit être la clef de parcours, alors que tu indiques la valeur de "donnéestrans.transporteur". Remplaces par HLitPremier( "donneestrans", "transporteur"), ça devrait être mieux (même syntaxe pour HLitSuivant).
Ensuite, tu places ton HLitSuivant avant l'ajout dans la combo. Du coup, tu vas perdre le premier enregistrement de donneestrans, et tu vas avoir une valeur erronée à la fin, car tu vas lire au delà de la requête (hendehors sera vrai, mais tu vas quand même ajouter le résultat).

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
donneesTrans est une Source de Données 
 
requeteTrans est une chaîne = "Select distinct Transporteur From Véhicule"// where Véhicule.Transporteur = transporteur
 
 SI HExécuteRequêteSQL(donneesTrans,requeteTrans) ALORS
 
	ListeSupprimeTout(cmb_trans)
 
	HLitPremier("donneesTrans","Transporteur")
 
	TANTQUE HEnDehors(donneesTrans) = Faux  
 
		ListeAjoute(cmb_trans,donneesTrans.Transporteur)
 
		HLitSuivant("donneesTrans", "Transporteur")
	FIN
 
SINON 
 
    Erreur("requete sql Combo")	
 
FIN

JS

[Hatcode]

Merci Le code marche !

Juste une question, Pourquoi je n'ai pas besoin de dire dans quoi est ma rubrique "Transporteur" ?

Pour finir si vous pouviez m'aiguiller sur quelles fonctions utiliser pour pouvoir actualiser ma table en fonction du transporteur sélectionné.(J'irais sur l'aide de pcsoft avant de venir vous solliciter)

Hatcode

[Jon Shannow]

Merci Le code marche !

Pas de quoi, mais je pense que tu devrais te pencher sur le guide d'auto formation de Windev, ça t'aiderait beaucoup

Juste une question, Pourquoi je n'ai pas besoin de dire dans quoi est ma rubrique "Transporteur" ?

Ben, tu lui dis avec le premier paramètre. En gros HLitPremier( donneestrans, transporteur) ça se traduit en langage courant par : Lit le premier enregistrement de "donneestrans" en utilisant "transporteur" comme clef de tri.

Pour finir si vous pouviez m'aiguiller sur quelles fonctions utiliser pour pouvoir actualiser ma table en fonction du transporteur sélectionné.(J'irais sur l'aide de pcsoft avant de venir vous solliciter)

Dans le code de sélection d'une ligne de ton champ combo, tu récupères le transporteur sélectionné et tu rafraichis ta table associée.

JS