Bonjour,
pour faire court voici mon code :
If IsObject(Session("Client_conn")) Then
Set conn = Session("Client_conn")
Else
' Path long de la base de données
dbPath = Server.MapPath(".")
' Création de l'objet permettant la connexion
Set Conn = Server.CreateObject("ADODB.Connection")
' Connexion
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & dbPath & "/BD/bdtest.mdb"
Set Session("Client_conn") = conn
End If
'Ecriture de la requete pour la table Adhesion
req="update client set mdp='s' where NUM='A';"
'Création du RecordSet
Set oRst = Server.CreateObject("ADODB.Recordset")
'Surveillance des erreurs
On Error Resume Next
'Ouverture du recorset et execution de la requete sql
'oRst.Open Req, Conn
Conn.Execute req
If err Then
Response.Write Err.description
else
%><P>Mot de passe modifié</P<%
End If
'Fin de la gestion des erreurs
On Error goto 0
ET voici mon erreur :
Microsoft][Pilote ODBC Microsoft Access] Trop peu de paramètres. 2 attendu
Vraiment je ne comprends pas pourquoi. J'ai essayé different mode d'ouverture de requete mais cela ne fonctionne guere mieux. SI quelqu'un comprend...
Merci a tous