Discussion :

[FrédéricCM]

Bonjour à tous,

je cherche à récuperer un champ somme obtenue apres une opération de regroupement dans une requete SQL
voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim db As DAO.Database, rs As DAO.Recordset
Set db = CurrentDb
Dim SQL As String
SQL = "SELECT [MaTable].Piece, Sum([MaTable].NbOccurence) AS SommeNbOccurence
FROM [Maintenance curative bus témoin]
GROUP BY [MaTable].Piece;"
Set rs = db.OpenRecordset(SQL)
MsgBox rs("SommeNbOccurence")

quand j'execute ce code vba me dit qu'il ne connait pas SommeNbOccurence comme élément de la collection rs

comment faire pour récuperer les informations de ce champ ?

Merci d'avance

Frédéric

[pgz]

Bonjour,

A mon avis ce n'est pas normal ...
Si tu veux tu peux essayer ça, juste pour voir ce que ça raconte

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim db As DAO.Database, rs As DAO.Recordset, fld as field
Set db = CurrentDb
Dim SQL As String
SQL = "SELECT [MaTable].Piece, Sum([MaTable].NbOccurence) AS SommeNbOccurence "
SQL = SQL & "FROM [Maintenance curative bus témoin] "
SQL = SQL & "GROUP BY [MaTable].Piece;"
Set rs = db.OpenRecordset(SQL)
 
For each fld in rs.Fields
    Msgbox fld.name
Wend
rs.close
set rs = Nothing
set db = nothing

Voyons...

A+

pgz

[CAMIC]

Salut,

pour que ça fonctionne, il faut déclare rs comme variant:

Code :

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

Dim rs As Variant

puis pour le resultat:

Code :

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

MsgBox rs.SommeNbOccurence

bonne chance

CAMIC

[philben]

Bonjour,

SQL = "SELECT [MaTable].Piece, Sum([MaTable].NbOccurence) AS SommeNbOccurence
FROM [Maintenance curative bus témoin]
GROUP BY [MaTable].Piece;"

Ta table c'est [MaTable] ou [Maintenance curative bus témoin] ?
Faut faire un choix...

Philippe

[philben]

Re bonjour,

CAMIC a écrit :

pour que ça fonctionne, il faut déclare rs comme variant

J'ai un doute...

Philippe

[CAMIC]

salut philben,

il faut le type variant pour rs, car lors de l'interprétation du code il y aura une erreur car SommeNbOccurence n'est pas une propriété natif de l'objet Recordset.

CAMIC

[philben]

Bonjour,

voici un code qui fonctionne à première vue :

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
 
 
Dim db As DAO.Database, rs As DAO.Recordset
Set db = CurrentDb
Dim SQL As String
SQL = "SELECT [MaTable].Piece, Sum([MaTable].NbOccurence) AS SommeNbOccurence " & _
      "FROM [Maintenance curative bus témoin] as [MaTable] " & _
      "GROUP BY [MaTable].Piece;"
Set rs = db.OpenRecordset(SQL, dbOpenSnapshot)
Do Until rs.EOF = True
   MsgBox rs("SommeNbOccurence")
   rs.MoveNext
Loop
Set rs = Nothing
Set db = Nothing

Philippe

[Tofalu]

salut philben,

il faut le type variant pour rs, car lors de l'interprétation du code il y aura une erreur car SommeNbOccurence n'est pas une propriété natif de l'objet Recordset.

CAMIC

Non, déclarer un objet variant quand un type existe est inutile et surtout dangereux.

Quand on écrit rs("sommeNbOccurence"), on accède pas à la propriété sommeNbOccurence qui bien sûr n'existe pas, mais à l'élément sommeNbOccurence de la propriété Fields (qui est la propriété par défaut) de rs.

Ainsi :

rs("sommeNbOccurence") est en fait l'équivalent de l'écriture complète

rs.Fields("sommeNbOccurence").Value

Value étant la propriété par défaut d'un objet Field.

Jamais un champ ne sera une propriété d'un recordset, mais un élément de sa collection field. Le fait de le déclarer en variant, en objet ou en DAO.Recordset ni changera rien.

Pour éviter les alias, le plus simple est de passer par la position du champ dans le select

Msgbox rs(1)

[CAMIC]

Tofalu,

En quoi est il dangereux de déclarer un objet variant quand on peut le remplacer par un type approprié ?
N'est-ce pas un type de variable qui s'adapte selon sa dernière utilisation ?

J'avais proposé le type variant, car suite à la reprise d'une application access, quand j'avais rajouté l'option explicit et déclaré toutes les variables avant de les utiliser, l'interpréteur m'indiquait une erreur, puisque je ne voulais pas touché pour le moment au code qui fonctionne, j'avais simplement remplacé le type Recordset par Variant.

J'espère que personne n'a cru que le faits de déclarer une variable de type variant permetait de crée de nouvelle propriété! Malheureusement la syntaxe permise pourrait nous le faire croire.

Suite à cela, je vais remettre le type Recordset pour mes variables et modifier le code en conséquence en utilisant la syntaxe explicite

Pour ma part, je déconseile fortement l'utilisation d'index pour accéder à des champs, excepté pour des raisons d'optimisation, car si on modifie le nombre de colonne dans la requête, le code ne fonctionnera plus.

CAMIC

[FrédéricCM]

Ok merci pour vos réponse
Effectivement ca marche en utilisant le type variant

Avec le type recordset il faut utiliser rs(1) c'est plus propre mais moins lisible...

Fred

[philben]

Bonjour,

Effectivement ca marche en utilisant le type variant

Ca marche aussi et surement mieux avec le type Recordset !!!

Avec le type recordset il faut utiliser rs(1) c'est plus propre mais moins lisible...

Ah bon voici 3 écritures possibles avec un recordset pour accéder à un champ :
- rs("MonChamp")
- rs![MonChamp]
- rs(1)

Si une méthode ne convient pas on en prend une autre...


UTILISER UN TYPE RECORDSET C'EST DONC PROPRE ET LISIBLE !!!

Philippe

[FrédéricCM]

Salut philben

dans le cas ou l'on veut acceder à champ calculé : rs("MonChampCalculé") ne fonctionne pas! (cf plus haut)

effectivement rs![MonChampCalculee] marche

donc le mieux est d'utiliser cette syntaxe plus lisible que rs(1)



Fred

[Muhad'hib]

Et le jour ou tu modifie le contenu de SQL (ajout d'un champ, suppression d'un autre, modif de l'ordre des champs ...) il faut que tu reprennes tout ton code pour remplacer rs(1) par rs(4) par exemple

Ce n'est qu'un avis personnel, mais je trouve plus lisible une synyaxe rs("nomduchamp) que rs(1). Si les nom de champs sont explicites (et sans espace ni accent) au moins on sait de quel champ on parle.

A+