1. #1
    Membre à l'essai Avatar de Tchicken
    Homme Profil pro
    Responsable d'exploitation informatique
    Inscrit en
    août 2017
    Messages
    19
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Val d'Oise (Île de France)

    Informations professionnelles :
    Activité : Responsable d'exploitation informatique

    Informations forums :
    Inscription : août 2017
    Messages : 19
    Points : 13
    Points
    13

    Par défaut Mise à jour recordset VS2012 ADO 6.1

    Bonjour à tous,

    je ne parviens pas mettre à jour mon recordset :

    Voici la connexion :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
            'demande de connexion
            cn = New ADODB.Connection
            cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=ACCESSMATIC.ACCDB"
            cn.Open()
    L'ouverture du Recorset :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
                    ' Update de la table RChevaux
                    MyString = "select * from Chevaux where NumGeny='" & RReunions.Fields("NumGeny").Value & "' and NumCourse=" & RCourses.Fields("NumCourse").Value & " order by ClaCRIFX asc"
                    RChevaux = New ADODB.Recordset
                    With RChevaux
                        .CursorType = ADODB.CursorTypeEnum.adOpenStatic
                        .LockType = ADODB.LockTypeEnum.adLockBatchOptimistic
                        .CursorLocation = ADODB.CursorLocationEnum.adUseClient
                        .Open(MyString, cn, , , ADODB.CommandTypeEnum.adCmdText)
                    End With
                    RChevaux.MoveFirst()
    La tentative de mise à jour :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
                        If RChevaux.Fields("PtsStats").Value < PtsStats Then
                            RChevaux.Fields("PtsStats").Value = PtsStats
                        End If
                        If RChevaux.Fields("ValStats").Value < ValStats Then
                            RChevaux.Fields("ValStats").Value = ValStats
                        End If
                        RChevaux.Update()
                        RChevaux.MoveNext()
    Voyez-vous où j'ai fait une erreur ?

    D'avance merci, Tchicken

  2. #2
    Expert confirmé
    Avatar de dysorthographie
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    septembre 2016
    Messages
    2 824
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Charente Maritime (Poitou Charente)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Industrie

    Informations forums :
    Inscription : septembre 2016
    Messages : 2 824
    Points : 4 824
    Points
    4 824
    Billets dans le blog
    1

    Par défaut

    Bonjour,
    Ça te donneras peut être des idées!

    https://www.developpez.net/forums/d1...s/#post8640457

    Ado est obsolète pour dot.net!
    Il dit non avec la tête
    mais il dit oui avec le coeur
    il dit oui à ce qu’il aime
    il dit non au professeur {Jacques PRÉVERT}

  3. #3
    Membre à l'essai Avatar de Tchicken
    Homme Profil pro
    Responsable d'exploitation informatique
    Inscrit en
    août 2017
    Messages
    19
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Val d'Oise (Île de France)

    Informations professionnelles :
    Activité : Responsable d'exploitation informatique

    Informations forums :
    Inscription : août 2017
    Messages : 19
    Points : 13
    Points
    13

    Par défaut

    J'ai solutionné mon problème en mettant à jour en requête direct, j'ai abandonné la mise à jour du recordset :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
                        If RChevaux.Fields("PtsStats").Value < PtsStats Then
                            RChevaux.Fields("PtsStats").Value = PtsStats
                            ' Update de la table RChevaux
                            Application.DoEvents()
                            MyString = "update Chevaux set PtsStats = " & Replace(PtsStats, ",", ".")
                            MyString = MyString & " where NumGeny = '" & RReunions.Fields("NumGeny").Value
                            MyString = MyString & "' and NumCourse = " & RCourses.Fields("NumCourse").Value
                            MyString = MyString & " and Numero = " & CInt(RChevaux.Fields("Numero").Value)
                            cn.Execute(MyString)
                        End If
                        If RChevaux.Fields("ValStats").Value < ValStats Then
                            RChevaux.Fields("ValStats").Value = ValStats
                            ' Update de la table RChevaux
                            Application.DoEvents()
                            MyString = "update Chevaux set ValStats = " & Replace(ValStats, ",", ".")
                            MyString = MyString & " where NumGeny = '" & RReunions.Fields("NumGeny").Value
                            MyString = MyString & "' and NumCourse = " & RCourses.Fields("NumCourse").Value
                            MyString = MyString & " and Numero = " & CInt(RChevaux.Fields("Numero").Value)
                            cn.Execute(MyString)
                        End If

  4. #4
    Expert confirmé
    Avatar de dysorthographie
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    septembre 2016
    Messages
    2 824
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Charente Maritime (Poitou Charente)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Industrie

    Informations forums :
    Inscription : septembre 2016
    Messages : 2 824
    Points : 4 824
    Points
    4 824
    Billets dans le blog
    1

    Par défaut

    Bonjour,
    (Ado) adOpenDynamic
    Il dit non avec la tête
    mais il dit oui avec le coeur
    il dit oui à ce qu’il aime
    il dit non au professeur {Jacques PRÉVERT}

  5. #5
    Membre à l'essai Avatar de Tchicken
    Homme Profil pro
    Responsable d'exploitation informatique
    Inscrit en
    août 2017
    Messages
    19
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Val d'Oise (Île de France)

    Informations professionnelles :
    Activité : Responsable d'exploitation informatique

    Informations forums :
    Inscription : août 2017
    Messages : 19
    Points : 13
    Points
    13

    Par défaut

    Bonjour,

    tu veux dire ceci :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
                  ' Update de la table RChevaux
                    MyString = "select * from Chevaux where NumGeny='" & RReunions.Fields("NumGeny").Value & "' and NumCourse=" & RCourses.Fields("NumCourse").Value & " order by ClaCRIFX asc"
                    RChevaux = New ADODB.Recordset
                    With RChevaux
                        .CursorType = ADODB.CursorTypeEnum.adOpenDynamic
                        .LockType = ADODB.LockTypeEnum.adLockBatchOptimistic
                        .CursorLocation = ADODB.CursorLocationEnum.adUseClient
                        .Open(MyString, cn, , , ADODB.CommandTypeEnum.adCmdText)
                    End With
                    RChevaux.MoveFirst()

  6. #6
    Expert confirmé
    Avatar de dysorthographie
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    septembre 2016
    Messages
    2 824
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Charente Maritime (Poitou Charente)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Industrie

    Informations forums :
    Inscription : septembre 2016
    Messages : 2 824
    Points : 4 824
    Points
    4 824
    Billets dans le blog
    1

    Par défaut

    oui
    Il dit non avec la tête
    mais il dit oui avec le coeur
    il dit oui à ce qu’il aime
    il dit non au professeur {Jacques PRÉVERT}

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Mise à jour recordset VS2012 ADO 6.1
    Par Tchicken dans le forum Accès aux données
    Réponses: 1
    Dernier message: 18/12/2017, 19h01
  2. Mise à jour avec méthode ADO
    Par ericdev67 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 03/03/2014, 22h18
  3. Proplème de mise à jour d'un recordset par ADO
    Par maniani dans le forum Requêtes et SQL.
    Réponses: 3
    Dernier message: 23/01/2006, 19h14
  4. [vb][ado][mysql] mise à jour d'un recordset
    Par hi_vivie dans le forum VB 6 et antérieur
    Réponses: 6
    Dernier message: 14/12/2005, 16h34
  5. [Acess][ADO] Mise à jour d'un DBGrid
    Par arogues dans le forum Bases de données
    Réponses: 4
    Dernier message: 05/02/2005, 15h14

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo