¿Cómo modificar el nombre del campo en ACCESS en VB 6.0? Necesito el codigo completo, gracias!

Dado que el motor ACCESS JET no admite la modificación de nombres de tablas y columnas, los nombres de campos no se pueden modificar ejecutando consultas de definición de datos SQL.

El siguiente es el código completo para usar la biblioteca de clases de extensión de objetos de acceso a datos ADO ADOX para modificar el nombre de la columna. Tenga en cuenta que la tabla de datos abierta debe cerrarse antes de modificar el nombre de la tabla; de lo contrario, la modificación fallará.

Primero debe hacer referencia a ADOX y ADO

Método de cotización:

Abra la ventana de VBE

Cita ADOX——Menú "Proyecto "-> "Referencia"-->Verifique Microsoft ADO Ext.2.7 para DDL ado Security o superior, haga clic en el botón Aceptar

Referencia ADO——Menú "Proyecto"-> "Referencia"-->Verificar Biblioteca Microsoft ActiveX Data Objects 2.1 o superior, haga clic en el botón Aceptar

Private Sub Command1_Click()

En caso de error, vaya a ErrHandler

Dim Cat como nuevo catálogo ADOX.

Dim Cnn As New ADODB.Connection

'Conéctese a la base de datos Sample.mdb ACCESS en el directorio actual

Cnn.Open "Provider='Microsoft. Jet. OLEDB.4.0';" & _

"Data Source= '" & App.Path & "\Sample.mdb';"

Establecer Cat.ActiveConnection = Cnn< /p >

Cat.tables("CCC").Columns("AAA") = "BBB" 'Modificar el nombre de la tabla

MsgBox "El nombre de la columna de la tabla ha sido modificado"

' Liberar objeto ADO

Cnn.Close

Establecer Cat = Nada

Establecer Cnn = Nada

Salir de Sub

ErrHandler: 'Manejo de errores

Establecer Cat = Nada

Si no es Cnn, entonces

Si Cnn.State = adStateOpen, entonces Cnn .Cerrar

Finalizar si

Establecer Cnn = Nada

Si Err <> 0 Entonces

MsgBox Err.Source & "-- >" & Err. Descripción, "Error"

Finalizar si

End Sub