¿Como puedo agregar un campo a una Base de Datos ADO desde VB6?
Cerrado
carlospv11
Mensajes enviados
2
Fecha de inscripción
miércoles, 3 de octubre de 2012
Estatus
Miembro
Última intervención
jueves, 4 de octubre de 2012
-
3 oct 2012 a las 20:03
carlospv11 Mensajes enviados 2 Fecha de inscripción miércoles, 3 de octubre de 2012 Estatus Miembro Última intervención jueves, 4 de octubre de 2012 - 4 oct 2012 a las 21:00
carlospv11 Mensajes enviados 2 Fecha de inscripción miércoles, 3 de octubre de 2012 Estatus Miembro Última intervención jueves, 4 de octubre de 2012 - 4 oct 2012 a las 21:00
Consulta también:
- ¿Como puedo agregar un campo a una Base de Datos ADO desde VB6?
- Enlazar datos de una hoja de excel a otra automáticamente - Guide
- Como agregar a una persona en facebook si no tiene la opción - Guide
- Descargar base de datos kiwix - Programas - Otros
- Eliminar base de datos mysql - Guide
- Porque no puedo agregar a alguien en facebook después de desbloquearlo - Foro Facebook
1 respuesta
carlospv11
Mensajes enviados
2
Fecha de inscripción
miércoles, 3 de octubre de 2012
Estatus
Miembro
Última intervención
jueves, 4 de octubre de 2012
4 oct 2012 a las 21:00
4 oct 2012 a las 21:00
Bueno, yo solo me contesto, pero a alguien le puede ayudar el siguiente código:
Function Nuevo_campo()
'Donde NomBase es el nombre de la Base de datos ADO
'Y NombreTabla es el nombre de la tabla que se va a afectar.
On Error GoTo Err_Sub
' Const cadena As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + NomBase + ";Persist Security Info=False"
' Nuevo objeto catalog
Dim Obj_catalog As ADOX.Catalog
Set Obj_catalog = New ADOX.Catalog
' Abre la base de datos
Obj_catalog.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + NomBase + ";Persist Security Info=False"
' Nuevo objeto Table para hacer referencia a nuestra tabla
Dim Obj_Tabla As ADOX.Table
Set Obj_Tabla = New ADOX.Table
' crea la referencia a la tabla
Set Obj_Tabla = Obj_catalog.Tables(NombreTabla)
'renombra el campo por el nuevo nombre
Obj_Tabla.Columns.Append "Nombre", adVarWChar, 100
' La función retorna True si no hubo error
' Renombrar_campo = True
Eliminar_Objetos:
' Elimina las referencias a Adox establecidas
Set Obj_catalog = Nothing
Set Obj_Tabla = Nothing
Exit Function
Err_Sub:
' Elimina las referencias a Adox
MsgBox Err.Description, vbCritical
GoTo Eliminar_Objetos
End Function
Function Nuevo_campo()
'Donde NomBase es el nombre de la Base de datos ADO
'Y NombreTabla es el nombre de la tabla que se va a afectar.
On Error GoTo Err_Sub
' Const cadena As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + NomBase + ";Persist Security Info=False"
' Nuevo objeto catalog
Dim Obj_catalog As ADOX.Catalog
Set Obj_catalog = New ADOX.Catalog
' Abre la base de datos
Obj_catalog.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + NomBase + ";Persist Security Info=False"
' Nuevo objeto Table para hacer referencia a nuestra tabla
Dim Obj_Tabla As ADOX.Table
Set Obj_Tabla = New ADOX.Table
' crea la referencia a la tabla
Set Obj_Tabla = Obj_catalog.Tables(NombreTabla)
'renombra el campo por el nuevo nombre
Obj_Tabla.Columns.Append "Nombre", adVarWChar, 100
' La función retorna True si no hubo error
' Renombrar_campo = True
Eliminar_Objetos:
' Elimina las referencias a Adox establecidas
Set Obj_catalog = Nothing
Set Obj_Tabla = Nothing
Exit Function
Err_Sub:
' Elimina las referencias a Adox
MsgBox Err.Description, vbCritical
GoTo Eliminar_Objetos
End Function
