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)

[jacko842]

non je viens de comprendre c est pas j ai pas utilisé la bonne version access vais la convertir en access 97

[jacko842]

non toujours le meme message d erreur

[jacko842]

si je met juste

Code :

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

Set db = ws.OpenDatabase(App.Path & "/GestionElevesAbsences97.mdb")

il me met la classe ne gère pas soitl automation ou l interface attendue

[BM42]

Salut

essai

Code :

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

Set dbg_absence.DataSource = rst

Remplace :

Code :

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

Set db = ws.OpenDatabase(App.Path & "/GestionElevesAbsences97.mdb")

par :

Code :

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

Set db = ws.OpenDatabase(App.Path & "\GestionElevesAbsences97.mdb")

A+

[jacko842]

Merçi pour ton aide mais j ai toujours le meme message d erreur:

la classe ne gère pas soit l' automation ou l interface attendue, si je mets ma souris sur Set dbg_absence.DataSource = rst il met un objet est requis

merci

[jacko842]

esque je ne pourrais pas faire ainssi avec un datacontrole

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub PROCEDURE_DATE_ABSENCE()
 
    Dim str_requete As String
 
    str_requete = "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))"
 
    data_absence.RecordSource = str_requete
 
End Sub

mais la j ai plus aucun message d erreur mais ca ne m affiche rien j ai du loupé quelle que chose

[jacko842]

Voila ou j en suis

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 str_requete As String
 
    str_requete = "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) = 7))"
 
    data_absence.RecordSource = str_requete
    data_absence.Refresh
 
 
End Sub

Il m affiche tous les date de l id_eleve==>6 mais je voudrais mettre en parametre ce chiffre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub PROCEDURE_DATE_ABSENCE()

    Dim str_requete As String
    Dim Int_id As Integer
    
    'Int_id = frm_child1_cons.data_eleves.Recordset.Fields("Id_eleve")
    
    str_requete = "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) = int_id))"
    
    data_absence.RecordSource = str_requete
    data_absence.Refresh
   
    
End Sub

Comme ca pour chaque eleves j ai leur date mais il me met un message d erreur:Trop peu de paramètre 1 attendu

c est quand je met une variable dans le sql que ca bloque

[ProgElecT]

essai de terminer ta requette par : Where (((Eleves_tbl.Id_eleve) = '" & int_id & "'))"

[jacko842]

Il me met Type de donnée incompatible dans l expression du critère.

Merci de ton aide

[ProgElecT]

Where (((Eleves_tbl.Id_eleve) = '" & Cint(int_id) & "'))"

[jacko842]

Il me renvois le meme message d erreur voici la procedure:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Sub PROCEDURE_DATE_ABSENCE()
 
 
    Dim str_requete As String
    Dim Int_id As Integer
 
    Int_id = frm_child1_cons.data_eleves.Recordset.Fields("Id_eleve")
 
    str_requete = "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) = '" & CInt(Int_id) & "'))"
 
    data_absence.RecordSource = str_requete
    data_absence.Refresh
 
 
End Sub

[ProgElecT]

l'erreur etant Type de donnée incompatible , Int_id n'est pas un Integer, essais de trouver le type declaré dans la Table de la BD, et en utilisant un Clng, Csng .... tu devrais y arriver.
Pour trouver les C..., F2 --> Conversion
Je ne serai plus present apres ce message, bonne continuation ....
A+

[jacko842]

dans access c est de type auto numerique le champ id_eleve

[Delbeke]

Problème de Quote ou pas, cela dépend du type de ta variable

Code :

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

Where MonChamps = Valeur

pour une valeur numerique

Code :

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

Where MonChamps = 'Valeur'

pour une valeur chaine de caractère

Edit : On s'est croisé, salut progelec