[VB6]Prob MSflexgrid

Salut,

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

Code:

---

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:

---

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

@++

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

Code:

---

Set grille1.DataSource = rst

---

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

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.

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

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.

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

Code:

---

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.

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:

---

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:

---

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.

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

Code:

---

Set grille1.DataSource = rst

---

Mais il me sort une erreur.

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

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:

---

1 2 3

Dim intCount As Integer intCount = rs!Expr2 MsgBox intCount

---

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:

---

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

---

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.

Citation:

---

Envoyé par jacma

Select COUNT :?: :?: :?: :?: :?: :?:

---

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

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

Code:

---

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

---

Merci ça marche. Il me manquait cette ligne :

Code:

---

cn.CursorLocation = adUseClient

---

Je vous remercie de votre aide

@++