Discussion :

[radouane963]

Bonjour a Tous

je veux remplier une combo avec la liste de base de donne présent sue le serveur HFSQL

Code :

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

1
2
3
4
5
gsListeFichier est une chaine
 
gsListeFichier=HListeBaseDeDonnées(MaConnexion)
 
ListeAjoute(COMBO_Combo, gsListeFichier)

mais la combo affiche un seul élément (ligne) avec le nom de tout les base de donnee

merci de bien vouloir m'aide

[serendib]

Peut-être en remplaçant le séparateur TAB par RC dans le résultat (gsListeFichier)

[radouane963]

Peut-être en remplaçant le séparateur TAB par RC dans le résultat (gsListeFichier)

bonjour

oui mai comment faire ca avec HListeBaseDeDonnées et RC

merci

[frenchsting]

Bonjour,

comme l'a écrit serendib, ce n'est pas dans HListeBaseDeDonnées qui faut faire le remplacement, mais dans gsListeFichier.

[midou23175]

Bonjour,

gsListeFichier=HlisteBaseDeDonnées(MaConnexion)
ça renvoie une chaine du genre : <Nom de la base 1> + TAB + <Nom de la base 2> + TAB + ...
soit une liste non détaillée, contenant uniquement les bases de données associées à la connexion, le séparateur étant TAB

Pour avoir ce que tu veux, voir l'aide Windev :
1- la fonction ExtraitChaine, pour extraire une sous-chaine d'une chaine de caractères
2- l'instruction POUR TOUTE CHAINE, pour effectuer le parcours des sous-chaines.

-1, pour cette question, refaire l'auto-formation windev, et F1 est ton ami de toujours.

[Jon Shannow]

En complément de la réponse de Midou23175, voir la fonction REMPLACE

[midou23175]

En complément de la réponse de Midou23175, voir la fonction REMPLACE

ça rejoint l'idée de Serendib. c'est un raccourci qui devrait faire l'affaire.
Mon idée, c'est de lui permettre d'apprendre à manipuler : ExtraitChaine et l'instructioin POUR TOUTE CHAINE, qui lui serviront plus tard.

[radouane963]

Bonjour
Merci pour votre aide

Code :

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

1
2
3
4
5
6
7
sToto est une chaîne = HListeBaseDeDonnées(MaConnexion,hLstNormal)
LISTBD est une chaîne =Remplace(sToto,TAB,"*")
SousChaîne est une chaîne = ExtraitChaîne(LISTBD, rangPremier, "*")
TANTQUE SousChaîne <> EOT
	ListeAjoute(COMBO_Combo,SousChaîne )
	SousChaîne = ExtraitChaîne(LISTBD, rangSuivant, "*")
FIN

ca donne le resultat voulu
merci

[midou23175]

@radouane963

En utilisant la fonction "Remplace", une seule ligne suffit pour remplir la combo. Creuses toi les méninges.

[radouane963]

@radouane963

En utilisant la fonction "Remplace", une seule ligne suffit pour remplir la combo. Creuses toi les méninges.

merci

Code :

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

ListeAjoute(COMBO_Combo,Remplace(HListeBaseDeDonnées(MaConnexion,hLstNormal),TAB,RC))

[Jon Shannow]

N'oubliez pas de mettre la discussion en