slette alle

Hvad med dette forslag

pseudokode - sletter en gren startende med "parentid"
<--
    Sub sletgren(parentid As Integer)
        Dim sletdisse As String

        Do While Not rs.eof
            If rs("id") = parentid Then
                sletdisse = sletdisse & "," & rs("id")
            End If
        If instr(sletdisse, "," & rs("parentmenu") ",") then
                sletdisse = sletdisse & "," & rs("id")
            End If
            rs.movenext()
        Loop
        rs.movefirst()
        Do While Not rs.eof
      if instr(sletdisse, "," & rs("id") ",") then
                rs.delete()
          End If
          rs.movenext()
        Loop
    End Sub
-->

Mvh

Martin Skau

Mangler lige et
  & ","
på slutningen af hver af de linier der begynder med sletdisse =

Min første "kommentar" skulle have været et svar. Derfor dette svar i stedet.

Hi again,
Just put a little example together to give you an idea as how it can be done. Getting this into ASP is really up to you but I doubt that it is a problem.

'Start by calling DeleteMenuListy with level we want to delete from
DeleteMenuList 10
   
Function DeleteMenuList(ThisMenu As Long)
Dim db As Database
Dim rstChild As Recordset

    Set db = CurrentDb
   
    'Now we select all child records under the current level (part)
    Set rstChild = db.OpenRecordset("SELECT ID FROM tblMenu WHERE ParentMenu  = " & ThisMenu)
   
    Else
        'Now we loop through each child to see if they too have children
        Do While Not rstChild.EOF

'Here is the recursive call           
            DeleteMenuList rstChild!ID
           
            rstChild.MoveNext
       
        Loop
    End If
   
    'Now delete the level you are at, SQL for that is>
    ' "DELETE FROM tblMenu WHERE ID = " & ThisMenu
   
    Set rstChild = Nothing
   
    Set db = Nothing

End Function

Oops! Little error there :o)

'Start by calling DeleteMenuListy with level we want to delete from
DeleteMenuList 10
   
Function DeleteMenuList(ThisMenu As Long)
Dim db As Database
Dim rstChild As Recordset

    Set db = CurrentDb
   
    'Now we select all child records under the current level (part)
    Set rstChild = db.OpenRecordset("SELECT ID FROM tblMenu WHERE ParentMenu  = " & ThisMenu)
   
    'Now we loop through each child to see if they too have children
    Do While Not rstChild.EOF
       
        DeleteMenuList rstChild!ID
       
        rstChild.MoveNext
   
    Loop
   
    'Now delete the level you are at, SQL for that is>
    ' "DELETE FROM tblMenu WHERE ID = " & ThisMenu
   
    Set rstChild = Nothing
   
    Set db = Nothing

End Function

You can see that the function DeleteMenuList is actually calling itself to traverse down to the child nodes

The DELETE is actually happening when we start back tracking UP after visiting the bottom of the root

i made this code,
and the error was a simple type error mistake in the code

this works for me

<%
nRootID = request("id")
response.write "<br>before function " & nRootID
' response.write nRootID

    set rs=conn.execute("SELECT * FROM menutree")

FUNCTION deleteRoot(nRootID)

    set rs=conn.execute("SELECT * FROM menutree WHERE parentmenu =  "& nRootID )

    do while not rs.EOF
'        deleteRoot rs("id")
response.write "<br>within function " & rs("id") & nRootID
        rs.MoveNext
    loop

delete =    ("DELETE FROM menutree WHERE id = " & GetID)
' conn.execute(delete)
response.write delete

END FUNCTION
response.write "<br>after function " & nRootID
deleteRoot nRootID
%>

OK :o)