Discussion :

[eristoff_night]

Bonjour,

je cherche le moyen de faire unerequete sur un recordset, j'initialise un recordset avec une requete SQL. J'ai besoin de cette requete pour afficher la selection, mais je voudrais egalement afficher des statistiques.

Je voulais savoir s'il est possible, sur le recordset directement, de faire une requete style group by pour avoir mes statistiques? que ce soit en passant par un tableau, une methode du recordset, avoir d'autre recordset, n'importe quoi, je voudrais simplement eviter de passer par un table temporaire.

Merci

[eristoff_night]

Bonjour,

finalement j'ai reussi a trouver un moyen

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
16
17
18
19
20
21
22
23
24
25
26
27
Public Sub test()
 
Dim req1 As String
Dim req2 As String
Dim sql1 As DAO.QueryDef
Dim enr As DAO.Recordset
Dim enrStat As DAO.Recordset
 
req1 = "SELECT Table1.Nom, Table1.Prenom, Table1.Numero FROM Table1 WHERE (((Table1.Numero)=5));"
req2 = "SELECT [sql1].[Nom], count([sql1].[Numero]) FROM sql1 GROUP BY [sql1].[Nom];"
 
'MA SELECTION
    Set enr = CurrentDb.OpenRecordset(req1)
    If Not (enr.EOF = True) Then
        enr.MoveLast
        MsgBox enr.RecordCount
    End If
 
'MES STATISTIQUES
    Set sql1 = CurrentDb.CreateQueryDef("sql1", req1)
    Set enrStat = CurrentDb.OpenRecordset(req2)
 
    If Not (enrStat.EOF = True) Then
        MsgBox enrStat.RecordCount
    End If
 
End Sub

Comme vous pouvez le constater je ne fais pas mes statistiques sur le premier recordset (enr) mais j'utilise la requete numero un (req1).

Le probleme c'est que pour faire ma requete 2 (req2) je dois creer ma requete 1 (sql1).
Donc chaque fois que le programme va tourne je devoir :
- Creer ma requete 1 (sql1)
- Executer ma requete 2 (enrstat)
- Effacer ma requete 1 (sql1)

Je voulais savoir s'il n'y avait pas moyen de faire ce que je fais mais sans creer sql1, j'ai deja essayé mais je ne sais pas ce que je dois mettre dans mon string (req2)??

Merci

(Ceci est un programme de test bidon)

[MasterSleepy]

Salut,

Tu pourrais le faire en un requête sql.

Code :

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

1
2
3
req = "SELECT Table1.Nom, Table1.Prenom, Table1.Numero, stat.cpt FROM Table1, (SELECT [sql1].[Nom] as nom , count([sql1].[Numero]) as cpt FROM sql1 GROUP BY [sql1].[Nom]) as stat " & _
"INNER JOIN [SELECT [sql1].[Nom] as nom , count([sql1].[Numero]) as cpt FROM sql1 GROUP BY [sql1].[Nom]]. AS stat ON Table1.Nom = stat.nom " & _
"WHERE (((Table1.Numero)=5))"

A+,
MasterSleepy.

[random]

on peur parfaitement dans la même requête manipuler des données et leurs stats

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
16
17
 
SELECT *
FROM [SELECT 1 as ordre,"detail" AS nature, rubrique,item
FROM matable
union
SELECT 2 as ordre,"Stotaux" AS nature, rubrique, sum(item) as st
FROM matable group by rubrique
union
select 3 as ordre,"total" as nature,null as rubrique,sum(item)
from matable
union
select 4 as ordre,"nombre" as nature,rubrique, count(rubrique) as nb
from matable group by rubrique
union
select 5 as ordre,"moyenne" as nature,rubrique,avg(item) as moy
from matable group by rubrique]. AS tempo
WHERE ordre=[choix];

[eristoff_night]

Hummm... c'est joli tout ca chapeau

Merci a vous deux je devrais m'ensortir avec ca en tout cas avec le programme bidon ca marche maintenant je vais voir dans mon programme principale si j'y arrive aussi

Merci