Discussion :

[jacko842]

Bonjour je voudrais remplir un datagrid grace a une requette sql

Code :

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

dbg_absence.DataSource = "SELECT Absence_tbl.Date_debut_absence, Absence_tbl.Date_fin_absence, Eleves_tbl.Id_eleve FROM Eleves_tbl INNER JOIN Absence_tbl ON Eleves_tbl.Id_eleve=Absence_tbl.Eleve Where (((Eleves_tbl.Id_eleve) = 6))"

mais ca ne fonctionne pas le datagrid est vide

[Delbeke]

le datatasource doit être un composant ado, qui lui contient la requete

[jacko842]

ok je vais le faire en dao

[jacko842]

J ai essayé en dao mais le dbgrid est tj vide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Sub PROCEDURE_DATE_ABSENCE()
 
    Dim ws As Workspace
    Dim db As Database
    Dim rst As Recordset
 
    Set ws = DBEngine.Workspaces(0)
    Set db = ws.OpenDatabase(App.Path & "/GestionElevesAbsences.mdb", dbLangGeneral, dbVersion30)
    Set rst = db.OpenRecordset("SELECT Absence_tbl.Date_debut_absence, Absence_tbl.Date_fin_absence, Eleves_tbl.Id_eleve FROM Eleves_tbl INNER JOIN Absence_tbl ON Eleves_tbl.Id_eleve=Absence_tbl.Eleve Where (((Eleves_tbl.Id_eleve) = 6))")
    dbg_absence.DataSource = rst
End Sub

Il me met erreur de conversion de type de donnée

[sovo]

Et si tu ajoutais

Code :

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

dbg_absence.Refresh

dans l'un outre des cas (ADO ou DAO)

[jacko842]

j y avais pensé mais ca ne fonctionne toujours pas il me met Il me met erreur de conversion de type de donnée en soulignant la ligne

Code :

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

Set db = ws.OpenDatabase(App.Path & "/GestionElevesAbsences.mdb", dbLangGeneral, dbVersion30)