Hello,
Maybe someone can help?
According to ms kb-article 183329 i am trying to populate a treeview object
on a asp-page, with realtime data from a accessdatabase.
The database routine works fine and correctly returns the required records,
the treeview object is not populated.
The syntax of the treeview1.nodes .add statement is correct (have them
written to the browser to check) but still no entries in the object.
i searched almost the entire internet ;-), but found no solution? Please
help....
Intention is that a database with only one table is read, which contains all
members of a family. The table contains a parent-child id as well, so,
knowing the most toplevel (which is the starting point) it is possible to
drilldown to the youngest member in the family.
I build the same stuff into VB itself (v6) and that works fine.
Code is as follows:
<%@ LANGUAGE="VBSCR IPT"%>
<%
Response.Expire s = -1
dq = Chr(34)
'Open connection to database
Set Conn = Server.CreateOb ject("ADODB.Con nection")
Conn.Open "DBQ=D:\Inetpub \webdata\family .mdb;Driver={Mi crosoft Access Driver
(*.mdb)};Driver Id=25;FIL=MS Access;"
Sub main()
Dim First_Node
First_Node = "F235M234"
Call Retrieve_Tree(F irst_Node)
End Sub
Sub Retrieve_Tree(P arent)
SQLStr = "Select ID, PartnerID, MarriageID, IDParentMarriag e, Lastname,
FirstName from Persons where IDParentMarriag e = '" + Parent + "' ORDER BY
DateOfBirth"
Set rs = Conn.Execute (SQLStr)
If rs.EOF Then
Exit Sub
End If
If Not rs.EOF Then
rs.MoveFirst
End If
While Not rs.EOF
strName = rs("Lastname") & ", " & rs("Firstname" )
OwnID = rs("MarriageID" )
ParentID = rs("IDParentMar riage")
'Nu afdrukken, maar ook functie aanroepen die TreeView1 object vult, met
parameters
'Response.Write strName & "<BR>"
Call FillTreeNew (OwnID, ParentID, strName,4)
Response.Write "<BR>"
Call Retrieve_Tree (rs("MarriageID "))
rs.MoveNext
Wend
End Sub
%>
<SCRIPT LANGUAGE="VBScr ipt">
<%
Sub FillTreeView(Ow nID,ParentID,st rName)
Response.Write "TreeView1.Node s.Add " & dq & ParentID & dq & ",tvwChild, "
& dq & OwnID & dq & "," & dq & strName & dq
End Sub
%>
</SCRIPT>
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta name="GENERATOR " content="Micros oft FrontPage 5.0">
<meta name="ProgId" content="FrontP age.Editor.Docu ment">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>New Page 4</title>
<LINK HREF="/Stylesheets/content.css" REL="STYLESHEET " TYPE="TEXT/CSS">
</head>
<body>
<OBJECT ID="TreeView1" WIDTH=400 HEIGHT=500
CLASSID="CLSID: 0713E8A2-850A-101B-AFC0-4210102A8DA7">
<PARAM NAME="_ExtentX" VALUE="7938">
<PARAM NAME="_ExtentY" VALUE="10583">
<PARAM NAME="_Version" VALUE="327682">
<PARAM NAME="LineStyle " VALUE="1">
<PARAM NAME="Style" VALUE="6">
<PARAM NAME="Appearanc e" VALUE="1">
</OBJECT>
<p>Content</p>
<HR>
<%
FillTreeNew "F235M234","NUL L","STAALBER G, Hendrik", 0
Response.Write "<BR>"
Main
%>
<SCRIPT LANGUAGE="VBScr ipt">
TreeView1.Font. Name = "Tahoma"
TreeView1.Font. Size = 9
TreeView1.Nodes .Add "NULL",0,"F235M 234","STAALBERG , Hendrik"
<%
Sub FillTreeNew(Own ID,ParentID,str Name,Prm)
'************ Populate the Control *************** ***************
Response.Write Chr(10) & "TreeView1.Node s.Add " & dq & ParentID & dq &
"," & Prm & "," & dq & OwnID & dq & "," & dq & strName & dq & chr(10) &
chr(13)
End Sub
%>
</SCRIPT>
<%
Conn.Close
Set rs = Nothing
Set Conn = Nothing
%>
</body>
</html>
