Discussion :

[Tchicken]

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

[Invité]

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

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

Ado est obsolète pour dot.net!

[Tchicken]

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

[Invité]

Bonjour,
(Ado) adOpenDynamic

[Tchicken]

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()

[Invité]

oui