ouvrir la clé de registre 'Temporary (volatile)

Question

bonjour,
revoila la petite miss perdue dans ses lignes de codes.
Etudiante Recherche dev généreux pour corriger une ligne de code ou me donner une solution magique. lol

sérieusement voila la bete: 
erreur:
Microsoft OLE DB Provider for ODBC Driverserror '80004005'

[Microsoft][Pilote ODBC Microsoft
Access]Erreur générale Impossible d'ouvrir la clé de registre
'Temporary (volatile) Jet DSN for process 0x3b0 Thread 0xa00 DBC
0x1355024 Jet'.

/gilbert/sql/controle-index.asp, line 10

code:

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

LotEnreg.Close
ObjConnex.Close 

Merci d'avance

sheshebrown · Answer

Voila ca fonctionne, c'est magic.

NoSession = Session.SessionID

if Request.Form("BoutonAnnuler") "" AND Request.Form("BoutonValider") "" AND Request.Form("BoutonRecommencer") = "" then


Set ObjConnex = Server.CreateObject("ADODB.Connection")

    ObjConnex.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:	ide\gilbert\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


LotEnreg.Close

ObjConnex.Close 

    

elseif Request.Form("BoutonAnnuler") <> "Vider" then

    ValeurBoutonValider = Request.Form("BoutonValider")

    ValeurAno = Request.Form("ano")

end if

Ouvrir la clé de registre 'Temporary (volatile)

1 réponse

Votre réponse

Discussions similaires