Discussion :

[slc]

Bonjour
je souhaite recuperer le champs ID incrémenté automatiquement apres l'update.

Sous Access, le code suivant fonctionnait mais SQL Server me renvoie une valeur vide quand je la recupere.
j'aimerai eviter de refaire un select pour récuperer la valeur, j'ai beaucoup de page qui utilise cette methode.

set rsAvance = CreateObject("ADODB.Recordset")
l_sRequete = "Table"
rsAvance.Open l_sRequete,conn,1,3,512

rsAvance.AddNew

rsAvance("Etat") = Etat
rsAvance("Type") = Type

rsAvance.Update

Log("id = " & rsAvance("Id"))

Merci

[rodolphedj]

moi aussi , je serais interessé.

à part rechercher l'id dans ta base, pour l'instant, je ne vois pas.

[slc]

J'ai trouvé
Déja mettre en commentaire les 'On Error Resume Next' ca aide beaucoup.
C'est peut etre evident mais je debute en ASP et en plus c'est pas moi qui ai codé

Il faut rajouter
rsAvance.CursorLocation = 3 '(= adUseClient )
avant le Open et ca fonctionne pour moi.

plus d'infos : http://knowledgebase2.datadirect.com...P?OpenDocument

[rodolphedj]

excuse moi, mais j'ai du mal à comprendre comment fonctionne la variable...

[rodolphedj]

Je pense que ça pourra aider.

Valeur de CursorLocation

1 OBSOLETE (appears only for backward compatibility). Does not use cursor services
2 Default. Uses a server-side cursor
3 Uses a client-side cursor supplied by a local cursor library. For backward compatibility, the synonym adUseClientBatch is also supported

[rodolphedj]

je suis sous access et je n'arrive pas à récupérer mon id , créer automatiquement lors de l'update...

[slc]

Salut,
le code du debut fonctionne sous access chez moi. Tu as quoi comme erreur ?

Tu peut eventuellement rajouter rsAvance.CursorLocation = 2 mais normalement c'est la valeur par defaut.

[rodolphedj]

Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
SQL="SELECT * FROM TOTO"
RS.Open SQL,Conn , 3, 3
rs.CursorLocation = 2
rs.CursorType = 1
rs.LockType = 3
RS.addnew
RS("SOURCE")="I"
RS.update 'Envoi !
COMPTEUR_REF=RS("ref") 'ref etant un numauto dans ma BD
RS.Close
response.write COMPTEUR_REF

et j'ai rien dedans....

[rodolphedj]

j'ai essayer comme ça, c'est pareil

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
SQL="SELECT * FROM TOTO" 
rs.CursorLocation = 2 
RS.Open SQL,Conn , 3, 3 
RS.addnew 
RS("SOURCE")="I" 
RS.update 'Envoi ! 
COMPTEUR_REF=RS("ref") 'ref etant un numauto dans ma BD 
RS.Close 
response.write COMPTEUR_REF

[rodolphedj]

ça fonctionne !!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
SQL="SELECT * FROM TOTO" 
rs.CursorLocation = 2
rs.CursorType = 1
rs.LockType = 3
RS.Open SQL,Conn,,2
RS.addnew 
RS("SOURCE")="I" 
RS.update 'Envoi ! 
COMPTEUR_REF=RS("ref") 'ref etant un numauto dans ma BD 
RS.Close 
response.write COMPTEUR_REF