Forum de discussion
Forum « Programmation ASP » (archives)
UPDATE ne fonctionne pas !
Envoyé: 26 mars 2004, 4h37 par klam
J'ai une page .asp qui contient un formulaire qu ime permet de modifier les données du client, les données sont correctes. Jusque là tout va bien. Lors du submit j'ai une page ASP qui récupère les valeurs du formulaire dans des variables, je les affiche elles sont toutes correctes. Seulement lorsque j'arrive à l'ouverture de la requête IE me sors cette erreur:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
Ce pilote ODBC ne prend pas en charge les propriétés demandées.
Mon code :
'--- Récupération des données ---
str_ID = Request("txt_ID")
str_Pass = Request("txt_Pass")
str_Nom = Request("txt_Nom")
str_Prenom = Request("txt_Prenom")
str_TelFixe = Request("txt_TelFixe")
str_Rue = Request("txt_Rue")
str_CodePostal = Request("txt_CodePostal")
str_Ville = Request("txt_Ville")
str_TelPortable = Request("txt_TelPortable")
str_Email = Request("txt_Email")
'--- Affichage des variables ---
'Response.Write str_ID & "<----str_ID<br>" & Chr(13)
'Response.Write str_Pass & "<----str_Pass<br>" & Chr(13)
'Response.Write str_Nom & "<----str_Nom<br>" & Chr(13)
'Response.Write str_Prenom & "<----str_Prenom<br>" & Chr(13)
'Response.Write str_TelFixe & "<----str_TelFixe<br>" & Chr(13)
'Response.Write str_Rue & "<----str_Rue<br>" & Chr(13)
'Response.Write str_CodePostal & "<----str_CodePostal<br>" & Chr(13)
'Response.Write str_TelPortable & "<----str_TelPortable<br>" & Chr(13)
'Response.Write str_Email & "<----str_Email<br>" & Chr(13)
'=== Connection à la base de données ===
Set obj_conn = Server.CreateObject("ADODB.Connection")
obj_conn.Open "db_restaurant","",""
Set obj_rsUpdate = Server.CreateObject("ADODB.Recordset")
str_SqlUpdate = "UPDATE t_Clients SET f_Clients_Nom='" & str_Nom & "'," &_
"f_Clients_Prenom='" & str_Prenom & "'," &_
"f_Clients_CodePostal='" & str_CodePostal & "'," &_
"f_Clients_Ville='" & str_Ville & "'," &_
"f_Clients_Rue='" & str_Rue & "'," &_
"f_Clients_TelFixe='" & str_TelFixe & "'," &_
"f_Clients_TelPortable='" & str_TelPortable & "'," &_
"f_Clients_Pass='" & str_Pass & "'," &_
"f_Clients_Email='" & str_Email & "'" &_
" WHERE ID_Client=" & str_ID
'Response.Write str_SqlUpdate & "<----str_SqlUpdate<br>"
obj_rsUpdate.Open str_SqlUpdate,obj_conn,1,1
'Response.Redirect "/enregistrements/view_users.asp"
Je ne peux pas utiliser EXECUTE car pas assez sécurisé et on ne peut l'utiliser qu'une fois à ce que l'on m'a dit ...
HELP !!
Réponses
|