Do While Not RsAccess.EOF
For index = 0 To RsAccess.Fields.Count - 1
RsSS.Fields(index) = RsAccess.Fields(index)
Next
RsSS.Update
RsAccess.MoveNext
Loop
En fait, j'ai une "erreur d'exécution 3251 : le jeu d'enregistrements
suivant ne prend pas en charge la mise à jour. Il s'agit peut-être d'une
limitation du fournisseur ou du type de verrou sélectionné."
L'erreur vient-elle de mon code ? Il me semble qu'en l'ouvrant en
adOpenDynamic ça devrait intégrer les mises à jour, non ? Ou y a-t-il autre
chose ?
Merci d'avance,
Do While Not RsAccess.EOF For index = 0 To RsAccess.Fields.Count - 1 RsSS.Fields(index) = RsAccess.Fields(index) Next RsSS.Update RsAccess.MoveNext Loop
En fait, j'ai une "erreur d'exécution 3251 : le jeu d'enregistrements suivant ne prend pas en charge la mise à jour. Il s'agit peut-être d'une limitation du fournisseur ou du type de verrou sélectionné." L'erreur vient-elle de mon code ? Il me semble qu'en l'ouvrant en adOpenDynamic ça devrait intégrer les mises à jour, non ? Ou y a-t-il
autre
chose ? Merci d'avance,
Via :)
C'est bon, il suffisait d'écrire :
RsSS.Open SQL, Connexion, adOpenDynamic, adLockPessimistic
'adLockPessimistic peut être remplacé par adLocKOptimistic d'ailleurs.
au lieu de :
RsSS.Open SQL, Connexion, adOpenDynamic
Via :)
"Via" <chew.baka@caramail.com> a écrit dans le message de news:
#GUI4QuaDHA.2476@tk2msftngp13.phx.gbl...
Bonjour à tous !
Voici mon code :
Set RsSS = New ADODB.Recordset
RsSS.CursorLocation = adUseClient
RsSS.Open SQL, Connexion, adOpenDynamic
Do While Not RsAccess.EOF
For index = 0 To RsAccess.Fields.Count - 1
RsSS.Fields(index) = RsAccess.Fields(index)
Next
RsSS.Update
RsAccess.MoveNext
Loop
En fait, j'ai une "erreur d'exécution 3251 : le jeu d'enregistrements
suivant ne prend pas en charge la mise à jour. Il s'agit peut-être d'une
limitation du fournisseur ou du type de verrou sélectionné."
L'erreur vient-elle de mon code ? Il me semble qu'en l'ouvrant en
adOpenDynamic ça devrait intégrer les mises à jour, non ? Ou y a-t-il
Do While Not RsAccess.EOF For index = 0 To RsAccess.Fields.Count - 1 RsSS.Fields(index) = RsAccess.Fields(index) Next RsSS.Update RsAccess.MoveNext Loop
En fait, j'ai une "erreur d'exécution 3251 : le jeu d'enregistrements suivant ne prend pas en charge la mise à jour. Il s'agit peut-être d'une limitation du fournisseur ou du type de verrou sélectionné." L'erreur vient-elle de mon code ? Il me semble qu'en l'ouvrant en adOpenDynamic ça devrait intégrer les mises à jour, non ? Ou y a-t-il
