Discussion :

[yoda7666]

Salut,

Voila j'ai un problème pour remplir mon MSflexgrid dont voici le code

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
grille1.Row = 0
grille1.Col = 1
grille1.Text = "Nb de votes"
'largeur la colonne1
grille1.ColWidth(1) = 1500
'données alignées à gauche dans la colonne 1
grille1.ColAlignment(1) = 0
'colonne2,ligne0,titre
grille1.Row = 0
grille1.Col = 2
grille1.Text = "Appreciation"
'largeur la colonne2
grille1.ColWidth(2) = 1500
'données alignées à gauche dans la colonne 2
grille1.ColAlignment(2) = 0

Et voici mon recordset avec lequel je récupère mes données.

Code :

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

1
2
3
strRequete = "Select count(n_appreciation) as nbvote, appreciation from service group by appreciation"
Set rst = New ADODB.Recordset
rst.Open strRequete, cnx, adOpenStatic

Mais je n'arrive pas à introduire mes données dans mon MSflexgrid.

J'espère que vous pourrez m'aider

@++

[ThierryAIM]

a ca c'est sur que si tu mets pas un

Code :

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

Set grille1.DataSource = rst

les données, elle vont pa y aller toutes seules

[yoda7666]

Ah j'ai une erreur qui me dit :"Object variable not set" ou un truc dans ce style là. Je ne comprend pas d'ou vient cette erreur. Mon MSflexgrid s'appelle bien grille1 pourtant.

[jacma]

Select COUNT : : : : : :
C'est une fonction d'agrégation qui te renvoiele nombre de valeurs dans une colonne. Pas étonnant que ta grille n'affiche rien.

Fais un simple SELECT* FROM... GROUP BY

[yoda7666]

Mais je ne veux pas tout afficher c'est ça le problème je veux compter le nombre de réponse en fonction de l'appréciation et l'afficher dans mon MSflexgrid. C'est pour un outil de sondage.

[yoda7666]

Sinon j'ai essayer ça pour mettre mes données dans le MSflexgrid :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim ligne As String
 
ligne = 1
rst.MoveFirst
Do While Not rst.EOF
grille1.Rows = ligne + 1
grille1.Row = ligne
grille1.Col = 1
grille1.Text = rst!nbvote
grille1.Col = 2
grille1.Text = rst!appreciation
ligne = ligne + 1
Loop

Mais ma boucle ne s'arrete pas pourtant les indices semble bon.

Des idées sur mon problèmes ou est ce que je fait est complètement faux. J'avoue je suis un peu perdu avec le MSflexgrid.

[jacma]

La requête suivante permet d'afficher le nombre de record ayant pour valeur "New York" de la table Publishers. A toi d'adapter à ton cas.

Code :

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

1
2
3
4
SELECT COUNT(*) AS Expr2, City AS Expr1
FROM Publishers
GROUP BY City
HAVING (City = 'New York')

Pour n'afficher que les enregistrements dont la valeur du champ City est égale à "New York", la requête est:

Code :

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

1
2
3
SELECT Publishers.*, City AS Expr1
FROM Publishers
WHERE (City = 'New York')

Donc, deux objectifs => deux requêtes. Penses à définir la source de ta grille avec SET comme te l'a dit Thierry Aim. Et le recordset est celui issu de la seconde requête. Ainsi tu nauras ta grille remplie.

[yoda7666]

Mon problème c'est pas la requete c'est transférer le résultat dans le Msflexgrid. J'ai essaye le

Code :

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

Set grille1.DataSource = rst

Mais il me sort une erreur.

[jacma]

TA REQUETE TELLE QU'ELLE EST NE PEUT PAS T'AFFICHER QUOIQUE CE SOIT DANS TA GRILLE.

Soit tu veux les enregistrements dans ta grille et tu utilises la chaîne SQL 2, soit tu veux le nombre d'enregistrements correspondant à tes critères et tu utilises la requête 1.

Pour afficher le nombre d'enregistrements, fais ensuite, par exemple:

Code :

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

1
2
3
Dim intCount As Integer
intCount = rs!Expr2
MsgBox intCount

[jacma]

Je complète ma réponse précédente.

Si tu veux obtenir le total pour chacune des valeurs de la colonne de regroupement, utilises une DataGrid, la MSHF n'étant pas compatible.

Et donc, le code suivant t'affiche le total des publisehers de chaque ville dans la datagrid.

Code :

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

1
2
3
4
5
SQL = "SELECT COUNT(*) AS Expr2, City AS Expr1 From Publishers GROUP BY City"
 
rs.Open SQL, cn, adOpenDynamic, adLockOptimistic
rs.MoveFirst
Set DataGrid1.DataSource = rs

[yoda7666]

Re,

J'ai essayer ce que tu m'a dit. J'ai donc mis une datagrid et le code que tu m'a donnée en y mettant ma requete et j'obtiens cette erreur :

"The rowset is not bookmarkable"

Une idée d'ou provenir cette erreur ?

Je sens qu'on touche au but.

[ThierryAIM]

Select COUNT : : : : : :

j'étais même pas allé jusque là (suis fatigué, moi aujourd'hui )

[jacma]

Voici le code complet qui fonctionne parfaitement chez moi. Vérifies la position curseur (adUseClient) et les paramètres de connexion.

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
Private Sub Form_Load()
 
  Dim cn As ADODB.Connection
  Dim SQL As String
  Dim rs As ADODB.Recordset
  Dim arCount(2) As Variant
 
  Set cn = New Connection
  Set rs = New Recordset
 
  cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\DidactDB\Biblio2002.mdb"
  cn.CursorLocation = adUseClient
  SQL = "SELECT COUNT(*) AS Expr2, City AS Expr1 From Publishers GROUP BY City"
 
  rs.Open SQL, cn, adOpenDynamic, adLockOptimistic
  rs.MoveFirst
  Set DataGrid1.DataSource = rs
 
End Sub

[yoda7666]

Merci ça marche. Il me manquait cette ligne :

Code :

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

cn.CursorLocation = adUseClient

Je vous remercie de votre aide

@++