Discussion :

[ocean_prince11]

J'ai un problème de "update" avec une base (qui contient une table client avec les champs "pol" et "nom" de type texte les deux)que j'ai créé sous access 2002 avec service web IIS sous windows XP SP2, voila mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
----------------------------------------------------------------
<%
on error resume next
c1 = request.form("txt_pol")
c2 = request.form("txt_nom")
set Conn = server.createObject("ADODB.Connection")
Conn.provider = "Microsoft.jet.OLEDB.4.0"
Conn.connectionString = "Data Source=" & server.mappath("base.mdb") & ";Persist Security Info=False"
conn.open
Set rs=server.createObject ("ADODB.recordset")
my_sql = "Update client set nom = '" & c2 & "' where pol = '" & c1 & "'"
rs.open my_sql,conn,2,2
rs.close
set rs=nothing
Conn.close
Set conn=nothing
%>
----------------------------------------------------------------------
puis j'ai essayer avec ce code:
---------------------------------------------------------------------
<%
on error resume next
c1 = request.form("txt_pol")
c2 = request.form("txt_nom")
set Conn = server.createObject("ADODB.Connection")
Conn.provider = "Microsoft.jet.OLEDB.4.0"
Conn.connectionString = "Data Source=" & server.mappath("base.mdb") & ";Persist Security Info=False"
conn.open
Set rs=server.createObject ("ADODB.recordset")
my_sql = "Update client set nom = '" & c2 & "' where pol = '" & c1 & "'"
 
Conn.Execute my_sql
 
rs.close
set rs=nothing
Conn.close
Set conn=nothing
%>
----------------------------------------------------------------------
puis avec ce code :
-----------------------------------------------------------------------
<%
on error resume next
c1 = request.form("txt_pol")
c2 = request.form("txt_nom")
set Conn = server.createObject("ADODB.Connection")
Conn.provider = "Microsoft.jet.OLEDB.4.0"
Conn.connectionString = "Data Source=" & server.mappath("base.mdb") & ";Persist Security Info=False"
conn.open
Set rs=server.createObject ("ADODB.recordset")
rs.Open "client", conn, 1, 2 ,2
rs.fields("pol")=c1
rs.fields("nom")=c2
rs.update
rs.close
set rs=nothing
Conn.close
Set conn=nothing
%>
-----------------------------------------------------------------------

et toujours je reçois le message :

Erreur N°: -2147467259 L'opération doit utiliser une requête qui peut être mise à jour.

Veuillez m'aider c'est urgent
Merci

[pc75]

Bonjour,

Avant de faire le Execute, affiche ta requête et dis nous ce qu'elle contient :

Code :

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

1
2
 
response.write(my_sql)

[ocean_prince11]

D'abord je m'excuse pour le mot urgent mais parce c'est un travail demandé par le directeur et les directeurs ne n'aiment pas entendre "il y a un problème!!??" ou "ça ne marche pas!!??"

Bon, j'ai fait ce que vous m'avez demandé et j'ai reçu comme résultat :

Update client set nom = 'jean jacke' where pol = '333333'

et toujours aucune modification sur la base .

[marabout]

Es-tu certain de tes types de données ? Je m'inquiète essentiellement pour ton champ "pol"

[ocean_prince11]

"pol" signifie "police" qui est de type texte taille 7, en principe c'est un petit exemple de deux champs mais la vraie base où je vais travailler contient au moins 8 champs avec 90000 enregistrement au moins.
le problème c'est que ni l'ajout ni la modification fonctionnent, en plus j'ai essayer une autre application sur le web avec base donnée marathon2000.mdb sur cette adresse :
http://www.asp-irine.com/rubriques/r...rathon2000.zip
et c'est toujours le même problème, seule la consultation qui fonctionne...
Et j'ai essayer l'application sur 3 postes (avec windows xp SP1 ou Sp2) et c'est toujours la même chose...
voilà le message d'erreur :

Erreur de compilation Microsoft VBScript error '800a0401'

Fin d'instruction attendue

/iisHelp/common/500-100.asp, line 11

Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][Pilote ODBC Microsoft Access] L'opération doit utiliser une requête qui peut être mise à jour.

/enregistrer_modification.asp, line 12


que dois-je faire??

[Immobilis]

Salut,

Pour la chaine de connection, je regarderai ici http://www.carlprothman.net/Default....riverForAccess

Pour une simple requete UPDATE, il est inutile d'ouvrir de recordset. Une commande suffit.
Si tu utilise un recordset, il faut faire

Code :

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

rs.open sql, strProvider, 1, 3

A+

[marabout]

Erreur de compilation Microsoft VBScript error '800a0401'

Fin d'instruction attendue

/iisHelp/common/500-100.asp, line 11

Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][Pilote ODBC Microsoft Access] L'opération doit utiliser une requête qui peut être mise à jour.

/enregistrer_modification.asp, line 12

Pour ton erreur à la ligne 11, un simple passage à la ligne après strRemoteIP devrait faire l'affaire.

Pour le reste, essaye de lancer ta requête (telle que tu la récupère par l'instruction Response.Write) directement dans ta base de données. Il semblerait qu'il y ait un problème dans la formulation de la requête par rapport aux tables par exemple