Actualiser un datagrid

Version imprimable

Voir 40 message(s) de cette discussion en une page

19/04/2006, 17h13
nicaud

Actualiser un datagrid
Bonjour à toutes et tous !!

Je cherches à actualiser un datagrid et n'y parviens pas ...

J'ai un DataEnviroinnement
et voici le code que j'utilise pour afficher un datagrig :
Code:

1 2 Set Me.DataGridListTypeFrais.DataSource = dataEnv Me.DataGridListTypeFrais.DataMember = "repListLibtf"
mais une fois supprimé, ou mis à jour un champs grace à une requète sql, comment mettre à jour le datagrid autoimatiquement ?

Amicalement,
Nicolas
19/04/2006, 17h53
khany

Soit remettre ton datasource à Nothing puis le ré-allouer !

Soit utiliser Requery ! ;)

et concrètement ... comment ça seprésente en code ça ? :roll:

car comme ça ça mache pas :
Code:

1 2 3 4 5 Set Me.DataGridListTypeFrais.DataSource = Nothing Set Me.DataGridListTypeFrais.DataSource = dataEnv Me.DataGridListTypeFrais.DataMember = "repListLibtf" Me.DataGridListTypeFrais.Refresh

19/04/2006, 19h32
khany

Tu as oublié de faire un refresh !
19/04/2006, 19h55
nicaud

Me.DataGridListTypeFrais.Refresh

c'est pas mon refresh ça ?
ou alors faut raffraichir koi ?
19/04/2006, 19h56
khany

le recordset ! puis seulement l'allouer au datagrid ;)
19/04/2006, 20h15
nicaud

Citation:

Envoyé par khany

le recordset ! puis seulement l'allouer au datagrid ;)

je ne veux pas paraitre lourd .. mais sui vraiment novice:roll::)

Je compce que tu dis, mais ne vois pas comment le mettre en code ...
19/04/2006, 21h15
khany
Tu reprend ton recordset (rs) et tu le vides (ca, c de la sécurité, pas obligatoire) !

Ensuite, tu refais ta requête donc, tu remplis de nouveau le Rs et enfin tu le réalloues à ton datagrid (set) ;)

Normalement, cela doit aussi fonctionner en faisant :
Code:

1 2 Rs.Requery
mais parfois j'ai des résultats pas trop conformes :oops:
19/04/2006, 21h22
nicaud
je ne pige pas carj'ai pas de rs pour remplir un datagrid ...

pour remplir le datagrid, j'ai uniquement ça :
Code:

1 2 Set Me.DataGridListEmp.DataSource = dataEnv Me.DataGridListEmp.DataMember = "repListEmp"
alors pk me parles tu de rs ?

je suppose qu'il ne faut pas juste faire ça :
Code:

1 2 3 Rs.Requery Set Me.DataGridListEmp.DataSource = dataEnv Me.DataGridListEmp.DataMember = "repListEmp"
ceci bug et je ne vois pas quoi écrire ... :cry:
19/04/2006, 21h38
khany

Oui ! je sais ! les DE sont difficiles à rafraîchir !

Il y a eu plein de questions à ce propos sur le forum à un moment et si tu te rappelles notre conversation quand le forum était "out", je t'ai dit que les DE n'étaient pas trop facile à manipuler !

C'est beaucoup plus simple par le code ADO !

Je parie que si tu fermes ton appli puis que tu relances, les modif sont ok ! En cours d'exécution, c'est pas évident !

Quelles sont tes Options sur le DE ? (désolée, tj sur mon portable, pas de VB6 :( )
19/04/2006, 22h25
nicaud

ha ! déja content que ça soit toi, je ne t'avais pas reconnu par raport au chat ;)

En effet, tu as tout a fait raison, si je ferme l'appli et que je la relance, les modification apparaisse bien, ce qui est logique.

Les options du DE ?
je vais peut être paraitre bête en répondant ça :
- cnx
- commands
- connections
- name
- object
- recordset
- puis toute la liste de mes requète de mon DE
- toute la liste des rs que j'ai créé
20/04/2006, 09h18
khany

Une piste pour t'aider et te donner plein de trucs sur le DE :
http://www.developpez.net/forums/sho...ataenvironment

http://www.developpez.net/forums/sho...ataenvironment

http://www.developpez.net/forums/sho...ataenvironment

et celui-ci pour te prouver que derrière un DE, il y a toujours un recordset même s'il n'est pas instancié de la même manière qu'en ADO pur : http://www.developpez.net/forums/sho...ataenvironment

et là, un DE que j'ai créé et lié à un datareport (ben oui, pour une fois j'ai utilisé le DE mais remarque quand même que j'utilise quand même le recordset ADO :lol: ) :
http://www.developpez.net/forums/sho...ataenvironment

J'espère que tu trouveras ton bonheur là dedans ! Bonne lecture ! ;)
20/04/2006, 10h38
jacma
Citation:
Envoyé par nicaud

pour remplir le datagrid, j'ai uniquement ça :

Code:

1 2 Set Me.DataGridListEmp.DataSource = dataEnv Me.DataGridListEmp.DataMember = "repListEmp"
Et cela suffit amplement normalement. Et même la seule première ligne y suffirait, sous la forme

Code:

Set DataGridListEmp.DataSource = dataEnv

Citation:

alors pk me parles tu de rs ?

Derrière chaque objet Command de ton DataEnvironment, il y a un recordset sous-jacent. En untilisant intelisens, tu le trouveras sous la forme rscmdNom dans la liste déroulante ("tonDataEnvironment." affiche cette liste).
Citation:
je suppose qu'il ne faut pas juste faire ça :

Code:

1 2 3 Rs.Requery Set Me.DataGridListEmp.DataSource = dataEnv Me.DataGridListEmp.DataMember = "repListEmp"

ceci bug et je ne vois pas quoi écrire ... :cry:
Pas besoin de Requery. Toute modification d'une donnée dans un composant relié aux données s'effectue AUTOMATIQUEMENT (sous ADO) :roll: .

Concernant l'utilisation de DataEnvironment, celle-ci est très facile, au moins aussi facile que du code (pour Khany ;) ). Et en plus, avec le générateur de code SQL, c'est une aide appréciable pour démarrer.

PS: je complète: par modification, j'entends édition, mais aussi création et suppression d'un enregistrement. Pour un DataGrid, ne pas oublier de définir les 3 propriétés AllowAddNew, AllowDelete et AllowUpdate à true.

sniff sniff hein, j'ai lu, essayé vos exemple, ect .. et rien à faire je n'y parviens pas ...

1- tout d'abord ce que vous ne comprenez peut être pass c'est que je ne sais pas comment écrire correctement tout ce que vous me dites par phrases, pourriez-vous me donner un exemple concret ? :roll:

2- cette mise à jour doit se trouver dans le code lié au bouton je pense, n'est-ce pas ?

Voici le code pour supprimer l'enregistrement qui se trouve dans le recordset lorsque je clique sur le bouton supprimer (supTypeFrais)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub supTypeFrais_Click() rep = MsgBox("Êtes vous sur ?", vbYesNo) If rep = 6 Then dataEnv.reqSupTypeFrais labelTypeFrais MsgBox ("Type de Frais supprimé !") dataEnv.rsrepListLibtf.Delete Set Me.DataGridListTypeFrais.DataSource = dataEnv End If End Sub
voilà ce que j'ai essayé mais ne marche pas ...
le recorde set qui se trouve derrière le datagrid est donc rsrepListLibtf et mon datagrid se nomme DataGridListTypeFrais

comment mettre à jour le datagrid donc ? lol

20/04/2006, 17h52
khany

@ jacma : nicaud et moi, on doit avoir une allergie récursive pour le DE :lol:

Si,tu savais le nombre de fois où il s'est planté d'où mon amour pour l'ADO pur 8-)

Mais, tu as nettement plus d'expérience que moi dans ce domaine, alors si tu peux aider, j'en apprendrai aussi ;)
20/04/2006, 18h25
jacma

Citation:

Envoyé par nicaud

1- tout d'abord ce que vous ne comprenez peut être pass c'est que je ne sais pas comment écrire correctement tout ce que vous me dites par phrases, pourriez-vous me donner un exemple concret ? :roll:

Là, je suis scié. Tous mes praticiels sont réalisé autour d'un cas concret, avec tou le code expliqué pratiquement ligne à ligne. Que te faut-il de plus.

Citation:

2- cette mise à jour doit se trouver dans le code lié au bouton je pense, n'est-ce pas ?

La mise à jour est AUTOMATIQUE depuis un datagrid pour peu que les propriétés allow... que j'ai déjà citées soit à True.

Citation:

Voici le code pour supprimer l'enregistrement qui se trouve dans le recordset lorsque je clique sur le bouton supprimer (supTypeFrais)
[code]Private Sub supTypeFrais_Click()

Là, et dans ton exemple, on est dans un cadre un peu plus compliqué qui consiste à valider la saisie. Le problème est différent, car tu semble vouloir agir sur le recordset. Et dans ce cas là, il faut un requery comme celà a été évoqué plus haut.

Si j'ai le temps, je te concocte un exemple. Mais tous ceci est traité dans mon praticiel "Accès aux données ADO" (ligne à ligne :mouarf: ).
20/04/2006, 23h55
nicaud

Citation:

Envoyé par jacma

La mise à jour est AUTOMATIQUE depuis un datagrid pour peu que les propriétés allow... que j'ai déjà citées soit à True.
...
Si j'ai le temps, je te concocte un exemple. Mais tous ceci est traité dans mon praticiel "Accès aux données ADO" (ligne à ligne :mouarf: ).

De faire des modif directement dans le datagrid est une solution trop simple pour nos profs ... et il est vrai que de le faire dans des textbox rend l'application plus pro tout de même :)

Donc si tu as exemple, ça sera avec plaisir ;)
21/04/2006, 11h56
jacma

1 pièce(s) jointe(s)

Bonjour

Tu trouveras en piece jointe (zip) un exemple de ce qu'i est possible de faire. Il y a deux feuilles dans le projet, frmObjDependant qui n'utilise que le DataEnvironment, et frmRecordset qui utilise le recordset sous jacent du DataEnvironment.*

Tu constateras que pour la première feuille, les éditions, créations et suppressions se font sans aucun code, sans aucun requery ou autre. Dès que l'on passe à un autre enregistrement, les modifications sont prises en compte automatiquement. Le seul code de cette feuille concerne la navigation, et ce code utilise le recordset sous jacent.

Pour la seconde feuille, on travaille sur le recordset sous jacent. L'utilisateur doit choisir ce qu'il veut faire (boutons de cpmmandes Créer(*), Supprimer(X) ou Editer(E)). En fonction de son choix le statut du recordset prend une certaine valeur, et selon cette valeur il y a création, suppression ou édition. Les modifications se font aussi bien depuis les TextBox que depuis la grille.

A toi de dépiauter plus profondément ce que je t'envoie et de chercher à comprendre avant que de poser des questions. Tu as tous les éléments nécessaires, ce d'autant plus que toute cette démarche est exposée et expliquée ligne à ligne dans mon praticiel "Accès aux données ADO", sous une forme complète et adaptée pour un recordset hiérarchique. Mais la base reste identique, et je ne vais pas refaire un praticiel à ton usage exclusif... Je pense d'ailleurs que tu n'a pas vraiment fait l'effort de consulter ce praticiel et que tu attends une solution toute faite. Si tu crois que tu progresseras ains, tu te trompes grandement.

Le zip joint, si tu le décortiques, te permettra d'avancer. Regarde notamment les propriétés des TrxtBox et de la DataGrid dans les deux cas. Pour l'instant, la balle est dans ton camp, et je ne répondrais plus si tu ne sembles pas faire d'effort. Essaies d'avancer et poses une question précise sur le code joint.

Bon courage.

PS: pour passer d'une feuille à l'autre, utilises les propriétés du projet (Objet de démarrage).
21/04/2006, 19h03
nicaud

Merci beaucoup jacma !!

En effet, ton exemple va beaucoup m'aider et je comprend beaucoup mieu le fonctionnemet du recordset ! Et par ce fonctionnement, je me rend compte que je vais pouvoir supprimer pas mal de requète donc ! car même pour supprimer un enregistrement, j'avais fais une requète ! :D

MAIS maintenant, j'ai quand même un problème ... :
"erreur d'execution 3251
Le jeu d'enregistrements suivant ne prend pas en charge la mise à jour. Il s'agit peut être d'une limotation du fournisseur ou du type de verrou sélectionné"

Edit :
J'ai trouvé le pourquoi, dans les propriétés des requètes, dans l'onglet "Avancé", il faut mettre l'option "Type de verrouillage :" à 3- Optimiste
:)
je vais donc essayer d'appliquer cela au maximum car cela allège pas mal le nombre de requète !

Je me permet d'ajouter un nouveau poste car je ne parviens pas à ajouter un nouveau enregistrement simple tiré d'un texbox unique et pas avec une identifiant tel que ton exemple jacma ...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Private Sub newTypeFrais_Click() 'Création d'un nouveau Type de Frais If libelNewTypeFrais <> "" Then 'dataEnv.reqInsertTypeFrais Me.libelNewTypeFrais MsgBox ("Nouveau Type de Frais ajouté !") 'Met le recordset en mode ajout dataEnv.rsrepListLibtf.AddNew 'Rend les TextBox accessibles libelNewTypeFrais.Enabled = True 'Met la grille en mode ajout DataGridListTypeFrais.AllowAddNew = True DataGridListTypeFrais.AllowUpdate = True DataGridListTypeFrais.Col = 0 Me.libelNewTypeFrais = "" Else MsgBox ("Veuillez indiquer un libellé de Type de Frais !") End If End Sub
cela m'ajoute une ligne vide ...
car comment ce principe peut gérer le matricule auto par exemple qui se trouve dans une séquence appelé dans la requète SQL ?

PS: merci bcp jacma car ta méthode est vraiment bien !! enfin elle sera mieu quand je saurais faire l'ajout que je précise ci dessus.

Voir 40 message(s) de cette discussion en une page