Bonjour ,
J'ai rencontrer un brobléme d'accés à ma base de donnée en Access .
Ce que j'ai fais :
j'ai créer une base de données access et 2 pages en code ASP selon mes besoins - mettre mon repertoire de travail qui contient la base de donnée et mes pages asp dans un serveur web IIS - declarer le chemin de mon repértoire au source de donnée ODBC et quand j'éxecutes ma première page je rencontre le message suivant
HTTP 500.100 - Erreur interne au serveur - Erreur ASP
Services Internet (IIS)
--------------------------------------------------------------------------------
Informations techniques (destinées au personnel du Support technique)
Type d'erreur :
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Pilote ODBC Microsoft Access]Erreur générale Impossible d'ouvrir la clé de registre 'Temporary (volatile) Jet DSN for process 0x5c0 Thread 0x4e8 DBC 0x213fffc Jet'.
/Restauration/Fiche consom.asp, line 29
et la ligne 29 contient la commande: connect.Open connstring
je sais pas ce qui manque dans mes étapes.
Merci
Voici ma première page exécutée :
<%
msg = 0
mesg=""
CHERC = Left(Ucase(Request("CHERCHER" )),5)
If trim (request("Matricule" ))="" then
mesg ="font face=arial size=2 color=red>Erreur : <br> Saisir le Matricule </font><br>"
End if
If CHERC = "CHERC" and mesg = "" Then
Matricule = Request.Form("Matricule" )
Msg = 1
End if
Aprés validation de Matricule , la deuxième page s'exécute , son code est le suivant:
<%
msg = 0
mesg=""
msg1 = 0
CHERC = Left(Ucase(Request("CHERCHER" )),5)
If trim(request("Matricule" ))="" then
mesg ="<font face=arial size=2 color=red>Erreur : <br> Saisir le Matricule </font><br>"
End if
If CHERC = "CHERC" and mesg = "" Then
Matricule = Request.Form("Matricule" )
Msg = 1
End If
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title> Fiche de consommation</title>
</head>
<body bgcolor="#E6F1FF" topmargin="0" leftmargin="0">
<% If msg = 1 then
SQL="SELECT convive.*,convive.Matricule FROM convive "
SQL= SQL & "WHERE (((convive.Matricule) like '%" & Matricule & "%'));"
SET Connect = Server.CreateObject("ADODB.Connection" )
connstring="DRIVER={Microsoft Access Driver (*.mdb)}; "&"DBQ="&Server.MapPath("." )&"/restauration.mdb"'
connect.Open connstring
SET RS = Connect.Execute(SQL)
If rs.RecordCount <> 0 and not rs.eof Then
matricule = rs("Matricule" )
nom = rs("Nom / Prénom" )
categorie = rs("Tarif" )
%>
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%" id="table2">
<tr>
<td width="50">
<img border="0" src="images/spshome.gif" width="40" height="40"></td>
<td>
<p align="center"><b><font color="#000080" size="5">Fiche Consommation </font></b>
</p>
</td>
</tr>
</table>
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="75%" id="table3">
<tr>
<td bgcolor="#99CCFF"> <font color="#000080"><b><br>
Matricule
: <%=matricule%><br>
Nom / Prénom : <%=nom%><br>
Catégorie
: <%=categorie%><br></b></font></td>
</tr>
</table>
</div>
<p align="center">
<%
Else
%>
<b><i>Matricule erroné</i></b>
<p>
<%
end if
end if %></p>
</body>
%>
Le message d'erreur se trouve à la ligne 29 qui est :
connect.Open connstring
![[:neowen]](https://forum-images.hardware.fr/images/perso/neowen.gif "[:neowen]")