Probleme de connection avec access

Question

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>

Afficher la liste des produits

<%
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")
%>

Les produits suivants sont disponibles :

Num. |
Nom |
Description |
Prix |

<%
do until (objProduit.EOF)
%>
----

<% = objProduit("numéro") %>,
<% = objProduit("nom") %>,
<% = objProduit("description") %>,
<% = objProduit("prix")/100 %>,

<%
objProduit.MoveNext
loop
%>

</HTML>
Merci a l'avance pour l'aide

Zeux · Answer

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+

Probleme de connection avec access

1 réponse

Votre réponse

Discussions similaires