[Connexion Base] Impossible d'ouvrir la clé de registre ?!

**straitch** · 02/01/2006, 14h21

Salut,

En voulant faire un petit test de connexion et de recuperation de données j'obtiens ce message:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][Pilote ODBC Microsoft Access]Erreur générale Impossible d'ouvrir la clé de registre 'Temporary (volatile) Jet DSN for process 0x85c Thread 0xc90 DBC 0x10d471c Jet'.

/test/connexion.asp, line 9

Et j'arrive pas à résoudre le problème,merci pour votre aide.

Connexion.asp

Code :

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

1
2
3
4
5
6
7
8
9
10
<%
' Path long de la base de données
dim dbPath
dbPath = Server.MapPath("database/collectipass_2002.mdb")
' Création de l'objet permettant la connexion
dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
' Connexion
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & dbPath 
%>

Departement.asp

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
<!-- #include file="connexion.asp"-->
 
<html>
  <body>
 
 
 
<form name="formulaire" method="post" action="page.asp">
<select name="choix">
<% sql="select Region * from Département"
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open sql, cnx,adOpenKeyset 
do while not RS.eof %>
<option value="<%=RS("Region")%>" ></option>
<% RS.movenext
loop 
RS.close
cnx.close
set cnx = nothing
set RS = nothing%>
</select>
</form>
 
 
  </body>
</html>

**straitch** · 02/01/2006, 14h51

Ca y est j'ai trouvé (merci google) ,ça vie,t du fait que ma base etait ouverte et donc en cours d'utilisation par Access.

Par contre ma liste déroulante et totalement vide ...donc retour à la case départ en quelque sorte...

**pc75** · 02/01/2006, 15h09

Bonjour,

sql="select Region * from Département"

C'est quoi cette astérisque ?

**Crazyblinkgirl** · 02/01/2006, 15h15

Bonjour,

Il faut également que tu affiches un élément :

Code :

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

<option value="<%=RS("Region")%>"><%=RS("Region")%>"</option>

**straitch** · 02/01/2006, 15h20

Envoyé par pc75

Bonjour,

sql="select Region * from Département"

C'est quoi cette astérisque ?

Oooooops

merki

Mais meme sans ça marche pas mieux

Nouveau code

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
<html>
  <body>
 
<!-- #include file="connexion.asp"-->
 
<% sql="select Region from Département='dep'"
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open sql,conn,adOpenKeyset%>
<select name="dep">
<%do while not RS.eof %>
<option value="<%=RS("Region")%>" ></option>
<% RS.movenext
loop
RS.close
conn.close
set conn = nothing
set RS = nothing%>
</select>
 
 
 
  </body>
</html>

**straitch** · 02/01/2006, 15h23

Envoyé par Crazyblinkgirl

Bonjour,

Il faut également que tu affiches un élément :

Code :

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

<option value="<%=RS("Region")%>"><%=RS("Region")%>"</option>

Désolé pas compris...... faut mettre <%=RS("Region")%> 2 fois ???

**straitch** · 02/01/2006, 15h31

Erreur de compilation Microsoft VBScript error '800a0401'

Fin d'instruction attendue

/iisHelp/common/500-100.asp, line 11

Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^
Provider error '80004005'

Erreur non spécifiée

/test/connexion.asp, line 9

:

**Crazyblinkgirl** · 02/01/2006, 15h47

En fait celui que tu mets dans value c'est ce que tu vas récupérer avec un request, le deuxième c'est l'élément qui sera affiché dans ta liste

**straitch** · 02/01/2006, 15h56

Ok merki.
Donc avec ça ça devrait marcher non?

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
<!-- #include file="connexion.asp"-->
<html>
  <body>
 
 
<% sql_dep="select Region from Département='dep'"
Set RS_dep = Server.CreateObject("ADODB.RecordSet")
RS_dep.Open sql,Conn , 3, 3
RS_dep("Region")=Request.form("Region")
RS_dep.update%>
<select name="dep">
<%do while not RS_dep.eof %>
<option value="<%=RS_dep("Region")%>"><%=RS_dep("Region")%>"</option>
<% RS_dep.movenext
loop%>
<% conn.close : Set conn=nothing %>
</select>
 
 
 
  </body>
</html>

Mais j'obtiens :
Erreur de compilation Microsoft VBScript error '800a0401'

Fin d'instruction attendue

/iisHelp/common/500-100.asp, line 11

Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^
ADODB.Recordset error '800a0bb9'

Les arguments sont de type incorrect, en dehors des limites autorisées ou en conflit les uns avec les autres.

/test/departement.asp, line 8

J'comprends plus rien là..........

**pc75** · 02/01/2006, 16h05

Re,

Encore une question :

Code :

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

1
2
 
sql_dep="select Region from Département='dep'"

C'est quoi ce ='DEP'

Si tu veix récupérer les région qui appartiennent au département DEP, il te faut une clause WHERE dans ta requête :

Code :

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

1
2
 
sql_dep="select Region from Département WHERE DEPARTEMENT ='dep'"

[Connexion Base] Impossible d'ouvrir la clé de registre ?!

ASP

Discussions similaires

Partager

Partager