Problème lors de l'écriture de données dans la base

Signaler
-
 track.950 -
Avec le code ci dessous,

set RS=Server.createobject("ADODB.Recordset")

RS.Cursorlocation=adUseServer
RS.Cursortype=adOpenkeyset
RS.locktype=adlockOptimistic
RS.open "INSCRIPTIONS",conn,,,adcmdtable
RS.addnew
RS("Nom")=request.querystring("T1")
RS("Prénom")=request.querystring("T2")
RS("Sexe")=request.querystring("R1")
RS("Adresse")=request.querystring("T3")
RS("CP")=request.querystring("T4")
RS("Localite")=request.querystring("T5")
RS("Pays")=request.querystring("S1")
RS("Autre")=request.querystring("T6")
RS("Email")=request.querystring("T7")
RS("PW")=request.querystring("T8")
RS("T1A")=request.querystring("T1A")
RS("T2A")=request.querystring("T2A")
RS("T3A")=request.querystring("T3A")
RS("T4A")=request.querystring("T4A")
RS("T1E")=request.querystring("T1E")
RS("T2E")=request.querystring("T2E")
RS("T3E")=request.querystring("T3E")
RS("T4E")=request.querystring("T4E")
RS("RepasAdultes")=request.querystring("T1A2")
RS("RepasEnfants")=request.querystring("T1E2")
RS.update
RS.close

j'ai le message d'erreur suivant:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][Pilote ODBC Microsoft Access]Erreur dans la ligne

et il m'indique la ligne du Update.
apparement, la connection avec la base est bonne, car un peu avant, je lis une table pour faire une liste déroullante et ca marche.

Merci de votre aide.

Eric

1 réponse

a enlever
RS.Cursorlocation= adUseServer
RS.Cursortype=adOpenkeyset
RS.locktype=adlockOptimistic

a remplacer

RS.open "INSCRIPTIONS",conn,,,adcmdtable
par
RS.open "INSCRIPTIONS",conn,3,3

ps : si le problem perciste remplace
RS.update
par
RS.updatebatch

et normalement mon eric sa marchera inchallah

[^!^]