Impossible de mettre a jour un champ

Oiseauxdefer Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -

Bonjour, jr vous inclus mon code, je d/bute avec les bases de dones

   ' Vérifiez si un enregistrement a été trouvé
    
   If Not oRS.EOF Then
    fieldValue = oRS.Fields("Value").Value
    MsgBox "Valeur du champ avant l'incrémentation : " & fieldValue  'Valeur du champ Valeur
    fieldValue = fieldValue + 1
     MsgBox "Valeur du champ après l'incrémentation : " & fieldValue  ' Valeur apres incremention

 oRS("Value").Value = fieldValue    ' c<est ici que ca ne fonctionne pas
     On Error GoTo UpdateError
    
    oRS.Update
      GoTo UpdateSuccess
End If


UpdateError:
MsgBox "Une erreur est survenue lors de la mise à jour : " & Err.Description


UpdateSuccess:
MsgBox "La mise à jour a été effectuée avec succès."
       
    
      MsgBox "Aucun enregistrement trouvé."
   ' End If
    
     'Fermez le Recordset
 Set oRS = Nothing
 

A voir également:

2 réponses

Utilisateur anonyme
 

Bonjour

pour tes prochains posts merci de faire comme décrit là https://codes-sources.commentcamarche.net/faq/11288-poster-un-extrait-de-code en choisissant Basic

Merci aussi de ne pas poster ta question en double, à part donner ton boulot à la modération ça ne sert à rien. Nous sommes tous bénévoles et on répond quand on peut et si on veut.


je d/bute avec les bases de dones

OK, VB6 (que tu sites dans ton autre messages) est obsolète, Microsoft a arrêté sa commercialisation en 1999 et l'a définitivement abandonné en 2005.

Pas certain que ce soit un bon choix pour débuter quoique ce soit.

Mais bon....

Indiquer la ligne qui plante c'est très bien, mais pour que quelqu'un puisse t'aider (à priori pas moi, ça fait plus de 15 ans que je ne code plus en VB6), il faudrait 

  • le message d'erreur
  • le type du champs dans la bdd
  • le type de la variable
  • le type de oRS

0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 

bonjour à tous,

j'ajouterais:

bonjour,

tu as bien mis "option explicit" en début de module?

remarques-tu la différence entre ces deux lignes ?

oRS.Fields("Value")

oRS("Value")

Je pense que le message d'erreur doit être assez clair, pourtant.

0
Oiseauxdefer Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 

Merci quand même j'ai remis ma demande cette fois avec plus de code je connais quand même VB6 depuis quelques années mais je ne l'ai jamais utiliser avec des bases de données

Bonne fin de journée

0