cs_neotof
Messages postés75Date d'inscriptionjeudi 12 août 2004StatutMembreDernière intervention 3 décembre 2012
-
25 janv. 2008 à 14:00
cs_neotof
Messages postés75Date d'inscriptionjeudi 12 août 2004StatutMembreDernière intervention 3 décembre 2012
-
25 janv. 2008 à 14:02
Bonjour je veux remplir un dbgrid a partir d une requette sql dans une base de donnée access 97 en dao:
PublicSub 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 & "/GestionElevesAbsences97.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
EndSub
il me met un message d erreur: Il me met erreur de conversion de type de donnée qui pointe sur la ligne:
si je met juste Set db = ws.OpenDatabase(App.Path & "/GestionElevesAbsences97.mdb")
il me met la classe ne gère pas soit l automation ou l interface attendue sur la ligne dbg_absence.dataSource=rst