VB et Access

Question

J'ai probleme avec ma sintaxe mais je ne voit pas ou!!

""""Private Sub LstClasse_Click()
classe = LstClasse.Text


LstEleve.Clear


Set televe = BSection.OpenRecordset("Select NOMELEVE from ELEVES, SECTION  WHERE NOMSECTION='" & section & "' and NCLASS='" & classe & "' and ELEVES.NUMCLA=SECTION.NUMCLA")




televe.MoveFirst
Do While Not televe.EOF
LstEleve.AddItem televe(0)
televe.MoveNext
Loop
televe.Close


End Sub"""""""

il me met erreur 3061 la syntaxe de la base de donnees est la meme

cs_casy · Answer

Je dis peut-etre une bétise mais pour NomSection et NClass tu ne precise pas dans quelle table tu vas les chercher.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

cs_Benjamin49 · Answer

sisi c bon
car 
SECTION(NUMCLA,NCLA,NOMSECTION)
ELEVES(NELEVE,NOMELEVE,NUMCLA#)
dxc je voi po le pb???

chaibat05 · Answer

Bonsoir,

Apparamant tu as deux tables: ELEVES et SECTION liées sur NumClass

 *ELEVES                   *SECTION
 Nom                           NomSection
NumClass   --------->      NumClass


la synthaxe dans ce cas est :


"SELECT ELEVES.NomEleve, ELEVES.NumClass, SECTION.NomSection" & _
" FROM ELEVES INNER JOIN SECTION ON ELEVES.NumClass = SECTION.NumClass" & _
" WHERE SECTION.NomSection='" & section & "'  AND ELEVES.NumClass='" & classe & "';"

cs_Benjamin49 · Answer

merci mais maintenand il me dis trop peu de parametre  2 attendus
et avant il mecrivais 1 attendu!!!!

chaibat05 · Answer

vérifies tes noms de champs
tu as NCLASS et NUMCLA voir aussi NOMSECTION

cs_Benjamin49 · Answer

c bon c po sa g bien verifier la synaxe de la table me semble bonne

chaibat05 · Answer

Il s' agit bien de deux tables ?
t' as bin une structure qui ressemble à ce que j' ai décrit ?
t' as pas répondu à ce sujet ...!

cs_Benjamin49 · Answer

enfait c po grave g rtouve une otre solution merci les gars

cs_Benjamin49 · Answer

c encore moi 
sur une autre requete jai le meme probleme que au debu!!
Private Sub Form_Load()


Label2.Caption = "Absence de l'élève '" & nom & "' de la classe " & section & " " & classe & "."
>>>>Set tabsence = BSection.OpenRecordset("SELECT * FROM Absence  WHERE Numeleve= Nume", dbOpenDynaset)


tabsence.MoveFirst
Do While Not tabsence.EOF


J = tabsence(1)
M = tabsence(2)
A = tabsence(3)
D = tabsence(4)
F = tabsence(5)


Label3.Caption = "Le " & J & " " & M & " " & A & " de " & D & "H à " & F & "H."
Loop
tabsence.Close


End Sub

il me dis toujours erreur 3061 c lourd

cs_Benjamin49 · Answer

de plus si je remplace nume par un nombre qui est presen dans ma table: lapplication se bloque!!!!!!et VB aussi!!!

VB et Access

10 réponses

Votre réponse

Discussions similaires