Discussion :

[nkouo]

je voudrais afficher dans un mshflexgrid tous les enregistrements relatifs à une clause select mais pas facile voila le code que j'ai tapé:

Code :

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

1
2
3
4
5
6
7
8
private txtcombo_change ' datacombo sur le formulaire pour selectionner la reference du produit
sql as string ' variable por la requete
rs as NEW ADODB.recordset ' acces à la table produit
 
sql="select * from produit where refprod=' " & txtcombo & " '
rs.open sql connexion
' apres avoir acceder a ma table j'affiche mes enregistrements dans le MSHFLEXGRID,mon Dieu c'est le debut !!!!
MSHFLEXGRID.recordset=rs ' il me renvoie l'erreur 91 et 13

[zazaraignée]

Tu peux utiliser les balises Code pour les listings de code. C'est le bouton . Ça colorie les mots clés tout seul! Mais faudra d'abord enlever les balises de format de texte (la couleur que tu as ajouté).

Tu as regardé les tutoreils et la FAQ ?

[LeForestier]

Bonjour,
Je ne connais pas spécialement ce traitement, toutefois, si tu regarde dans l'aide le paramètre à passer dans Grid.recordset est un objet et non une variable. Il faudrait probablement déclarer un objet avec l'API createObjet !
Je n'ai pas ca en mémoire pour le moment mais je peu éventuellement faire une recherche si tu ne trouve pas.
A+

[LeForestier]

Bonjour,
Je ne connais pas spécialement ce traitement, toutefois, si tu regarde dans l'aide le paramètre à passer dans Grid.recordset est un objet et non une variable. Il faudrait probablement déclarer un objet avec l'API createObjet !
Je n'ai pas ca en mémoire pour le moment mais je peu éventuellement faire une recherche si tu ne trouve pas.
A+

Correction, ce n'est pas au moyen d'API, mais il faut bien déclarer le recordset en objet..
Exemple trouver dans l'aide.

Code :

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

1
2
3
4
5
6
7
8
Dim Db As Database, Rs As Recordset   ' Définit des variables.
Sub ApplyRecordset()
   Set Db = Workspaces(0).OpenDatabase("BIBLIO.MDB")
   Set Rs = Db.OpenRecordset("AUTHORS") ' Objet Table par défaut.
   Set Data1.Recordset = Rs   ' Affecte l'objet Recordset.
   Data1.Recordset.Index = "PrimaryKey"
   Debug.print Rs.Type   ' Affiche le type d'objet créé.
End Sub

a+

[ProgElecT]

Code :

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

1
2
3
4
sql="select * from produit where depot='"  & txtcombo.Text & "'
rs.open sql,connexion
 set mshflexgrid.recordset=rs
end sub

La modification txtcombo.Text , cela pourrait être aussi txtcombo.List(txtcombo.listIndex) .
Mettre cette commande dans la procedure txtcombo_change ne me semble pas des plus approprié, car pour toutes nouvelles frappe au clavier, la requette select va être executé.
Je verrai plutôt sa dans la procedure txtcombo_Click

[Mat_76]

Bonjour,

Déjà, je ne sais pas si c'est une faute dans le copier/coller, mais il manque une fermeture de double-quote (")

Ensuite, il me semble que le MSHFlexGrid n'accepte comme source de données que des requètes hiérarchique du type:
"SHAPE {requete} AS ..."

De plus, il faut un certain type de Provider avec ta connection pour les requètes hiérarchiques.

Code :

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

1
2
 
connexion.Povider = "MSDataShape"

Je te conseil le tutorial suivant qui m'a permis de maitriser à peu près les MSHFlexGrid : http://jacma.developpez.com/grillesrsh/