Loope i array

kig på dette besvarelse hvor jeg bruger getrow methoden + en array i en loop. håber det hjælper.

vh  hossein

den kommentar: 31/12-2002 20:27:31

Jeg fandt selv ud af det. Det endte med at komme til at se sådan ud:

Sub subInsertNewMenuItem

  Call subDesignInsertNewMenuItemTop

  '## Erklær variabler
  Dim Conn,strMenuSQL,MenuRS,arrMenuRS, arrMaxSize, arrRow, intPid, strMenuName, strMenuLink, intParentPid

  '## Åbner databasen
  Set Conn = Createobject("ADODB.Connection")
  Call Conn.Open(strConnectionString)

  '## Vælg alle hovedpunkter fra menuen
  strMenuSQL = "SELECT * FROM cam_menu WHERE parent_pid = 0"

  Set MenuRS = Server.CreateObject("ADODB.Recordset")

  '## Cache 25 records i hukommelsen
  MenuRS.CacheSize = 25
  '## Åbner en statisk cursor
  MenuRS.CursorType = 3
  '## Låser records når Update method'en bliver kaldt
  MenuRS.LockType = 3

  '## Opretter MenuRS
  Set MenuRS = Conn.Execute(strMenuSQL)

  '## Smider indholdet af MenuRS ind i et array vha. getarrRows hvis MenuRS ikke er tom
  If NOT MenuRS.EOF Then
        arrMenuRS = MenuRS.GetRows()
        arrMaxSize = Ubound(arrMenuRS)
  Else
        arrMaxSize = 0
  End If

  '## Lukker MenuRS da vi allerede har hentet hvad vi skal bruge ned i arrMenuRS
  MenuRS.close()
  Set MenuRS = Nothing

    arrRow = 0

    '## Looper rækker indtil arrMaxSize er større eller lig arrRow
    Do While arrRow <= arrMaxSize

        '## Tildeler værdier i arrMenuRS til variabler
        intPid = arrMenuRS(0,arrRow)
        strMenuName = arrMenuRS(1,arrRow)
        strMenuLink = arrMenuRS(2,arrRow)
            If strMenuLink = "null" Then strMenuLink = ""
        intParentPid = arrMenuRS(3,arrRow)
            If intParentPid <> 0 Then
                    intParentPid = intParentPid
            Else
                    intParentPid = ""
            End If

            '## Udskriv oversigt
            Response.write strMenuName & funcInsertImageLevels(InsertImages) & "<br>" & vbcrlf

            '## Kald subproceder hvor sub menupunkter udskrives
            Call subShowSubMenu(intPid, intParentPid, 0)

    arrRow = arrRow + 1

    Loop

    '## Luk database connection
    Conn.Close
    Set Conn = Nothing

    Call subDesignInsertNewMenuItemBottom

End Sub

Sub subShowSubMenu (ByRef varMenuID, parentID, Level)

    strSubMenuItemsSQL = "SELECT * FROM cam_menu WHERE parent_pid = " & varMenuID & ""
    Set SubMenuRS = Conn.Execute(strSubMenuItemsSQL)

    Do until SubMenuRS.EOF

        intLevel = 0
        Response.Write "<img src=""" & strPathAdmin & "/img/space.gif"" width=""" & Level*20 & """ height=""1"">"
        Response.Write "- " & SubMenuRS("menu_name") & funcInsertImageLevels(InsertImages) & "<br>" & vbCrlf
        Call subShowSubMenu(SubMenuRS("pid"), SubMenuRS("parent_pid"), Level+1)

    SubMenuRS.MoveNext

    Loop

    SubMenuRS.Close
    Set SubMenuRS = Nothing

End Sub

Muligvis ikke den pæneste løsning, men det virker :)

Lukker..