Access - Urgente: tabla borrada

 
Vista:

Urgente: tabla borrada

Publicado por Oscar (5 intervenciones) el 27/10/2006 11:01:41
Hola a todos,

He borrado una tabla en mi base de datos y necsito recuperarla urgentemente, ¿Es posible? Espero por mi bien que sea que si.

Gracias por todo,

Oscar
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Urgente: tabla borrada

Publicado por mi menda (1111 intervenciones) el 30/10/2006 03:07:02
Lo tienes claro majete.
De todas formas, curioseando por el foro del Buho, he encontrado esto, por si te vuelve a pasar:

Sacado del foro del Bhuo

¿Alguna posibilidad de recuperar una tabla borrada?

JUAN M AFAN DE RIBERA
======================

En un hilo anterior se preguntaba cómo recuperar una tabla accidentalmente
borrada.

Bueno, tengo una pequeña sugerencia:

Por lo que conozco (poco, la verdad), cuando una tabla se borra MANUALMENTE
(quiero decir que no lo ha sido a través de código) lo que hace Access en
realidad es renombrarla y cambiar sus atributos a oculto y de sistema. Con
lo cual la tabla no ha sido borrada de momento.

La vida de esta tabla por lo que yo se, dura mientras:

1- no se cierre la bd
2- no se compacte la bd (claro, para que se compacte la bd, primero tiene
que cerrarse)
3- no se cree una nueva tabla (pues al parecer, la nueva tabla ocuparía el
lugar en algún sitio de la tabla borrada)

Sabiendo esto y mientras no haya ocurrido ninguna de las 3 condiciones
anteriormente descritas (ya digo que son las que yo he podido comprobar),
podríamos ejecutar una función como la siguiente para recuperar esa tabla
borrada accidentalmente (a la función hay que pasarle como argumento el
nombre de la tabla recuperada, y la función devolverá un valor True/False si
ha tenido éxito o no):

'********** Código **************
' Función para recuperar una tabla
' borrada manual y accidentalmente
' siempre que:
'
' 1-No se haya cerrado la BD
' 2-No se haya compactado la BD
' 3-No se haya creado una nueva
' tabla.
'
' desde el momento en el que se
' haya borrado la tabla.
'
' Autor: Juan M. Afán de Ribera
' Fecha: 22/04/2003
'
' ¿Por qué?: Pues porque sí
'
Function recuperarTabla( _
nomTabla As String) As Boolean

Dim tabla As Object
Dim cadSQL As String

For Each tabla In CurrentDb.TableDefs
If Left(tabla.Name, 4) = "~TMP" Then
cadSQL = "SELECT * INTO [" & nomTabla & _
"] FROM [" & tabla.Name & "];"
CurrentDb.Execute cadSQL
recuperarTabla = True
Exit For
End If
Next

End Function
'************ Fin código **************

Esto es lo que yo conozco sobre el tema. A ver si alguien aporta más cosas y
entre todos conocemos más sobre esto.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar