Voici mon script:
<%@ Page Language="VB" debug="true" ContentType="text/html" ResponseEncoding="iso-8859-1" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Import Namespace="System" %>
<%@ Import Namespace="System.Web.UI" %>
<%@ Import Namespace="System.Web.UI.WebControls" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Xml" %>
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
bd_result.Text = ""
Dim Conn As New OleDbConnection()
'utilisation du constructeur pour la connexion
Conn.ConnectionString = "Provider= Microsoft.Jet.OleDB.4.0;DSN=db"
'définir le type de Base de données et sa localisation avec le DSN
'on pourrait utiliser une chaîne pour définir sa localisation cf dsn-like
'Conn.ConnectionString = "Provider= Microsoft.Jet.OleDB.4.0;Data Source=" & Server.MapPath("..") & "/base/bd.mdb"
Conn.Open()
'ouverture de la connexion
Dim myCommand As New OleDbCommand("SELECT * FROM mytable",Conn)
'définir la requête SQL à appliquer à cette connexion
'le premier argument définit la syntaxe SQL, le second fait référence à la connexion
'récupération des infos avec le DATAREADER
Dim myReader As OleDbDataReader
myReader = myCommand.ExecuteReader
' récupération des données dans le Container (cf partie body)
Do Until Not myReader.Read
'tant qu'on sait lire les enregistrements
'Le container bd_result contient successivement les données nom, prenom, email
bd_result.Text &= CType(myReader("nom"), String) & " " & CType(myReader("prenom"), String) & " " & CType(myReader("email"), String) & "<br>"
Loop
'la boucle continue si enregistrements
' on n'oublie pas de fermer les objets
myReader.Close
Conn.Dispose
' utilisation de trois classes pour la connexion: OleDbConnection, OleDbCommand et OleDbDataReader
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>contrôles HTML serveur</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>
<body>
<h2>Votre BD
</h2>
<form runat="server">
<ASP:Label id="bd_result" runat="server" />
</form>
</body>
</html>
A l'exécution, j'ai l'erreur suivante:
Détails de l'exception: System.Data.OleDb.OleDbException: Pilote ISAM introuvable.
Erreur source:
Ligne 22 : 'Conn.ConnectionString = "Provider= Microsoft.Jet.OleDB.4.0;Data Source=" & Server.MapPath("..") & "/base/bd.mdb"
Ligne 23 :
Ligne 24 : Conn.Open()
Ligne 25 : 'ouverture de la connexion
Ligne 26 :
Pouvez-vous m'aider?
Merci d'avance.
HP