Sección de códigos , trucos y ejemplos para visual basic

258 - Renombrar una tabla con DAO

Ejemplo que utiliza el objeto DAO.TableDef y la propiedad Name para renombrar una tabla

Como dice en el título, este ejemplo permite renombrar tablas accediendo mediante Microsoft Dao. Para renombrar usando Ado podés ver este enlace: Renombrar tablas con adox

En el mismo hay una función llamada Renombrar_Tabla que tiene tres parámetros. El primero es el nombre y ruta de la base de datos. El segundo es la tabla que se va a renombrar, y el tercero es el nuevo nombre.

Nota: el ejemplo NO comprueba si la tabla a renombrar existe, por lo tanto si la misma no se encuentra generará error.

Colocar

un Command1
y la referencia a Microsoft DAO

Código fuente en el formulario :

'*************************************************************************** '* Description : Ejemplo para renombrar una tabla usando DAO '* Referencias : Microsoft DAO XX Object Library '*************************************************************************** Public Function Renombrar_Tabla(BD As String, _ ByVal La_Tabla As String, _ ByVal Neva_Tabla As String) As Boolean On Error GoTo errSub Dim obj_Base As DAO.Database Dim obj_Tabla As DAO.TableDef Set obj_Base = Workspaces(0).OpenDatabase(BD) 'Referencia a la Tabla a renombrar Set obj_Tabla = obj_Base.TableDefs(La_Tabla) 'Asigna el nuevo nombre obj_Tabla.Name = Neva_Tabla 'Refresca obj_Base.TableDefs.Refresh 'Cierra la base de datos obj_Base.Close Renombrar_Tabla = True Exit Function errSub: MsgBox Err.Description, vbCritical 'Cierra la base de datos y elimina los objetos If Not obj_Base Is Nothing Then On Error Resume Next obj_Base.Close On Error GoTo 0 Set obj_Tabla = Nothing End If End Function Private Sub Command1_Click() ' Si devuelve True mostramos el mensaje que se ha renombrado OK If Renombrar_Tabla("c:\bd1.mdb", "La Tabla", "El Nuevo nombre") Then MsgBox " La tabla se ha renombrado correctamente ", vbInformation End If End Sub

Buscar en Recursos vb