sheshebrown
Messages postés4Date d'inscriptionvendredi 18 novembre 2005StatutMembreDernière intervention17 mars 2009
-
17 mars 2009 à 07:20
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
17 mars 2009 à 22:27
Bonjour,
J'ai un petit soucis qui me bloque.
Please help a little lost miss.
Erreur:
ADODB.Recordseterror '800a0e7d' Impossible d'utiliser cette connexion pour effectuer cette opération. Elle est fermée ou non valide dans ce contexte.
Code: Set ObjConnex = Server.CreateObject("ADODB.Connection")
strProvider = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=sondage.MDB;"
Set LotEnreg = Server.CreateObject("ADODB.Recordset")
InstructionSQL = "SELECT * FROM sondage WHERE numero=" & NoSession & " ;"
LotEnreg.open InstructionSQL, ObjConnex
if not LotEnreg.EOF then
ValeurAno = LotEnreg.Fields("ano")
end if
quelqu'un peut-il me donner un coup de crayon rouge s'il vous plais. Merci merci merci
A voir également:
La connexion sous-jacente a été fermée une erreur inattendue s'est produite lors de l'envoi
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 17 mars 2009 à 08:21
le message est très clair... ta connection ne peut etre utilisée car elle est fermée.
tu créé un objet connection
tu place ta chaine de connection dans la variable strProvider
tu créé un objet recordset
tu place ta requete SQL dans la variable InstructionSQL
tu demande a ton recordset de récuperer son jeu d'enregistrement en utilisant cette requete, et ta connection
mais nulle part tu n'a ouvert ta connection...
ObjConnex.Open strProvider
ne demande que le nécessaire... pas de SELECT * ici, mais juste SELECT ano...
pense également a fermer connection et Recordset....
donc:
Set ObjConnex = Server.CreateObject("ADODB.Connection")
ObjConnex.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=sondage.MDB;"
Set LotEnreg = Server.CreateObject("ADODB.Recordset")
LotEnreg.Open "SELECT `ano` FROM `sondage` WHERE `numero`=" & NoSession , ObjConnex
If Not LotEnreg.EOF Then
ValeurAno = LotEnreg.Fields(0).Value
End If