Eliminar registro completo, incluyendo imagenes

[Cameron_2006]

Buenos días... otra vez

Siguiendo con mi pequeña aplicación de alquiler y venta de inmuebles, ahora un código que funcionaba perfectamente ya no me funciona, anteriormente no había relacionado las tablas, ahora si, y el error que me da es que:

Microsoft JET Database Engine error '80004005'

El registro no se puede eliminar o cambiar porque la tabla 'fotos_inmuebles' incluye registros relacionados.

/administrador/inmuebles_locales/borrar_inmueble.asp, línea 24

La línea 24 es esta:
conn.execute SQL

y el código completo para borrar estos registros es este:
<%
Dim conn
Dim SQL
Dim id_inmueble

dim fs,rs1,archivo
Set fs = Server.CreateObject("Scripting.FileSystemObject")
for each id_inmueble IN Request.Form("Borrar")

SQL="delete from inmuebles where id_inmueble="& id_inmueble
conn.execute SQL

sql="select filename from fotos_inmuebles where id_inmueble="& id_inmueble
set rs1=conn.execute(sql)
do while not rs1.eof
archivo="../../fotos_inmuebles/"& rs1.fields("filename")
archivo="C:\Inetpub\vhosts\dominio.com\httpdocs\fo tos_inmuebles"&(archivo)

if fs.FileExists(archivo) then fs.DeleteFile(archivo)
rs1.movenext
loop
sql="delete from fotos_inmuebles where id_inmueble="& id_inmueble
conn.execute SQL

NEXT

Set fs = Nothing

conn.close
set conn=Nothing
Response.redirect "index.asp"

%>


GRACIAS, GRACIAS Y MIL GRACIAS POR LA AYUDA!

[codelikesdesign]

Puedes crear en la base de datos una relación para que los registros relacionados se borren en cascada. También puedes hacerlo con ASP, con una llamada a la base de datos de los registros relacionados que los vaya borrando antes de eliminar el registro del inmueble principal.

Saludos,
Diego

[Cameron_2006]

Hola Gracias por responder, ok, la primera opción borra los registros del inmueble pero no las imagenes, y la 2da. opción la verdad que no se como hacerlo... sigo investigando gracias

[Cameron_2006]

aclaro, no elimina los arhivos de la carpeta

[codelikesdesign]

jaja ok, pensaba que no eliminaba los registros. Entonces deberás crear otro recordset para la tabla adicional. Creando un bucle dentro que vaya borrando una a una las imágenes y su registro correspondiente.

select tablaregistros_relacionados where id_Relacionada=id_inmueble
for loop=1 to rs1.recordcount

borrar imagen
borrar registro

next

Lo de arriba es solo un esquema, pero no te costará implementarlo :)

[Cameron_2006]

así: (lo verde es lo nuevo)

<%
Dim conn
Dim SQL
Dim id_inmueble

dim fs,rs1,archivo
Set fs = Server.CreateObject("Scripting.FileSystemObject")
for each id_inmueble IN Request.Form("Borrar")

SQL="delete from inmuebles where id_inmueble="& id_inmueble
conn.execute SQL

sql="select filename from fotos_inmuebles where id_inmueble="& id_inmueble
set rs1=conn.execute(sql)
do while not rs1.eof
archivo="../../fotos_inmuebles/"& rs1.fields("filename")
archivo="C:\Inetpub\vhosts\dominio.com\httpdocs\fo tos_inmuebles"&(archivo)

if fs.FileExists(archivo) then fs.DeleteFile(archivo)
rs1.movenext
loop
sql="delete from fotos_inmuebles where id_inmueble="& id_inmueble
for loop=1 to rs1.recordcount
conn.execute SQL

NEXT

Set fs = Nothing

conn.close
set conn=Nothing
Response.redirect "index.asp"

%>

[Cameron_2006]

'ok, aqui selecciono el registro de imagen que correspondede al registro del inmueble:

sql="select filename from fotos_inmuebles where id_inmueble="& id_inmueble
set rs1=conn.execute(sql)

do while not rs1.eof
'busco los archivos que corresponden y existen a ese registro en la carpeta y los eliminio:
archivo="../../fotos_inmuebles/"& rs1.fields("filename")
archivo="C:\Inetpub\vhosts\dominio.es\httpdocs\fot os_inmuebles"&(archivo)
if fs.FileExists(archivo) then fs.DeleteFile(archivo)
rs1.movenext
loop
luego eliminio los registros de esos archivos correspondiente al registro en la base de datos:
sql="delete from fotos_inmuebles where id_inmueble="& id_inmueble
conn.execute SQL

NEXT

Y no funciona

[JuanRAPerez]

El registro no se puede eliminar o cambiar porque la tabla 'fotos_inmuebles' incluye registros relacionados.



umm hay mas tablas relacionadas?
la relacion que tienes esta bien????

tienes que eliminar desde las relaciones de abajo hacia arriba

sera que hay mas relaciones????

[Cameron_2006]

bueno unas vez más, gracias a todos, ahora me toca enviar la respuesta para el que tenga el mismo problema en el futuro:

Primero respondo a JuanRAPerez, solo en esta caso existe esa relación, e hice lo que indicaste:

Y la solución fue que primero tuve que borrar los archivos fisicos de la carpeta, es decir los jpg, luego borrar los registro de la tabla de imágenes, y por último el registro padre, que es el registro al que pertenecen las imagenes. El código quedó como sigue:


<%
Dim conn
Dim SQL
Dim id_inmueble

dim fs,rs1,archivo
Set fs = Server.CreateObject("Scripting.FileSystemObject")
for each id_inmueble IN Request.Form("Borrar")

'En este caso como están relacionadas, primero se borran los archivos de la tabla hija
'y luego las de la tabla padre
'Como existen archivos fisicos, primero se eliminan los archivos de la carpeta
'y luego se elimina el registro de la tabla
sql="select filename from fotos_inmuebles where id_inmueble="& id_inmueble
set rs1=conn.execute(sql)
do while not rs1.eof
archivo="../../fotos_inmuebles/"& rs1.fields("filename")
archivo="C:\Inetpub\vhosts\dominio.com\httpdocs\fo tos_inmuebles"&(archivo)
if fs.FileExists(archivo) then fs.DeleteFile(archivo)
rs1.movenext
loop

'ahora se se elimina el registro de la imagen de la tabla hija
sql="delete from fotos_inmuebles where id_inmueble="& id_inmueble
conn.execute SQL
'ahora se se elimina el registro del inmueble de la tabla padre
SQL="delete from inmuebles where id_inmueble="& id_inmueble
conn.execute SQL

NEXT

Set fs = Nothing

conn.close
set conn=Nothing
Response.redirect "index.asp"
%>

[JuanRAPerez]

oki, me alegra lo solucionaras

:)