bonjour, je voudrais dans un recordset de recherche qui fonctionne très bien avec du texte, faire afficher sur chaque ligne l'image qui y correspond et dont le lien est donné en BDD access dans un champ ole dans la même table.
Lors écriture, cela me sort bien l'icône image (croix rouge) mais pas d'image.
Et comment faire dans table access pour lui donner en image du gif ou du JPEG
Les images sont dans un sous répertoire qui se trouve dans ./stands/sous-repidclient/sousrepimidclient/Les images
Je vous mets le code en espérant votre aide !!!
<%'-------récupération des données saisies dans le formulaire-
txtSearchtitre=Request.Form("txtSearchtitre")
'---------remplacement des caractères incompatibles-----------
txtSearchtitre=Replace(txtSearchtitre,"'","''")%>
<%'-------déclaration de la base-----------------------------------------------------
'---------(opération qu'il suffit de faire une seule fois en début de fichier)-------
DSN_BASE = "DBQ=" & Server.Mappath("AYVBe.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%>
<html>
<b><u><font face="Arial" color="#000080">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>La page des articlesr</title>
</head>
<body>
<p><br>
<%'----------------OBJECTIF : LISTER TOUS LES LOTS DE LA COURSE-------------------%><%'-------création de la connection et du recordset--------------------------
Set ConnTable = Server.CreateObject("ADODB.Connection")
ConnTable.Open DSN_BASE
Set RsTable = Server.CreateObject("ADODB.Recordset")%><%'-------définition de la sélection TOUS les lots---------
Set RsTable = ConnTable.Execute("SELECT * From Annoncesvente Where Titre LIKE '" & txtSearchtitre & "'")%><%'-------gestion d'une éventuelle table vide--------------------------------
if RsTable.eof then%><br>
<font face="Arial" Size="2">aucune récompense ne figure encore dans la table!</font> <%else%> <%'-------------------affichage des résultats dans un tableau---------------------%> </p>
<table bordercolor="#008080" width="985" border="1" cellspacing="0" cellpadding="3">
<tr>
<td width="150"><font face="Arial" Size="2">IDClient</font></td>
<td width="13"><font face="Arial" Size="2">Domaine</font></td>
<td width="61"><font face="Arial" Size="2" color="#000080">Catégorie</font></td>
<td width="76">Sous-Catégorie</td>
<td width="45">Titre</td>
<td width="524">Image</td>
<td width="524">Texte</td><td
</tr>
<%'----début de la boucle-----------%> <%RsTable.Movefirst
do while not RsTable.eof%> </td></tr>
<tr>
<td width="13"><%=RsTable("idclient")%> </td>
<td width="13"><%=RsTable("iddomaine")%> </td>
<td width="61"><%=RsTable("idcategorie")%> </td>
<td width="76"><%=RsTable("idscategorie")%> </td>
<td width="45"><%=RsTable("titre")%> </td>
filename=Server.Mappath("/AYVBe/stands/<%=RSTable("idclient")%>/im<%=RsTable("idclient")%>")
' filename=filename&Rs("image")
<td width="524"><img src="<%response.write(RsTable("image"))%>"></td>
<td width="524"><a href="/AYVFr/stands/<%=RSTable("idclient")%>/<%=RsTable("idclient")%>.htm"><strong><font color="#9966FF">Voir
le Stand</font></strong></a> </td>
</tr>
<%RsTable.Movenext
loop%>
</table>
<%'-------fin de la gestion de la table vide----------------------------------%>
<%end if%>
<%'-------fermeture de la connection et du recordset----------
RsTable.Close
Set RsTable = Nothing
ConnTable.Close
Set ConnTable = Nothing%>
</font></u></b>
</body>
</html>