Discussion :

[Elwe31]

Salut,

Quelqu'un sait comment on traduit ça sous access ....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
  select id, id_parent, titre
  from table
  start with id_parent is null
  connect by id_parent = prior id;

Merci d'avance

[random]

access n'a pas de fonctionnalité aussi puissante

on peut astucieusement se servir de ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Function jpar(id As Long, cible As Long) As Long
Dim mabase As DAO.Database
Dim monrec As DAO.Recordset
Dim degre As Variant
Dim compar As Variant
Dim sql As String
Set mabase = CurrentDb
compar = id
Do
sql = "select idparent from matable where id = " & compar & ";"
Set monrec = mabase.OpenRecordset(sql)
monrec.MoveFirst
degre = degre + 1
If compar = cible Then
jpar = degre
Exit Function
End If
compar = monrec("idparent")
Loop Until IsNull(compar)
jpar = 0
End Function