Voici une façon de ce connecter et régler ton prob
<%
Set conn = Server.CreateObject("ADODB.Connection")
' chaine de connexion
connstring="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath(".") & "/produit.mdb"
' ouverture de la connexion
conn.Open connstring
Set objProduit= Server.CreateObject("ADODB.Recordset")
Set objProduit.ActiveConnection = connection
sql= "SELECT * FROM produits"
objProduit.Open sql
... ' traitement
' fermeture et destruction de la connexion
conn.close
set conn=nothing
%>
Zeux
A+
-------------------------------
Réponse au message :
-------------------------------
Bonjour, je veux connecter une base de données et j'ai le message d'erreur suivant et voici mon code. Je débute et j'ai prit l'exemple dans un livre
MESSAGE ERREUR:
Afficher la liste des produits
Erreur d'exécution Microsoft VBScript erreur '800a01ad'
Un composant ActiveX ne peut pas créer un objet.
/listing_1.4.asp, ligne 10
CODE:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<H1>Afficher la liste des produits</H1>
<%
produits = "produits" ' Nom de la source de données
set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "produits"
set objProduit = objCon.Execute("SELECT * FROM produits")
%>
<P>
<H3>Les produits suivants sont disponibles :</H3>
</P>
<TABLE BORDER=1>
<TR>
<TH>Num.</TH>
<TH>Nom</TH>
<TH>Description</TH>
<TH>Prix</TH>
</TR>
<%
do until (objProduit.EOF)
%>
<TR>
<TD><% = objProduit("numéro") %></TD>
<TD><% = objProduit("nom") %></TD>
<TD><% = objProduit("description") %></TD>
<TD><% = objProduit("prix")/100 %></TD>
</TR>
<%
objProduit.MoveNext
loop
%>
</TABLE>
</BODY>
</HTML>
Merci a l'avance pour l'aide