Problème requette sql

Version imprimable

Voila je dois afficher les résultat de ma requête dans un dbgrid relier a un datacontrole mais rien ne s'affiche !!!!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Public Sub PROCEDURE_AFFICHE_DATE_COURS_ABSENCE(int_num_eleve As Integer)
'affiche les cours et dates des absences
Dim str_req_sql_absence As String
 
'str_req_sql_absence = "SELECT Detail_absence_tbl.Date_absence, Absence_cours_tbl.Denomination_FROM Absence_cours_tbl INNER JOIN (Eleves_tbl INNER JOIN Detail_absence_tbl ON Eleves_tbl.Id_eleve = Detail_absence_tbl.Num_eleve) ON Absence_cours_tbl.Id_module = Detail_absence_tbl.Cours WHERE (((Detail_absence_tbl.Num_eleve) =" & str_num_eleve & "))"
'str_req_sql_absence = "SELECT Detail_absence_tbl.Date_absence, Absence_cours_tbl.Denomination_FROM Absence_cours_tbl INNER JOIN (Eleves_tbl INNER JOIN Detail_absence_tbl ON Eleves_tbl.Id_eleve = Detail_absence_tbl.Num_eleve) ON Absence_cours_tbl.Id_module = Detail_absence_tbl.Cours WHERE (((Detail_absence_tbl.Num_eleve) =" & "7" & "))"
str_req_sql_absence = "SELECT Detail_absence_tbl.Date_absence, Absence_cours_tbl.Denomination FROM Absence_cours_tbl INNER JOIN (Eleves_tbl INNER JOIN Detail_absence_tbl ON Eleves_tbl.Id_eleve = Detail_absence_tbl.Num_eleve) ON Absence_cours_tbl.Id_module = Detail_absence_tbl.Cours WHERE (((Detail_absence_tbl.Num_eleve)=7))"
MsgBox str_req_sql_absence
data_sql_absence.RecordSource = str_req_sql_absence
data_sql_absence.Refresh
End Sub

Merci d'avance de votre aide

04/01/2009, 17h30
hugoclo

Bonjour,
As tu essayé avec set:

Code:

set data_sql_absence.RecordSource = str_req_sql_absence

oui voila mais rien ne s'affiche

Code:

1
2
3
4
5
6
7
8
9
10
 
 
Public Sub PROCEDURE_AFFICHE_DATE_COURS_ABSENCE(int_num_eleve As Integer)
    Dim str_req_sql As String
 
    str_req_sql = "SELECT Detail_absence_tbl.Date_absence, Absence_cours_tbl.Denomination FROM Eleves_tbl INNER JOIN (Absence_cours_tbl INNER JOIN Detail_absence_tbl ON Absence_cours_tbl.Id_module = Detail_absence_tbl.Cours) ON Eleves_tbl.Id_eleve = Detail_absence_tbl.Num_eleve WHERE (((Detail_absence_tbl.Num_eleve=))"
    Set data_sql_absence.Recordset = Orst_detail_absence
    data_sql_absence.RecordSource = str_req_sql
    data_sql_absence.Refresh
End Sub

04/01/2009, 19h13
beegees
Salut,

C'est normal qu'ici :
Code:

1 2 (((Detail_absence_tbl.Num_eleve=))"
tu ne mets aucune valeur ?

= à quoi ?

Voici un inner join que j'utilise et qui fonctionne:

Code:

sql = "SELECT * FROM ingredient INNER JOIN (recette INNER JOIN detail_recette ON recette.id = detail_recette.ref_recette) ON ingredient.id = detail_recette.ref_ingredient WHERE recette.id = " & listRecettes(0).ItemData(listRecettes(0).ListIndex)

beegees