27. juni 2002 - 18:22Der er
12 kommentarer og 1 løsning
Sorter poster fra db efter kategori
Jeg har en db, men 2 tabeller... Den ene indeholder en kategori oversigt og den anden indeholder de ting som hører ind under de forskellige kategorier.
Jeg vil gerne have lavet det sådan, så når jeg åbner en side, hentes først en kategori, hvor der så neden under bliver indsat alle de poster som hører til kategorien. Neden under skal den så ta den næste kategori og vise de poster der hører dertil osv. osv.
Sådan:
Kategori 1 post 1 post 3 post 4
Kategori 2 post 2 post 6 post 8
osv.
osv.
Jeg har i tabellen med posterne lavet et felt der hedder refid, som har samme værdi som feltet id i tabellen kategori.
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Slettet bruger
27. juni 2002 - 18:42#1
er det noget vi skal lave for dig, eller hvad er det du spørger efter ?
Ja, så skal du først løbe Db'en med kategori-oversigten igennem. Ved hvert step skal den pågældende overskrift udskrives og ved samme lejlighed lave en SQl, der fra den anden DB udvælger netop de poster, der svarer til kategorien.
Er det Access? Hvordan er dine tabeller opbygget? Hvordan relaterer de to tabeller til hinanden?
strSQL = "Select * From KategoriOversigt" Set rs = Conn.Execute(strSQL)
Do While Not rs.EOF Response.Write rs("Kategori") & "<br>" strSQL = "Select * From KategoriEmner" Set rskat = Conn.Execute(strSQL) Do While Not rskat.EOF Response.Write rskat("Tekst") & "<br>" rskat.MoveNext Loop Set rskat = Nothing rs.MoveNext Loop
strSQL = "Select * From KategoriOversigt" Set rs = Conn.Execute(strSQL)
Do While Not rs.EOF Response.Write rs("Kategori") & "<br>" strSQL = "Select * From KategoriEmner Where Kategori = '" & rs("Kategori") & "'" Set rskat = Conn.Execute(strSQL) Do While Not rskat.EOF Response.Write rskat("Tekst") & "<br>" rskat.MoveNext Loop Set rskat = Nothing rs.MoveNext Loop
Det vil jeg gerne gøre, men du er nødt til at give mig nogle oplysninger. Jeg aner stadig ikke, hvilken database du bruger, og hvad dine forskellige kolonner hedder i de to tabeller (og hvad de hedder).
strSQL = "Select * From kategori" Set rs = Conn.Execute(strSQL)
Do While Not rs.EOF Response.Write rs("kategori") & "<br>" strSQL = "Select * From tekst Where refid = '" & rs("id") & "'" Set rs2 = Conn.Execute(strSQL) Do While Not rs2.EOF Response.Write rs2("tekst") & "<br>" rs2.MoveNext Loop Set rs2 = Nothing rs.MoveNext Loop
Set rs = Nothing ' LUK DB Conn.Close Set Conn = Nothing %>
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.
