I have a table in Access, and I want to figure out how I could in VBsc 2

Karl Blessing · Jun 29, 2000

I have a table in Access, and I want to figure out how I could in VBscript recursivly go through the table, steps are checking the HParents and LParents for 0,0 then under the first one, find all children, and for each childeren find under that as well like below should return something like: ID1¦HID¦ID¦Name¦Type ¦Val  ¦Label           ¦HParent¦LParent ------------------------------------------------------------ 7  ¦1  ¦Labor  ¦Check¦Labor¦Labor           ¦0      ¦0 7  ¦2  ¦LFD    ¦Check¦LFD  ¦Labor Force Data¦7      ¦1 7  ¦3  ¦LFDS   ¦Check¦LFDS ¦State           ¦7      ¦2 7  ¦4  ¦LFDN   ¦Check¦LFDN ¦National        ¦7      ¦2 7  ¦5  ¦LCD    ¦Check¦LCD  ¦Labor Cost Data ¦7      ¦1 7  ¦6  ¦LCDW   ¦Check¦LCDW ¦Wages           ¦7      ¦5 7  ¦7  ¦LCDE   ¦Check¦LCDE ¦Employment      ¦7      ¦5 7  ¦8  ¦LCDWR  ¦Check¦LCDWR¦Wage Ratios     ¦7      ¦5 into: ... <input type="check" name="Labor"> Labor </input>     <input type="check" name="LFD"> Labor Force Data </Input>         <input type="check" name="LFDS"> State </input>         <input type="check" name="LFDS"> National </input>     <input type="check" name="LCD"> Labor Cost Data </input>         <input type="check" name="LCDW"> Wages </input>         <input type="check" name="LCDE"> Employment </input>         <input type="check" name="LCDWR"> Wage Ratios </input> ... of cource the actual output, may be in tables, forms, etc to make it into a treelike (or if its IE only, into like a pulldown) but I need something to rescursivly go through , and spit out from top to bottom, at the most it might use 4 recordsets on a stack at a time I would think (rescursive is calling itself right?) any help is appreciated. Karl <a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a> <a href=

http://kb244.8m.com>

</a> Experienced in : C++(both VC++ and Borland),VB1(dos) thru VB6, Delphi 3 pro, HTML, Visual InterDev 6(ASP(WebProgramming/Vbscript)

http://www.brainbench.com/transcript.jsp?pid=629151

Karl Blessing · Jul 17, 2000

Ok I'm back, I noticed palblano's response way up there( I didnt ignore it) but in any case. What you could do is create a 'Node' class in your script (yes... object oriented script code) that would be searchable by Node.id the id could be synthesized using HParent.LParent.HID, if I understand your schema correctly. Then as each Node instance is created from a row it's parent could be located in memory and the new Node added to it's children collection. what I want to know is how would I create the class and how to throw the records into it, right now I have it just doing a getrow. sub showtreeat(byref theObj, HpLoc, LpLoc, ShowP)  Dim TreeRow  TreeRow = UBound(theObj, 2)  if ShowP = true then   showparent theObj, HpLoc, LpLoc  end if  for j = 0 to TreeRow   If theObj(HP,j) = HpLoc and theObj(LP,j) = LpLoc then    if Spaces = 0 and count > 45 and Change=True then     Change = False     HTMLStr1 = HTMLStr     HTMLStr = ""    end if    if theObj(RType,j) <> "DataGroup" then     If Spaces = 0 then     HTMLStr = HTMLStr & "<TR><TD bgcolor=""#000000"">"    else     HTMLStr = HTMLStr & "<TR><TD " & gTableCellColor & ">"    end if    writetabs(Spaces)    HTMLStr = HTMLStr & vbcrlf & "<input type=""" & TheObj(RType, j) & """ name=""" & TheObj(Name, j) & """ value=""" & TheObj(Value,j) & """>"    HTMLStr = HTMLStr & TheObj(Label, j)    If Spaces = 0 then     HTMLStr = HTMLStr & "</TD></TR>"  & vbcrlf & vbcrlf    else     HTMLStr = HTMLStr & "</TD></TR>" & vbcrlf & vbcrlf    end if    Count = Count + 1   else   select case theObj(Label,j)    case "ESA", "RM"     Set objDB = WebConn()     if theObj(Label,j) = "ESA" then      Set gRS = objDB.EsDataGroup(1)     else      Set gRS = objDB.ProgCompGroup(1)     end if     if not (gRS is nothing) and not (gRS.EOF) then      gRS.MoveFirst      Do While Not gRS.EOF       HTMLStr = HTMLStr & "<TR><TD " & gTableCellColor & ">"       writetabs(Spaces)       HTMLStr = HTMLStr & vbcrlf & "<input type=""" & TheObj(Value, j) & """ name=""" & theObj(HID,j) & "_code"" value=""" & Trim(gRS("codetype&quot

) & "~" & Trim(gRS("groupcode&quot

) & """>"       HTMLStr = HTMLStr & gRS("grouptitle&quot

& "</TD></TR>" & vbcrlf & vbcrlf       Count = Count + 1       gRS.MoveNext      Loop      gRS.Close     end if     WebDisConn(objDB)    case "O", "IOC"     Set objDB = WebConn()     if theObj(Label,j) = "O" then      Set gRS = objDB.OescodeGroups      OccVal = "_code"     else      Set gRS = objDB.Sicdiv()      OccVal = "_ind_grp"     end if     if not (gRS is nothing) and not (gRS.EOF) then      gRS.MoveFirst      Do While Not gRS.EOF       HTMLStr = HTMLStr & "<TR><TD " & gTableCellColor & ">"       writetabs(Spaces)       HTMLStr = HTMLStr & vbcrlf & "<input type=""" & TheObj(Value, j) & """ name=""" & theObj(HID,j) & OccVal & """ value=""" & gRS(0) & """>"       HTMLStr = HTMLStr & gRS(1) & vbcrlf & "</TD></TR>" & vbcrlf & vbcrlf       gRS.MoveNext       Count = Count + 1      Loop      gRS.Close     end if     WebDisConn(objDB)    end select   end if   Spaces = Spaces + 1   showtreeat theObj, theObj(HID, j), theObj(LID, j), False   Spaces = Spaces - 1  end if next end sub these are the other functions used. sub replacelang(byref LangObj, byref AryObj)  for w = LBound(AryObj,2) to UBound(AryObj, 2)   for x = LBound(LangObj,2) to UBound(LangObj, 2)    if AryObj(Label, w) = Cstr(LangObj(LangID, x)) then     AryObj(Label, w) = LangLookup(LangObj(LangTab,x), LangObj(LangRadio,x), LangObj(LangType,x))    end if   next  next end sub sub writetabs(number)  for k = 0 to number   HTMLStr = HTMLStr & " "  next end sub sub showparent(byref theObj, HpID, LpID)  Dim ParentRow  ParentRow = UBound(theObj, 2)  for j = 0 to ParentRow   If theObj(HID,j) = HpID and theObj(LID,j) = LpID then    HTMLStr = HTMLStr & "<TR><TD " & gTableCellColor & ">"    writetabs(Spaces)    HTMLStr = HTMLStr & vbcrlf & "<input type=" & TheObj(RType, j) & " name=" & TheObj(Name, j) & " value=" & TheObj(Value,j) & ">"    HTMLStr = HTMLStr & TheObj(Label, j) & "</TD></TR>" & vbcrlf & vbcrlf    Count = Count + 1    exit for   end if  next end sub and the main routine Conn.Open "Tree", "sa", "" RS.Open "SELECT Tree.HID, Tree.ID, Tree.Name, InputType.Type, Tree.Val, Tree.Label, Tree.HParent, Tree.LParent FROM Tree INNER JOIN InputType ON Tree.Type = InputType.ID order by Tree.HID, Tree.ID",Conn, 0,1 If not RS.EOF then   RS.MoveFirst   AryData = RS.GetRows   RS.Close end if RS.Open "Select * from LanguageLabel",Conn, 0,1 If not RS.EOF then   RS.MoveFirst   LangData = RS.GetRows   RS.Close end if Set RS = nothing Conn.Close Set Conn = nothing replacelang LangData, AryData   '  -- Starts the simple tree view -- showtreeat AryData, 0,0, False Response.write "<form action=""FormatMulti.asp"" method=""Post"">" & vbcrlf Response.Write vbtab & "<Table border=0 align=center Width=""80%"">" & vbcrlf Response.Write vbtab & vbtab & "<TR><TD " & gTopColor & " align=center valign=middle colspan=2> <H1> " & LangLookup("Multi", "Report", "Print&quot

& " </H1> </TD></TR>" & vbcrlf Response.Write vbtab & vbtab & "<TR>" & vbcrlf Response.Write vbtab & vbtab & vbtab & "<TD " & gTableCellColor & " width=""50%"" valign=top><Table border=0 width=""100%"">" & vbcrlf & HTMLStr1 & vbcrlf & "</Table></TD>" & vbcrlf Response.Write vbtab & vbtab & vbtab & "<TD " & gTableCellColor & " width=""50%"" valign=top><Table border=0 width=""100%"">" & vbcrlf & HTMLStr  & vbcrlf & "</Table></TD>" & vbcrlf Response.Write vbtab & vbtab & "</TR>" & vbcrlf Response.Write vbtab & vbtab & "<TR><TD " & gBottomColor & " align=center valign=middle colspan=2><input type=""Submit""></TD></TR>" & vbcrlf Response.Write vbtab & "</Table>" & vbcrlf Response.Write "</form>" & vbcrlf set AryData = nothing Response.Flush Response.write "</body>" & vbcrlf & "</html>" Karl <a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a> <a href=

http://kb244.8m.com>

</a> Experienced in : C++(both VC++ and Borland),VB1(dos) thru VB6, Delphi 3 pro, HTML, Visual InterDev 6(ASP(WebProgramming/Vbscript)

http://www.brainbench.com/transcript.jsp?pid=629151

palbano · Jul 17, 2000

Karl, First, remember I'm not a VB developer, all my stuff is done in javascript which supports inheritance so my class designs don't quite translate to VBScript > what I want to know is how would I create the class You define a class (in VBScript) using the 'Class' keyword then inside the class block you define properties and methods using the 'Private' and 'Public' keywords. So your Node class might look like this <script language=vbscript runat=server> Class Node Private _id .... more member variables to contain the data for HTML output Private _children() 'Dynamic array declaration to contain child 'Node' objects Public sub init( rs) 'rs is a recordset currently pointed to the row that defines this instance of 'Node' _id = rs("HID&quot

& "." & rs("LID&quot

' build the unique id string ... set remaining member variable data from the column values end sub Public sub addChild( oNode) 'Dynamically grow the _children array and add 'oNode' to it end sub Public function toHtml 'build a string of html containing this nodes values ostr = "<TD>" & _id & "</TD>" toHtml = ostr end function .... other subroutines and functions to perform the necessary tasks for a 'Node' End Class </script > and how to throw the records into it, right now I have it just doing a getrow. Now in your pages script block you can create new nodes like this <% ... set up your query and connection and create rs (ADODB.Recordset) dim oNode set oNode = new Node oNode.init rs Response.Write "<table><tr>" & oNode.toHtml() & "</tr></table" %> In my design I also create a tree object that collected all the root level nodes. You might prefer to just have a single 'Node' object to represent the 'tree'. Hope this helps -pete

Karl Blessing · Jul 17, 2000

you cant do classes in VBscript which is why I am doing it in an ActiveX dll, I'm having a bit problem with the collection, which you can see in the VB5/6 Forum. Also in my collection its a single node, with a node collection in them. (Nodes with possible childeren) Karl <a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a> <a href=

http://kb244.8m.com>

</a> Experienced in : C++(both VC++ and Borland),VB1(dos) thru VB6, Delphi 3 pro, HTML, Visual InterDev 6(ASP(WebProgramming/Vbscript)

http://www.brainbench.com/transcript.jsp?pid=629151

palbano · Jul 17, 2000

Karl, > you cant do classes in VBscript Yes you can, version 5 of the script engine introduced the Class keyword into VBScript and has been out for almost two years now. It even runs in PWS. -pete

Karl Blessing · Jul 17, 2000

well for one thats not a class module like in VB, I said that mainly because I asked my lead developer if i was able he said, no, but my question you, is using that class thing, how can I Create a single node thing, that'll work with multiple children, check out my collection post in the VB forum as well I've been trying to use the keynames to add without traversin, but I cant get it to act like a tree(where every node can be accessed from anywhere, rather than seperate collections) Karl <a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a> <a href=

http://kb244.8m.com>

</a> Experienced in : C++(both VC++ and Borland),VB1(dos) thru VB6, Delphi 3 pro, HTML, Visual InterDev 6(ASP(WebProgramming/Vbscript)

http://www.brainbench.com/transcript.jsp?pid=629151

palbano · Jul 17, 2000

> well for one thats not a class module like in VB I don't understand that statement. You can put that <script> block into it's own file and then use SSI to use it where ever you want. It's not automatically visible since there is no notion of a project the way there is in VB. > I asked my lead developer if i was able he said, no Well then he was wrong. Perhaps you should get a new 'lead developer'? hehe > using that class thing, how can I Create a single node thing, that'll work with multiple children Do you have any OOAD experience? That would certainly be a pre-requisite to using an Object Oriented solution. > check out my collection post in the VB forum Ok, I will. > but I cant get it to act like a tree(where every node can be accessed from anywhere, rather than separate collections) Well, if by that statement you mean you want to access any node from any other node even when they are not on the same branch? There are several ways to do that 1) each node could have a 'parentNode' member. That allows searching for Nodes 'up the branch' as well as down. 2) You could have 'Tree' class that contains all the 'root' nodes in a collection and each Node would have a 'Tree' member that is set to 'The tree', then if the Node can't find the node requested by searching down the branch, you pass the request to the Tree which has access to all the Nodes. -pete

Karl Blessing · Jul 17, 2000

in a class Module if I made a collection, when adding a node to a collection, theres 2 paramets, the first is the acutal node object, the second is an optional keyname(there can be no duplicate keynames in a collection) each keyname I said is "~" + The HeadID + "¦" + The Leaf ID this garantee's uniqueness since every node has it's head+Leaf address is unique, so this way, if I Want to add a node under ~3¦1 (~ is to follow the keyname rule, which cannot have it starting with a number) I could do a set TopNode = TheTree.Node("~3¦1&quot

then I could just easily add it under by doing so. TopNode.Add ChildNode, "~" + ChildHeadID + "¦" + ChildLeafID but unfortunatly, I cannot do TheTree.Node("~" + ChildHead + "¦" + ChildLeft) because once that node under a root has been established, I cannot reach past the top node, the key is unique only to the new collection, which is seperate from the rest. and the Depth of the tree can be anywhere from 1 even upto 5 levels. Karl <a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a> <a href=

http://kb244.8m.com>

</a> Experienced in : C++(both VC++ and Borland),VB1(dos) thru VB6, Delphi 3 pro, HTML, Visual InterDev 6(ASP(WebProgramming/Vbscript)

http://www.brainbench.com/transcript.jsp?pid=629151

Karl Blessing · Jul 17, 2000

correction, to add is, TopNode.Node.Add, and I belive to have some OO experience, I mean I worked alot with C++, but the transgression sometimes to VB, makings me keep wanting to go to C++ for some of the data handeling, shame I cant actually use pointers in VB, but then again, I Still have references to objects. Karl <a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a> <a href=

http://kb244.8m.com>

</a> Experienced in : C++(both VC++ and Borland),VB1(dos) thru VB6, Delphi 3 pro, HTML, Visual InterDev 6(ASP(WebProgramming/Vbscript)

http://www.brainbench.com/transcript.jsp?pid=629151

palbano · Jul 17, 2000

Karl, I must apologize for the confusion. In my previous post my use of the term 'collection' did not refer to a VB type. In my mixed language experience, I use the term collection to describe an 'unknown type' used to store a sequence of items. The type could be a simple array or a vector or a map(also known as dictionary), whatever works best for the given problem. In your instance, you might consider using a simple array if the VB Collection type is hindering your design. Each node would provide a .equals() function that takes a string parameter and returns true if it's ID matches the requested parameter. Each Node could also provide a .find() function that returns a 'Node' type if found in it's children array. The find() function would of course recurs into each element of the children array looking for the Node in question by calling their find() member function. If you used a MIB style ID each outer level Node could also determine if the ID in question would indeed be in it's branch by comparing the ID to it's own level. This would provide a fairly optimized 'find()' algorithm by starting at the 'root node' or the 'Tree' which ever design you go with. This provides maximum flexibility in searching the 'collection' of Nodes. Again, my apologies for the terminology confusion. -pete

Karl Blessing · Jul 17, 2000

I am just trying to find an easier quicker way to manage the data rather than searching through the array over and over again, and would possible help in the future to manage the user interface. Unfortunatly it doesnt seem like anything I'll seem to slap together within 2 days or so. If only I knew how to make the class object in VBscritp behave more like a LinkList/Binary Tree in C++. that I was at least good at. Its doesnt seem so much to be the concept I dont understand, that I understand a little too much, but how to get the current language to work with that concept. Karl <a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a> <a href=

http://kb244.8m.com>

</a> Experienced in : C++(both VC++ and Borland),VB1(dos) thru VB6, Delphi 3 pro, HTML, Visual InterDev 6(ASP(WebProgramming/Vbscript)

http://www.brainbench.com/transcript.jsp?pid=629151

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

I have a table in Access, and I want to figure out how I could in VBsc 2

Karl Blessing

Programmer

Karl Blessing

Programmer

palbano

Programmer

Karl Blessing

Programmer

palbano

Programmer

Karl Blessing

Programmer

palbano

Programmer

Karl Blessing

Programmer

Karl Blessing

Programmer

palbano

Programmer

Karl Blessing

Programmer

Similar threads

Part and Inventory Search

Sponsor