Vorgegeben ist eine Datenbank mit den Feldern
ID IDokat IDukat nachname1
1 1 4 Sozialstation 1
2 1 5 b
3 1 6 c
4 5 10 d
5 5 11 e
6 10 20 f
7 20 30 g
Die Tabelle besteht aus zwei gejointen Tabellen, wobei das Feld nachname1 aus der zweiten Tabelle stammt.
Dieses Feld ist alphabetisch sortiert, so dass der Baum selbst bereits in der richtigen Reihenfolge vorliegt.
Gejoint wird das Feld kontakt_id aus der zweiten Tabelle mit dem Feld IDukat aus der Kreuztabelle.
<%@LANGUAGE="VBSCRIPT"%>
<%
'Option Explicit
Response.Expires = 0
Dim strProvider
strProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
Dim strDatabase
strDatabase = "DATA SOURCE=" & Server.MapPath ("../../../") & "\~db\adressen-vs.mdb;"
Dim strComplete
strComplete = strProvider & strDatabase
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strComplete
%>
<%
Sub struktur(var_kategorie,var_ebene)
Dim strsql52
Dim objRS52
Dim LastRS
' Datenbank durchsuchen nach allen verbundenen Bereichen
strsql52 = "SELECT * FROM qry_xkontakt_firma3 where IDokat=" & var_kategorie & " AND istfirma=true"
Set objRS52 = Server.CreateObject("ADODB.Recordset")
objRS52.Open strsql52, objConn
Do While Not objRS52.EOF
For i = 1 to var_ebene
Response.Write "_"
Next
Response.Write objRS52.Fields("nachname1")
Response.Write ("<br>")
call struktur(objRS52.Fields("IDukat"),var_ebene+1)
objRS52.MoveNext
Loop
objRS52.Close
Set objRS52 = Nothing
End Sub
call struktur(1,1)
objConn.Close
Set objConn = Nothing
%>
Diese Website verwendet Cookies. Durch die Nutzung der Website stimmen Sie dem Speichern von Cookies auf Ihrem Computer zu. Außerdem bestätigen Sie, dass Sie unsere Datenschutzbestimmungen gelesen und verstanden haben. Wenn Sie nicht einverstanden sind, verlassen Sie die Website.Weitere Information