PETIT JEU POUR LES EXPERTS

Question

Bonjour, j'ai un petit souci. J'ai une liste donc les valeurs sont des numeros et des noms, que j'ai recuperer dans une base de donn&#233;e. Je ne peux connaitre les index qu'ont piris les differents items ajout&#233;s au fur et a mesure. J'ai apr&#232;s l'un des numero et j'aimerai recuperer d'index de ce numero qui obligatoirement exite dans ma liste afin d'attribuer &#224; listIndex cet index. Le code sera peut etre plus claire! A completer!:


                Set ConBDD = New ADODB.Connection


Set rsConBDD = New ADODB.Recordset


strConnex = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Base de donn&#233;es\bts VIRLO.mdb"


Requ&#234;te = "SELECT [EFFECTUER.NoEtudiant], NomEtudiant FROM ETUDIANT, EFFECTUER WHERE ETUDIANT.NoEtudiant=EFFECTUER.NoEtudiant AND NoDeplacement=" & numDepl


ConBDD.Open strConnex


rsConBDD.CursorLocation = adUseClient


rsConBDD.Open Requ&#234;te, InfosModif, adOpenDynamic, adLockOptimistic, adCmdText




i = 0


If rsConBDD.EOF = False Then


rsConBDD.MoveFirst


End If


Do While rsConBDD.EOF = False


cboConducteur.AddItem rsConBDD![EFFECTUER.NoEtudiant]


cboConducteur.List(i, 0) = rsConBDD![EFFECTUER.NoEtudiant]


cboConducteur.List(i, 1) = rsConBDD!NomEtudiant






cboConducteur.ColumnWidths = "0;50"


rsConBDD.MoveNext


i = i + 1




Loop




ConBDD.Close




cboConducteur.Enabled = True


Label5.Enabled = True







Set InfosEtudiant = New ADODB.Connection


Set rsInfosEtudiant = New ADODB.Recordset


strConnex = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Base de donn&#233;es\bts VIRLO.mdb"


Query = "SELECT [EFFECTUER.NoEtudiant] From Etudiant, Effectuer Where Etudiant.NoEtudiant=Effectuer.NoEtudiant AND NoDeplacement=" & numDepl & " And Qualificatif='CONDUCTEUR'"


InfosEtudiant.Open strConnex


rsInfosEtudiant.CursorLocation = adUseClient


rsInfosEtudiant.Open Query, InfosEtudiant, adOpenDynamic, adLockOptimistic, adCmdText




cboConducteur.ListIndex = ????????
InfosEtudiant.Close

QUE REMPLACERAI ???????? pour que &#231;a marche? Merci d'avance

cs_moustachu · Answer

Je comprends pas bien... tu alimentes ton combobox &#224; l'aide d'une
requ&#234;te puis tu voudrais te positionner sur un des &#233;l&#233;ments du combox
suivant le r&#233;sultat d'une autre requ&#234;te ?



Ta deuxi&#232;me requ&#234;te ne renvoie qu'un enregistrement ?

++
Moustachu

cs_Magalie63 · Answer

vi ma deuxieme requete renvoie un seul element parmis les element de la combo qui y ont &#233;t&#233; mis. le but est de faire apparaitre en tant qu'element choisi, l'element correspondant a ma requete! c'est a la base un formulaire en mode modification.concretement, mes etudiants rattach&#233;s a un d&#233;placement ont un conducteur de d&#233;sign&#233; s'ils utilisent un vehicule personnel. je veux faire apparaitre, parmi les personne concern&#233; par ce deplacement et connu par la combo, celui ki est le conducteur. en modif' il serai possible ainsi de choisir un autre conducteur parmi les personnes concern&#233;. j'utiliserai ensuite l'index de ma personne choisit pour lui attitrer le qualificatif de conducteur dans ma base.

cs_moustachu · Answer

Le champ qualificatif , tu peux le r&#233;cup&#233;r&#233; dans ta premi&#232;re requete, non?



Requ&#234;te =  "SELECT
[EFFECTUER.NoEtudiant], NomEtudiant ,Qualificatif  FROM ETUDIANT, EFFECTUER WHERE
ETUDIANT.NoEtudiant =EFFECTUER.NoEtudiant AND NoDeplacement=" &
numDepl




Ensuite, lorsque tu alimentes ton combobox, tu testes si 

rsConBDD![EFFECTUER.Qualificatif]="
CONDUCTEUR
"

et tu sauvegarde l'index dans une variable.



A la fin de l'alimentation tu attribues l'index sauvegarder. Tu dois m&#234;me pouvoir le faire pendant que tu alimentes ton combobox




++
Moustachu

cs_Magalie63 · Answer

ok merci. est ce possible cependant de recuperer d'index d'une des lignes?

cs_Magalie63 · Answer

C'est bon &#231;a marche nickel, &#231;a me fais m&#234;me enlever des lignes inutiles en plus. Merci!!!!

cs_moustachu · Answer

Pas simplement, c'est pour &#231;a que je te propose une solution de
contournement. CE que tu dois faire c'est rechercher dans ta premi&#232;re
colonne le texte (ou une partie) par l'intermediaire de l'api
SendMessage

++
Moustachu

PETIT JEU POUR LES EXPERTS

6 réponses

Discussions similaires