MSHFLEXGRID et SELECT

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

Code:

---

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

---

Tu peux utiliser les balises Code pour les listings de code. C'est le bouton http://www.developpez.net/forums/images/editor/code.gif. Ç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 ?

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+

Citation:

---

Envoyé par 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:

---

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+

Code:

---

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

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:

---

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/