Prikazi cijelu temu 25.01.2011-16:55
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Lokacija: Tuzla


Subject: Slozi po parent
Cesto puta vam treba meni pa podmeni pa pod meni itd.
Ne samo to. Vidio sam cesto puta da ljudi zbog pripadnosti prave mnostvo tabela i uvijek jedna zafali.
Evo primjer kako to mozete napraviti u jednoj tabeli:
ID Naziv Pripadnost
1 Glavni meni  
2 Podmeni1 1
3 Podmeni2 1
4 Pod Pod meni1 2
5 Stavka U Pod Podmeniju1 4
6 Stavka u podmeniju2 3
7 Stavka u podmeniju1 2
8 sss 5
Zapisiste ovaj kod u neki modul:
DownloadIzvorni kod (Visual Basic):
  1. Function Slaganje(ID As Variant) As String
  2. Dim Parentni As Variant
  3. Start:
  4. Parentni = DLookup("Pripadnost", "Tree", "ID=" & ID)
  5. If IsNull(Parentni) Then
  6.         GoTo Kraj
  7.     Else
  8.         Slaganje = Str(Parentni) & "." & Str(ID) & "." & Slaganje
  9.         ID = Parentni
  10.         GoTo Start
  11.     End If
  12. Kraj:
  13. End Functio
n
Zapisite ovaj kod u Query te pokrenite Query koji ce vam napraviti tabelu.
CREATE TABLE Tree(ID AUTOINCREMENT, Naziv TEXT(50), Pripadnost Integer );
Popunite tabelu po zelji po uzoru na gore navedenu.
Zapisiste sledeci Query te ga pokrenite:
DownloadIzvorni kod (SQL):
  1. SELECT *
  2. FROM Tree
  3. ORDER BY slaganje(ID);

Pozdrav