Remplir un combobox avec le contenu d'une table Résolu

Question

Salut
Je suis débutant en matière des bases de données, et j'ai réussi à remplir le combo1 à partir d'une table moyennant un Recrodset DAO, mais je ne sais comment faire pour remplir un deuxième combo avec des éléments filtrés d'une autre table de la même base de données voicie le code que j'ai écrit pour les deux combo :

Private Sub Combo1_Click()
Dim rs1 As DAO.Recordset
Dim strSQL As String
IdClasse = Combo2.List(Combo1.ListIndex)
strSQL = "SELECT Elève.Nom FROM Eléves WHERE IdClasse=' " & IdClasse & " ' "
Set rs1 = mabase.OpenRecordset(strSQL, dbOpenDynaset, dbAppendOnly)
Do Until rs1.EOF
List1.AddItem rs1!Nom
rs1.MoveNext
Loop
End Sub
j'espère que vous aurez la gentillesse de me donner un coup de man je suis vraiment bloqué

Renfield · Accepted Answer

pas top le jaune sur fond blanc.

VB qui te fait les espaces ?
pas cool, et surement completement faux...
je ne parle pas des espaces entourant les &
mais de ceux qui sont entre les '

"SELECT Elève.Nom FROM Eléves WHERE IdClasse=' " & IdClasse & " ' " 


donnera :

SELECT Elève.Nom FROM Eléves WHERE IdClasse=' 15 '

et non, comme on le voudrait surement 

SELECT Elève.Nom FROM Eléves WHERE IdClasse='15'

concernant ton message, il indique que tu t'es trompé dans l'ecriture du nom du champ ou de la table...

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

Renfield · Answer

Élèves pas Eléves

WHERE IdClasse=' " & IdClasse & " ' " 

gaffe aux deux espaces introduits dans ta requete

Combo2.List(Combo1.ListIndex) 
étrange mélange des comboBoxes, est-ce normal ?



Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

cs_souriant · Answer

Merci pour votre réponse Renfield. Je n'ai pas fait attention concernant élève, mais j'ai nommé ma table comme  écrit dans la requête. à propos des deux espaces c'est le vb qui les à fait.
Une information de plus, quand je fais la débogage, il affiche le message suivant: 
trop peu de paramètres. 1 attendu
en surlignant la ligne suivante: 
Set rs1 = mabase.OpenRecordset(strSQL, dbOpenDynaset, dbAppendOnly) 
Merci

cs_souriant · Answer

J'ajoute que il y a probablement pas de mélange dans les comb, je voulais juste récupérer le IdClasse à partir d'un autre combo (combo2)
Merci

acive · Answer

Salut,

à propos des deux espaces c'est le vb qui les à fait. ==> WHERE IdClasse=' " & IdClasse & " ' "==>> Faux! VB ne fait QUE ce que tu lui dis de faire...

Ca ne serait pas plutôt:
WHERE IdClasse= '" & IdClasse & "' "?

Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

cs_souriant · Answer

j'ai résolu le problème, je vous suis très reconnaissant. Merci beaucoup

Remplir un combobox avec le contenu d'une table

6 réponses

Votre réponse

Discussions similaires