Discussion :

[requiemforadream]

Je retombe sur le même problème qu'il y a peu de temps, lorsque je fais une lecture dans ma BDD il n'y a pas de fermeture d'effectuée (alors que je la demande expressément !), et donc lorsque je charge à nouveau la page, il tente à nouveau d'ouvrir la connexion. Comme elle n'a pas été fermée, ca plante.

Voila le bout de code que j'utilise:

Code :

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

1
2
3
4
5
6
7
8
9
10
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "GESTION_DEMANDES"
 
valeur = "3444"
requete = "SELECT * FROM uf WHERE uf.num_uf ='"& valeur &"';"
Set Reco = Conn.Execute(requete)
 
Conn.close     'devrait fermer la BDD
Set Conn = nothing   'devrait détruire l'objet Conn
Set Reco = nothing   'détruit l'objet Reco

Voila, si je fais exécuter deux fois ce code, il devrait lire deux fois le meme nuplet, en ouvrant et fermant la BD à chaque fois. Or, la deuxième fois, il affiche ce message d'erreur:

Provider error '80004005'

Erreur non spécifiée

/maquette/NA_tests.asp, line 28

Puisqu'il tente d'ouvrir une BD déjà ouverte, et avec le meme objet connexion...

[Gwenn]

Tu ne fermes pas ton recordset, enfin si la totalité du code est presente.

D'une maniere generale, je te conseille :

S'il s'agit d'une requete INSERT, UPDATE ou DELETE, d'utiliser :

Code :

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

objetConnexion.Execute (chaineSQL)

S'il s'agit d'une requete SELECT :

Code :

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

1
2
3
4
5
6
 
Set Objetrecordset=Server.CreateObject("ADODB.REcordset")
ObjetREcordset.Open ChaineSQL, ObjetConnexion
'Traitement
ObjetREcordSet.Close
Set ObjetRecordset = Nothing

[requiemforadream]

J'ai repris ton code, et je l'ai utilisé pour mes tests en l'adaptant à ma BD:

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
Set ObjetConnexion = Server.CreateObject("ADODB.Connection")
ObjetConnexion.Open "GESTION_DEMANDES"
 
valeur = "3444"
ChaineSQL = "SELECT num_uf FROM uf WHERE uf.num_uf ='"& valeur &"';"
 
Set ObjetRecordset=Server.CreateObject("ADODB.Recordset") 
ObjetRecordset.Open ChaineSQL, ObjetConnexion
 
Response.write(ObjetRecordset("num_uf"))
 
ObjetRecordSet.Close 
Set ObjetRecordset = Nothing 
ObjetConnexion.Close
Set ObjetConnexion = Nothing

C'est juste pour tester, ce qui signifie que j'affiche le champ à partir duquel je faisais ma recherche dans la BD, mais c'est peu important.

J'ai toujours le même problème, à savoir que ma connexion n'est pas fermée à lors du:

Code :

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

1
2
ObjetConnexion.Close
Set ObjetConnexion = Nothing

Puisque dès que j'exécute une deuxième fois ce code, alors qu'il devrait m'afficher une deuxième fois la même chose, il m'affiche le message d'erreur que j'ai donné dans mon premier post sur la ligne de l'ouverture de la connexion.

[Gwenn]

Es tu certain que tu ne doubles pas le parametre que tu recuperes ?

Fais un response.write de ta chaineSQL avant de l'executer, pour voir si elle est identique la deuxieme fois

[requiemforadream]

Dans la mesure où le code est contenu sur une page et que je ne fais que rafraichir deux fois cette page pour exécuter deux fois le code, et dans la mesure où la seule variable à la requete SQL est contenue dans une variable ("valeur") inscrite en dur, je ne vois pas comment les deux chaines SQL feraient pour être différentes d'une fois sur l'autre... C'est bien ca le probleme !

A moins que je n'ai pas compris ce que tu voulais dire

[popeyes]

Gwenn n'a pas tort, fait un response.write de chaine SQL et regarde ce que ca te dit et fait nous en part.

Cordialement,
Nicolas

[Gwenn]

J'entends bien requiemforadream

Moi non plus je ne vois pas pourquoi il y a le pb, il faut essayer de comprendre en faisant des tests

Encadre la lecture du recordset par un test :

Code :

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

1
2
3
4
5
 
If not Recorset.EOf Then
 
Else
End IF

D'autre part, ton champ est une valeur numérique ou chaine ?

Et enleves le ; à la fin de ta chaine sql

[requiemforadream]

Vous allez rire: j'ai rebooté le PC (à tout hasard), et maintenant ca marche parfaitement.
Y'a pas de smiley qui se tire une balle ?

Enfin en tous cas, merci pour votre aide et le temps que vous avez pu passer à m'aider


Pour ceux que ca intéresse, le code final:

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
valeur = "3444"
ChaineSQL = "SELECT num_uf FROM uf WHERE uf.num_uf ='"& valeur &"'"
Response.write(ChaineSQL &"<br>")
 
Response.write("ouverture de la première connection<br>")
Set ObjetConnexion5 = Server.CreateObject("ADODB.Connection")
ObjetConnexion5.Open "GESTION_DEMANDES"
 
Set ObjetRecordset=Server.CreateObject("ADODB.Recordset") 
ObjetRecordset.Open ChaineSQL,ObjetConnexion5
 
Response.write(ObjetRecordset("num_uf")&"<br>")
 
 
Response.write("fermeture du premier recordset<br>")
ObjetRecordSet.Close 
Set ObjetRecordset = Nothing 
Response.write("fermeture de la première connection<br>")
ObjetConnexion5.Close
Set ObjetConnexion5 = Nothing

et ce queca affiche :

SELECT num_uf FROM uf WHERE uf.num_uf ='3444'
ouverture de la première connection
3444
fermeture du premier recordset
fermeture de la première connection

Merci encore