Discussion :

[Michelk12]

Bonjour,

Je deviens chèvre...

J'ai une page qui contient un formulaire envoyé à une page ASP dans le but de supprimer un enregistrement d'une table correspondant.

Impossible de tester si la suppression à eu lieu ou pas.

Pire, j'ai fait pour tester :

Code :

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

1
2
3
4
5
6
7
8
9
10
texte_sql = "select X from Y"
set objRS = objConn.Execute(texte_sql)
if not objRSINEREC.EOF then
       response.write("[Oui]")
else
       response.write("[Non]")
end if
 
texte_sql = "delete from Y where..."
objConnINEREC.Execute texte_sql

Dans l'enchaînement des pages la suppression est effectuée mais s'affiche "[Non]" (alors qu'il aurait du normalement afficher "[Oui]").
Si je suis sur la page problèmatique et appui sur F5 cette fois "[Oui]" s'affiche et l'enregistrement est supprimé (ha, quand même).

Il en est de même avec

Code :

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

Set rs = objConn.Execute(strSQL, nbRec)

Si je fais F5, nbRec vaut 1, si la page est appelé à partir d'une autre nbRec vaut 0 (mais la suppression a bien eu lieu!)

Quelque chose m'échappe...

Rajout : vient de tester avec un vieux IE6 et ça fonctionne!
Pas sous IE8!??

[roro06]

Bonjour

Quelque chose m'échappe...

Ben moi aussi !

Je vois dans les quelques lignes que tu nous as mis trois objets :
objRS , objRSINEREC, objConnINEREC (plus un quatrième : objConn )


Donc j'ai un peu de mal à comprendre ton problème !

Maintenant, si j'ai bien analysé ton pb, tu envoies une requête de suppression et le retour ne te dit pas si la suppression a bien eu lieu ?

Impossible de tester si la suppression à eu lieu ou pas.

Quel est le SGBD ? Access ? SQL server ? MySQL ?
Il en faudrait un peu plus !

[Michelk12]

Merci Roro de tenter de m'aider.

Ne fait pas attention aux 4 objets : résultat d'un mauvais collé du presse papier + tapé sur mon clavier... désolé

Code :

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

1
2
3
4
5
6
7
8
9
10
texte_sql = "select X from Y"
set objRS = objConn.Execute(texte_sql)
if not objRS.EOF then
       response.write("[Oui]")
else
       response.write("[Non]")
end if
 
texte_sql = "delete from Y where..."
objConn.Execute texte_sql

Connexion a une base Informix via le vieillot ODBC.
Ainsi le code du début est :

Code :

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

1
2
3
4
 
set objconn = Server.CreateObject("ADODB.Connection")
set objRS = Server.CreateObject("ADODB.RecordSet")
objConn.Open "DSN=Inerec"

Tout ce qu'il y a de plus classique j'imagine.

Mais pourquoi cela fonctionne correctement sous IE6 et pas sous IE8??? Grrr

[Michelk12]

Testé avec Firefox 1.0.4, pas mieux chez mon client!!
Et bien... cela fonctionne correctement.

Re-test sous IE8 : cela ne fonctionne pas.

Pourquoi justement ce client passe tout sous IE8?

Michel

[roro06]

Bonjour

Le code que tu nous montres se tourne sur le serveur, pas sur le navigateur. A priori, rien a voir avec celui-ci !

Si tu envoies une requête de suppression à la base de données, tu te retrouves dans une architecture dite 3-tiers : client-serveur-base de données (classique, en ASP). Le client (le navigateur) communique avec le serveur. Le serveur communique avec le navigateur et la base de données. Mais le navigateur ne communique pas avec la base de données.

Peut-être peux-tu mettre l'intégralité de ton code, pour qu'on y voie un peu plus clair ?

Testé avec Firefox 1.0.4

Le mises à jour vers la dernière version (3.5) sont gratuites .

[Michelk12]

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
<%
Response.Buffer = true
Response.Expires = 0
 
Dim objconn, objRS
 
num_suivi = request.form("inputSuivi")
annee = request.form("inputAnnee")
 
set objconn = Server.CreateObject("ADODB.Connection")
set objRS = Server.CreateObject("ADODB.RecordSet")
objConn.Open "DSN=Inerec"
 
texte_sql = "SELECT dde1_cm, retour_dde1 FROM suivi_DEV where numero_suivi = '"&num_suivi&"' AND annee = '"&annee&"';"
 
set objRS = objConn.Execute(texte_sql)
if not objRS.EOF then
       response.write("[Oui]")
else
       response.write("[Non]")
end if
 
texte_sql = "delete from suivi_DEV where numero_suivi = '"&num_suivi&"' AND annee = '"&annee&"';"
objConn.Execute texte_sql
%>

Alors pas lié au navigateur mais dans tous les cas testés j'obtiens "[Oui]" et le delete fonctionne sauf sous IE8 ou j'ai "[Non]" avec le delete qui fonctionne.