Discussion :

[yoda7666]

Salut,

Me revoila sur ce forum pour vous exposer un nouveau problème. Je viens d'installer chez moi une application que j'ai fait en stage. Tous marche bien excepter les requetes d'ajout et de modification.

Ce message d'erreur apparait:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
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. 
 
/PTI1/modification/modifcontact2.asp, line 12

Or je ne vois pas en quoi ma requête est dépasse. En voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
<%
Option explicit
' Création de l'objet permettant la connexion
	dim RS,strnom,strnumero,strprenom,SQL,strentreprise
	Set RS = Server.CreateObject("ADODB.Recordset")
	RS.ActiveConnection="dsn=DSN_SalleReunion"
strnom=request.form("nom")
strnumero=request.form("numero")
strprenom=request.form("prenom")
strentreprise=request.form("entreprise")
SQL="Update contact set nom_contact='"&strnom&"',prenom_contact='"&strprenom&"',entreprise_contact='"&strentreprise&"' where ((contact.n°_contact)="&strnumero&")"
RS.open SQL
%>

Je vous remercie d'avance de votre aide qui sera certaine précieuse.

En attente de vous lire

[os_rasta]

Il me semble que la tu as deux tables tu peux pas le faire en une seule requête il te faut une requête imbriquée.
ex:

Code :

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

1
2
3
4
5
UPDATE produit
SET p.prix=p.prix+ (p.prix*5/100)
WHERE p.marque IN (SELECT fournisseur 
                                FROM fournisseurs
                                WHERE decission="hausse")

Voila bon courage

[yoda7666]

Non je ne modifie que la table contact. Il y a donc une seule table. Pas besoin de requete imbriquer.

[os_rasta]

ok dsl

[os_rasta]

ta essayer de mettre des espace entre tes variables et les "&"?

[Crazyblinkgirl]

Bonjour,

Tu as les droits de modifications sur ta base? Il me semble avoir eu cette erreur à une époque et j'avais du modifier les droits dans IIS.

[yoda7666]

Re,

J'ai bien revérifier et j'ai bien les droit en écriture j'ai meme autoriser l'execution de script... C'est pour ça que je ne vois pas d'ou vient le problème. Je précise que je tourne sous XP Pro.

[Immobilis]

Peut-être que c'est à cause du curseur que tu utilises. Essayes:

Code :

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

RS.open SQL, strProvider, 1, 3

Sinon, il faut utiliser l'objet command ou connexion voir sur
A+

[yoda7666]

Re,

Jai donc essayer ta solution mais il met que les argument ne sont pas correct ou qu'il sont en conflit. A quoi sert le 1 et le 3?

Merci de votre interet pour mon problème

@+

[Immobilis]

Peux-tu faire un response.write de ta requete STP. A priori elle pose pb.
Pour le 1 = adOpenKeyset, et le 3 = adLockOptimistic.
Plus d'infos ici : http://www.devguru.com/technologies/ado/8642.asp
A+

[yoda7666]

Je ne peux pas faire de response.write puisque que la page ne s'affiche pas, elle bloque à la requête. Mais cette requëte est un exemple, toute mes requetes d'ajout ou de mofification pose problème. Je précise que mes requetes d'affichage, elle s'execute correctement.

Et je ne vois pas ce qui cloche, mes requetes sont en SQL de base.

[Immobilis]

Tu fais un

Code :

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

1
2
3
4
 
on error resume next
response.write(SQL)
rs.open SQL, provider

[yoda7666]

Voila ce que me sort ton code :

Code :

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

Update contact set nom_contact='Michelin',prenom_contact='Arthur',entreprise_contact='CG' where ((contact.n°_contact)=1) Update contact set nom_contact='Michelin',prenom_contact='Arthur',entreprise_contact='CG' where ((contact.n°_contact)=1)

Je ne comprend pas pourquoi cela ne veut pas fonctionner, il semble bien me prendre toutes les valeurs qui se trouvent dans mes variables, mais il ne veut pas l'executer.

[Immobilis]

C'est peut-être qu'il manque un ";" entre tes deux "update".
Sinon, il vaudrait mieux faire:

Code :

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

1
2
3
4
command.commandtext = "UPDATE...."
command.execute
command.commandtext = "UPDATE...."
command.execute

Pour ne pas ouvrir un recordset.
A+