ADO - Mise à jour de la base de données

Question

Bonjour,

J'ai ce code :

Public Sub RemplirDgProduits()
    With FrmStock
        Set rsRemplirDgProduits = New ADODB.Recordset        rsRemplirDgProduits.Open "SELECT P.*, E.EMB_UNITE FROM PRODUIT P, EMBALLAGE E WHERE E.EMB_NO P.PROD_EMB_NO AND P.PROD_TP_NO " & .typeSelectionne & " ORDER BY P.PROD_NOM", frmPrincipale.bdd, adOpenStatic, adLockBatchOptimistic
       
        'Cette boucle sert &#224; calculer la quantit&#233; actuelle pour chaque produit et l'ins&#232;re (ou devrait normalement l'ins&#233;rer) dans la bdd au niveau du champ "PROD_STOCK_ACTUEL" qui est donc un champ calcul&#233;
        For i = 0 To rsRemplirDgProduits.RecordCount - 1
            
L&#224; il y a normalement un code assez long pour calculer la quantit&#233; actuelle (rsCalculQteActuelle!STOCK_ACTUEL) du produit en cours. Je vous l'&#233;pargne d'autant plus qu'il fonctionne. 
            rsRemplirDgProduits.Fields("PROD_STOCK_ACTUEL") = rsCalculQteActuelle!STOCK_ACTUEL
            rsRemplirDgProduits.Update
            rsRemplirDgProduits.MoveNext
        Next
        
        Set .dgProduits.DataSource = rsRemplirDgProduits
        .dgProduits.Refresh
    End With
End Sub

Le code marche parfaitement. Tout s'affiche nickel dans le datagrid dgProduits quand j'ex&#233;cute le prog. Par contre, quand je vais voir dans la bdd, les modifications au niveau de "PROD_STOCK_ACTUEL" n'apparaissent pas. Le champ est &#224; null pour tous les enregistrements. Je sais que normalement les champs calcul&#233;s ne se mettent pas dans la bdd mais j'avais besoin de le faire appara&#238;tre dans le datagrid dgProduits. Tout ce que j'aimerais qu'on m'explique c'est pourquoi les modifs ne restent pas dans la bdd et comment faire pour qu'elles restent ?
 
Merci d'avance pour votre aide

cs_pluplu · Answer

Tu devrais essayer de d&#233;finir ton curseur de cette fa&#231;on adOpenDynamic au lieu de 
adOpenStatic 


Statique (adOpenStatic)
Position : Oui
D&#233;filement : Bidirectionnel
Sensibilit&#233; : Pas de mise &#224; jour des donn&#233;es modifi&#233;es
Copie de donn&#233;es. Les curseurs c&#244;t&#233; client sont toujours statiques.


Dynamique (adOpenDynamic)
Position : Oui
D&#233;filement : Bidirectionnel
Sensibilit&#233; : Refl&#232;te toutes les modifications de donn&#233;es ainsi que les enregistrements ajout&#233;s ou supprim&#233;s par d'autres utilisateurs
Ce poids lourd des curseurs, uniquement serveur, n'est pas support&#233; par tous les fournisseurs.

Pascal Lauren&#231;on

cs_dan24 · Answer

Merci pour ta r&#233;ponse mais quand je met le curseur &#224; adOpenDynamic ou a adOpenForwardOnly, "rsRemplirDgProduits.RecordCount" est &#233;gal &#224; -1 comme s'il n'y avait pas d'enregistrements dans mon recordset et du coup il y a un bug (erreur 7004 : "Le jeu d'enregistrements ne peut pas prendre en compte les signets") au niveau de ".dgProduits.DataSource = rsRemplirDgProduits". Par cons&#233;quent, je suis oblig&#233; de mettre adOpenKeyset ou adOpenStatic.

Une id&#233;e???

Encore merci

ADO - Mise à jour de la base de données

2 réponses

Discussions similaires