Discussion :

[Mvu]

Bonjour,
dans le script ci-dessous il doit avoir un problème car je reçois toujours le message d'erreur suivant: Cette opération n'est pas autorisée si l'objet est fermé.
Ce que je veux faire:
- Etape 1: lui demander d'aller chercher dans la table Resultats tous les résultats où UserLog = la variable renvoyée et récupérer la valeur idMac
- Etape 2: lui demander de supprimer dans la table ResRub tous les enregistrements pour lesquels ResRubId = pResRubId

Voici le script:

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
<% dim mySQL,connTemp, rsTemp, rsTemp3
 
' retrieve variables
pLang	    	= getUserInput(request.querystring("Lang"),4)
pUserId	    	= request.Querystring("UserId")
pUserId			= CINT(pUserId)
pUserLog	    = request.Querystring("UserLog")
%>
<% 
 
 
' get the ResRubId
mySQL="SELECT * FROM Resultats WHERE (UserLog = '"&pUserLog&"')  "
call getFromDatabase(mySQL, rstemp, "AdminAccount_DeleteUser") 
do while not rstemp.eof 
 
pResRubId	=	rstemp("idMac")
 
mySQL="DELETE FROM ResRub WHERE (ResRubId = "&pResRubId&" )  "
call updateDatabase(mySQL, rstemp, "AdminAccount_DeleteUser") 
 
rstemp.moveNext
loop
%>

[malbaladejo]

Sur quelle ligne intervient l'erreur ?
Peux t'on avoir le code des fonctions getFromDatabase et updateDatabase ?

[Mvu]

Sur la ligne de code:

Code :

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

rstemp.movenext

Les fonctions getFromDatabase et updateDatabase sont OK car je les utilsie dans de nombreux autres fichiers.

[malbaladejo]

j'ai l'impression que le probleme viens de la fonction updateDatabase.
Je ne connais pas le code de updateDatabase mais je pense que tu ne peux pas réutiliser le rstemp dans updateDatabase.

[Mvu]

Bien vu et merci