Discussion :

[Baris]

Bonjour à tous,

voilà ce qu'on me demande. En gros c'est lister les noms de serveurs dans une base de données et ensuite les afficher dans une combo box.

dans la colonne NOM : LSERVEUR.

et la colonne VALEURvaleur : SERVEUR1@chru... SEPARATEUR SERVEUR2@chru... SEPARATEUR SERVEUR3@chru...

Ce qui ferait que le select serait toujours le même

Select Valeur from xxxxx where NOM = "LSERVEUR"

Ensuite tu découpes la chaine VALEUR récupérée jusqu'au dernier SEPARATEUR et pour chaque valeur tu charges ta Combobox. Sachant que le 1er de la liste devra être la valeur par défaut de la combobox

Par contre, je ne sais pas comment le faire. J'aimerai un peu d'aide de votre part.


Merci d'avance

[Delbeke]

Une solution serait d'utiliser la fonction split sur le résultat de la requete.
On obtient alors un tableau qu'il suffit de parcourir du permier au dernier élément pout les ajouter un à un dans le combo.

[Baris]

C'est vrai, la fonction Split découpe une chaîne de caractères >_< . Je l'avais complétement oublié.

Déjà utilisé dans l'application que je travaille, je vais l'utiliser de ce pas.

Merci encore.


EDIT:


Voici la solution à mon problème tout simplement. PEut-être que ça servira un jour.

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
 
 
    ' LServeur :
 
Private i, tableau() As String
 
 
    Principal.adodbRecordset.Open "SELECT Valeur FROM xxxxx WHERE Nom='LServeur' ORDER BY Nom", Principal.adodbConnection
 
    tableau = Split(Principal.adodbRecordset("Valeur"), " ")
 
    For i = 0 To UBound(tableau)
    ComboLServeur.AddItem (tableau(i))
    Next i
    Principal.adodbRecordset.Close

[Baris]

Bon je ré-ouvre ce topic car j'ai besoin d'aide sur une chose lié à cela.


J'ai mon tableau avec les valeurs, ce que j'affiche dans la combo box, grâce à la fonction Split.

J'avais ma requete qui me donnait ce résultat:

"SERVEUR1 serveur2 serveur3", les espaces faisant partie et que j'ai "splité"

Maintenant, j'aimerai changé l'ordre des chaines dans le tableau. C'est à dire, qu'en fonction du choix effectué dans la combobox (par exemple serveur2) que l'ordre de ma combobox change pour faire ceci:

"serveur2 serveur1 serveur3". En gros, permuter les chaînes dans le tableau.

J'ai regardé du côté des fonctions Replace et Mid, mais cela ne semble pas convenir, surtout pour mid car les chaînes de caractères peuvent être de longueurs différentes

Y'a également la possibilité d'agrandir le tableau, ajouter l'item qu'on veut en première position dans le tableau et supprimer le doublon derrière.

Mais ça fait un peu compliqué. Et je sais pas encore si c'est faisable


Avez-vous une idée?

[OhMonBato]

Si tu as splitté ta chaine, tu dois avoir quelquechose comme Val(0),Val(1),Val(2) en mémoire.
Si tu veux permuter Val(0) et Val(1) il te suffit de faire un truc du style :

Code :

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

1
2
3
4
5
 
Dim Temp as string
Temp = Val(0)
Val(0)=Val(1)
Val(1)=Temp

[Baris]

C'est bien comme ça en effet qu'il faut que je fasse.

Merci OhMonBato


Par contre, j'ai quelques soucis encore . Entre autre le fait que mon item 3 qui est sélectionné efface l'autre item ^^ et que j'ai deux fois la même chaîne dans la combobox.


Dès que ça sera réglé je clorerai le topic.