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

280 - Renombrar tabla en Ado

Función que permite renombrar una tabla utilizando la referencia a Adox

Para el ejemplo se debe indicar desde el menú referencias de visual basic: Microsoft Ado for dll and security, ..para poder utilizar los objetos Adox

La función recibe como parámetros: el path o ruta de la base de datos, la tabla a la cual se quiere cambiar el nombre, y por último el nuevo nombre.

Si la función puede renombrar la tabla correctamente, retorna True

Colocar un CommandButton.

Código fuente en un form:

Option Explicit '*************************************************************************** '* Ejemplo para renombrar una tabla usando ADOX '* Controles : Un CommandButton '* Referencias: ADOX ( Microsoft ADO for Dll And Security ) '*************************************************************************** Function Renombrar_Tabla_Adox(ByVal Ruta_Base As String, _ Nombre_Tabla As String, _ Nuevo_Nombre As String) As Boolean On Error GoTo Err_Sub ' Variables de objeto Dim obj_Catalog As ADOX.Catalog Dim obj_Tabla As ADOX.Table Const S_Connectionstring As String _ = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " 'Nuevo objeto Catalog Set obj_Catalog = New ADOX.Catalog 'Establece la conexión y abre la base de datos obj_Catalog.ActiveConnection = S_Connectionstring & Ruta_Base 'Crea un objeto de tipo Table para poder hacer _ referencia a la tabla que se va a renombrar Set obj_Tabla = New ADOX.Table Set obj_Tabla = obj_Catalog.Tables(Nombre_Tabla) ' Le asigna el nuevo nombre obj_Tabla.Name = Nuevo_Nombre ' Si pudo renombrar la tabla .. retorna True Renombrar_Tabla_Adox = True 'Elimina los objetos instanciados Set obj_Catalog = Nothing Set obj_Tabla = Nothing Exit Function Err_Sub: MsgBox Err.Description, vbCritical On Error Resume Next Set obj_Catalog = Nothing Set obj_Tabla = Nothing End Function Private Sub Command1_Click() Dim ret As Boolean 'Indicar el path de la base de datos, y los nombres de las tablas ret = Renombrar_Tabla_Adox(App.Path & "\bd1.mdb", "Tabla1", "NuevoNombre") If ret Then MsgBox " Se pudo cambiar el nombre a la tabla", vbInformation End If End Sub Private Sub Form_Load() Me.Caption = " Renombrar Tabla " End Sub

Recursos Visual basic 6.0 - Enlaces relacionados

Buscar en Recursos vb