13. februar 2002 - 12:34
Der er
2 kommentarer og
1 løsning
Gennemløb, loop, løkke, ....
Jeg har en database med følgende felter :
CategoryID = Unikt ID
CategoryName = Kategorinavn
TitleID = Unikt ID på en title
TitleIDParent = TitleID en title høre under
Jeg ønsker så at løbe databasen igennem, og udskrive det som et træ.
Data er f.eks. :
1,KategoriA,0,1
2,KategoriB,1,2
3,KategoriC,1,5
4,KategoriD,2,6
5,KategoriE,5,8
6,KategoriF,8,9
7,KategoriG,0,10
8,KategoriH,2,11
Udskrives sådan :
KategoriA,0,1
-KategoriB,1,2
--KategoriD,2,6
--KategoriH,2,11
-KategoriC,1,5
--KategoriE,5,8
---KategoriF,8,9
KategoriG,0,10
Håber det er til at forstå ;o)
13. februar 2002 - 12:48
#2
har vist også fået byttet lidt om :o)
Men det er :
CategoryID, CategoryName, TitleIDParent, TitleID
13. februar 2002 - 13:38
#3
Denne kode skulle gøre det, du skal bare udskifte <CONNECTIONSTRING>
med din egen:
<%
Dim con
con = <CONNECTIONSTRING>
WriteTitles 0,0
Sub WriteTitles(lTitleParentID, lLevel)
Dim rs
Dim sTreeLine
Dim lCount
sTreeLine = ""
For lCount = 0 to lLevel - 1
sTreeLine = sTreeLine & "-"
next
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM tblID WHERE TitleParentID = " & lTitleParentID, con, 2, 1
Do while rs.EOF = False
Response.Write sTreeLine & rs.Fields("CategoryName").Value & "<BR>"
WriteTitles rs.Fields("TitleID").Value, lLevel + 1
rs.MoveNext
Loop
rs.Close
End Sub
%>
