Borrado en cascada dentro de una misma tabla

[u_goldman]

El modelo que propones es mas o menos asi...

Código:

blnSeguir = true
strID = "0"
do while blnsegur
	strSQL = "SELECT loquesea FROM tabla WHERE padre = "&strID
	Set rs = ObjConn.Execute(strSQL)
	strID = ""
	if not rs.eof then
		do while not rs.EOF
			strID = strID & rs(0) & ","
		loop
		'una correcion aqui
		if len(strID) > 0 then
			strID = left(strID, len(strID) - 1)
		end if
	else
		'fin
	end if
loop

y vuelvo y digo, no funciona,

1. Donde reasignas el valor a blnseguir?
2. De esta manera iterara solo para el primer nivel.
3. Este es un recordset dinamico

Código:

	strSQL = "SELECT loquesea FROM tabla WHERE padre = "&strID
	Set rs = ObjConn.Execute(strSQL)

4. No veo recursividad por ningun lado.

Salu2,