Lister enregistrement d'une base access

Question

Sujet Précédent Sujet Suivant

Lister enregistrement d'une base access

Signaler

gerfaut11

Messages postés: 32
Date d'inscription: mercredi 8 novembre 2000
Statut: Membre
Dernière intervention: 28 mars 2006

- 19 juil. 2005 à 21:18
gerfaut11

Messages postés: 32
Date d'inscription: mercredi 8 novembre 2000
Statut: Membre
Dernière intervention: 28 mars 2006

- 21 juil. 2005 à 08:22

Salut

Je voudrais sur une page afficher toutes les valeurs de mon champ "Toto" mais que si une valeur est identique a plusieur enregistrement la faire apparaitre une seule fois.

Merci

A voir également:

Adodb.recordset error '800a0cc1'
800a0cc1 - Meilleures réponses
Enregistrer dans une base access ✓ - Forum - VB.NET
Delphi / Pascal : Base access delphi 2005 lecture déplacement et enregistrement - CodeS Sourc - Guide
Problème d'enregistrement dans la base de donnée access ✓ - Forum - VB.NET
Problème d'enregistrement de la base de données Access avec DataSet ✓ - Forum - VB.NET
Lister les noms des tables d'une base access ✓ - Forum - C++ & C++ .NET

3 réponses

Répondre Posez votre question

cs_Jackboy · Answer 1 · 2005-07-20T00:32:47+0200

Réponse 1 / 3

cs_Jackboy

Messages postés: 757
Date d'inscription: vendredi 7 septembre 2001
Statut: Membre
Dernière intervention: 19 juin 2008

20 juil. 2005 à 00:32

dans ta requete sql ajoute un Distinct

ex.: SELECT DISTINCT NomUser FROM tblUser

gerfaut11 · Answer 2 · 2005-07-21T08:20:34+0200

Salut
Merci le SELECT DISTINC fonctionne mais j'ai un probleme sur la meme page avec un lien:

Set ConnTable = Server.CreateObject("ADODB.Connection")

ConnTable.Open DSN_BASE

Set RsTable = Server.CreateObject("ADODB.Recordset")%>

RsTable.Open "Select DISTINCT Indication from Plantes" , ConnTable%>

if RsTable.eof=true then%>

aucune plantes ne figure encore dans la table!

<%else%>

<%'----début de la boucle-----------%>

<%RsTable.MoveFirst

do while not RsTable.eof%>

<table>

[voir fiche plante.asp?reference=<%=RsTable( "><%=RsTable("Indication")%>]

<%RsTable.MoveNext

loop%>

<%end if%>

RsTable.Close

Set RsTable = Nothing

ConnTable.Close

Set ConnTable = Nothing%>

gerfaut11 · Answer 3 · 2005-07-21T08:22:06+0200

Pardon j'ai oublié le ùessage d'erreur

Erreur de compilation Microsoft VBScript error '800a0401'
Fin d'instruction attendue
/iisHelp/common/500-100.asp, line 11 Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^

ADODB.Recordset error '800a0cc1'
Impossible de trouver l'objet dans la collection correspondant au nom ou à la référence ordinale demandé.
/recherche indication.asp, line 43

Votre réponse