Discussion :

[aefmaaradji]

Bonjour,
j'ai un autre probléme lié à la colture de la connexion de la base oracle

ADODB.Recordset error '800a0e78'

Operation is not allowed when the object is closed.

/test/orientationDemande.asp, line 148

l'erreur et sur ligne rs.close

Code :

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

1
2
3
 
    rs.close  							
    Response.Redirect "orientation.asp"

quand j'ai modifié le script comme suit l'erreur ne s'affiche pas mais est ce que la connexion est fermé?

Code :

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

1
2
3
4
 
    'rs.close  							
    Response.Redirect "orientation.asp"
    rs.close

ou bien y a t'il un autre moyen (par exemple faire une mise à jour du MDAC?)

[jjameau]

est tu sûre que ta connexion est ouverte ?

ADODB.Recordset error '800a0e78'

Operation is not allowed when the object is closed.

/test/orientationDemande.asp, line 148

Dans ce cas ta connexion ne sera pas fermée

Code :

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

1
2
3
4
 
    'rs.close  							
    Response.Redirect "orientation.asp"
    rs.close

[aefmaaradji]

Bonjour,
en fait oui, la connexion est ouvert, ci-dessous le code exacte

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
 
strDataSource = "test" 
  strUser = "web"   
  strPassword = "xxxxxxxxxxxxx"	
 
  strConnexion = "Provider=msdaora; Data Source=" & strDataSource & "; User Id=" & strUser & "; Password=" & strPassword
  Set objConnexion = CreateObject("ADODB.Connection")
  objConnexion.Open strConnexion
 
  If nAction = ACTION_REJECT Then
 
    ChangeEtatDemande idDemande, dicEtatDemande("Rejetee")
 
    ' Envoyer un mail
    SQL = "SELECT s_compte_demandeur FROM demande WHERE id_demande ="&idDemande&""
    Set rs = objConnexion.Execute ( SQL )
    strDemandeur = rs("s_compte_demandeur")
    'pos = instr (strDemandeur,"\")
    'strDemandeur = mid (strDemandeur,pos+1)
    strDemandeur = replace (strDemandeur,"\","/")
    mailDemandeur = DonneMailDeCompte (strDemandeur)
    strtextemail = "<p>Bonjour,</p><p>Votre demande a été refusée .</p><p>Merci de votre compréhension.</p>"
    envoiMail mailDemandeur, sMailRefus, strtextemail
    rs.Close  									
    Set rs = Nothing
    Response.Redirect "orientation.asp"
 
      'rs.close
  End If

[jjameau]

l'erreur est bien sur le close ?

[aefmaaradji]

Re-bonjour,
pouvez vous me clarifier les chose ou m'expliquer comment résoudre ce problème

l'erreur est bien sur le close ?

merci d'avace

[aefmaaradji]

Bonjour,
C'est bon j'ai trouvé l'erreur elle dans la requete sql
Merci pour tous