MSHFlexGrid et Recordset

Version imprimable

03/04/2012, 12h06
Calade

MSHFlexGrid et Recordset

Bonjour,

J'ai un problème en essayant de lier une MSHFlexGrid à un recordset.

Le lien à la source proprement dite ne pose pas de problème:
Set MSHF.DataSource = MyRecordset

par contre la spécification du champ à afficher ne fonctionne pas:
la syntaxe MSHF.DataField(0, 0) = MyFieldName
provoque une erreur de compilation "Affectation à une constante non autorisée".
Ce que je comprends pas, c'est qu'en fait je passe une variable.
De plus l'aide en ligne (le CHM) spécifie que cette propriété est en lecture seule, si tel est le cas, outre le message inadéquat qui est affiché, comment spécifier les champs à afficher alors que le simpliste DataGrid le permet sans problème.

Merci de votre réponse.
06/04/2012, 17h55
Overcrash

Bonjour,

Afin de favoriser tes chances de réponses je te conseille vivement d'ajouter ton code.
06/04/2012, 22h30
ProgElecT

Salut

Je pencherai pour agir au niveau du Recordset qui alimente le MSHFlexGrid, en général celui ci renvoi les champs dans l'ordre du Order By et le MSHFlexGrid est rempli suivant cette ordre.
07/04/2012, 08h00
Calade

Merci à tous deux de m'avoir répondu,

@Overcrash
Je peux toujours ajouter du code, mais les 2 lignes intéressantes sont celles que j'ai données.
Le Set DataSource fonctionne très bien, par contre l'assignation du DataField non. Et l'affichage de la Grid montre le 1er champ du recordset.

@ProgElecT
N'y a t'il pas moyen d'agir sur les champs affichés comme le basique DataGrid qui lui le permet sans problème.

Salut

Choix, nombre et ordre d'affichage de champs dans le MSHFlexGrid

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Command1_Click()
Adodc1.Recordset.Close
Adodc1.Recordset.Open "Select Champ6Unique, Champ4DateTime, Champ1Text From Principal", Adodc1.ConnectionString
Set MSHFlexGrid1.DataSource = Adodc1
End Sub
 
Private Sub Command2_Click()
Adodc1.Recordset.Close
Adodc1.Recordset.Open "Select Champ1Text, Champ4DateTime, Champ6Unique, NumEnrgLong From Principal", Adodc1.ConnectionString
Set MSHFlexGrid1.DataSource = Adodc1
End Sub

07/04/2012, 13h18
Calade

Salut et merci de ta réponse,

Je me suis mal expliqué.
Oui, je me doute bien qu'en fournissant au Grid un Recordset tout prêt, il allait me l'afficher.

Ce que je voulais savoir c'est s'il est possible, à partir d'un Recordset donné, dire au Grid de n'afficher que le 2ème champ par exemple et d'ignorer les autres, exactement comme tu peux le faire sans problème avec le Datagrid de base.
Ceci pour éviter de collectionner les recordsets spécifiques à chaque affichage.

Une dernière proposition, cacher les colonnes a ne pas afficher

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim T As Integer, U As Integer, MeArray
 
'6 Champs:
'NumEnrgLong, Champ1Text, Champ2Text, Champ3Integer, Champ4DateTime, Champ5Boolean, Champ6Unique
'liste des champs à ne pas visualiser
MeArray = Array("NumEnrgLong", "Champ4DateTime", "Champ6Unique")
 
'For T = MSHFlexGrid1.Cols - 1 To 0 Step -1
'ou bien
For T = Adodc1.Recordset.Fields.Count - 1 To 0 Step -1
    For U = 0 To UBound(MeArray)
        If Adodc1.Recordset.Fields(T).Name = MeArray(U) Then
            MSHFlexGrid1.ColWidth(T) = 0
        End If
    Next U
Next T

moins performant que de limiter le nombre de champs à l'ouverture du recordset.

09/04/2012, 08h07
Calade

Merci de ta réponse.
Je n'avais effectivement à ce moyen qui pourrait marcher à défaut d'être très élégant.
Je fais mes essais et je te tiens au courant.