Avatar billede fredd Nybegynder
07. marts 2004 - 14:45 Der er 10 kommentarer og
1 løsning

Unike poster

Hej eksperter jeg har en Tabel i en Access database med et felt ved navn type. Jeg vil gerne have et asp script til at skrive alle de forskellige typer dvs. Hvis der er flere poster hvor type = 1 skal den kun komme en gang... Hvilken formel skal jeg bruge..?
Avatar billede Jman Praktikant
07. marts 2004 - 14:53 #1
select distinct type from TABEL where type = 1

(pas på med ordet "type" . jeg mener det er et reserveret ord
Avatar billede fredd Nybegynder
07. marts 2004 - 15:44 #2
Jaja men den skal skrive alle unike poster i hele tabellen...!
Lad os lave Type om til test..
Avatar billede Jman Praktikant
07. marts 2004 - 15:53 #3
det gør den da også - (?)
Avatar billede fredd Nybegynder
07. marts 2004 - 16:51 #4
Ja men jeg vil kunne lave html kode mellem de forskellinge poster.
Avatar billede Jman Praktikant
07. marts 2004 - 16:55 #5
jeg tror du må forklare dig nærmere..
htmlkode har jo intet med hvad du vil trække ud i databasen
Avatar billede fredd Nybegynder
07. marts 2004 - 17:28 #6
Undskyld dit script virker fint...

Kender du evt. en kode hvor du kan få den til at skrive hvor mange der er af de forskellige...

F.eks.:

Test
5 poster

/Fredd
Avatar billede Jman Praktikant
07. marts 2004 - 17:30 #7
jamen så svarer jeg lige ...
Avatar billede Jman Praktikant
07. marts 2004 - 17:31 #8
til antal poster kan du bruge select count
Avatar billede fredd Nybegynder
07. marts 2004 - 17:36 #9
Er ikke så godt kendt i asp - vil du skrive koden for mig.
Avatar billede Jman Praktikant
07. marts 2004 - 18:13 #10
i stedet for
set RS = conn.execute(SQL)

kan du skrive
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, conn, 3
allrecords = rs.RecordCount

og så kan du skrive
antal fundne poster: <%=allrecords%>
Avatar billede fredd Nybegynder
07. marts 2004 - 18:47 #11
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db1.mdb")
Conn.Open DSN

strSQL = "Select Distinct Kolonne1 from Table1 Where Type = 'Test' Order by Kolonne1"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, conn, 3
allrecords = rs.RecordCount

Do
%>

Html kode <% Response.Write rs("Kolonne1") %> .... <%=allrecords%>

<%
rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester