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

179 - Adox - Crear base de datos Access

Contenido

Crear base de datos con ADOX
Generador de código para Access ( Código fuente)
Relacionados

Crear base de datos

Ejemplo que utiliza Adox para crear una base de datos Access, con una tabla , tres campos y un registro.

Para poder crear la base de datos hay que especificar desde el menú referencias la librería Microsoft Ado Ext. 2.x for DDL and Security, para poder utilizar los objetos de Adox. También añadir la referencia a Microsoft Activex Data Objects para poder utilizar ADO ( agregar un registro )

El método que crea la base de datos es Create del objeto Catalog de ADOX.

Colocar

Un CommonDialog para poder seleccionar el directorio donde guardar la base de datos Access
un Command1 que ejecuta la rutina Crear_Base_Dato, a la cual se le pasa como parámetro, la ruta y el nombre de archivo elegida en el Commondialog y el nombre de una tabla mediante un InputBox

Nota: al crear la tabla, la rutina NO permite verificar si la tabla existe o no existe

Colocar el código fuente en un formulario

Option Explicit ' -- Sub para crear la bd mediante Adox ' -- Nota: Especificar la referencia a Microsoft Ado Ext. 2.x for DDL and Security ' --------------------------------------------------------------------------------- Sub Crear_Base_Dato(path As String, Tabla As String) On Error GoTo error_handler ' -- Variables Dim Adox_Cat As ADOX.Catalog Dim Adox_Tabla As ADOX.Table Dim cn As ADODB.Connection ' -- La rutina no comprueba si la base de datos ya existe _ ' -- por lo tanto verificar previamente para que no de error ' -- Nuevo objeto de tipo catalog Set Adox_Cat = New ADOX.Catalog ' -- Crear la base de datos en el path especificado Call Adox_Cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & path & ";") ' -- Nuevo objeto de tipo Table de ADOX para manejar la tabla Set Adox_Tabla = New ADOX.Table With Adox_Tabla .Name = Tabla 'Agrega 3 campos, dos de tipo String y uno de tipo entero .Columns.Append "Nombre", adVarWChar, 40 .Columns.Append "Apellido", adVarWChar, 40 .Columns.Append "Edad", adInteger End With ' -- Crea la tabla Adox_Cat.Tables.Append Adox_Tabla ' -- Asignar la conexión activa Set cn = Adox_Cat.ActiveConnection ' -- Insertar un registro de ejemplo en la tabla cn.Execute "INSERT INTO " & Trim$(Tabla) & " VALUES ('Carlos', 'Peres', 25)" ' -- Cerrar la conexión y eliminar las variables de objeto cn.Close Set cn = Nothing Set Adox_Tabla = Nothing Set Adox_Cat = Nothing MsgBox " Base de datos creada con una tabla, 3 campos y un registro ", vbInformation Exit Sub ' -- Error ' ---------------------------------------------- error_handler: MsgBox Err.Description, vbCritical End Sub Private Sub Command1_Click() ' -- Nombre Dim Tabla As String ' -- Propiedades del cuadro de diálogo With CommonDialog1 .FileName = "" .Filter = "Archivos MDB|*.Mdb" ' Filtros .DialogTitle = " Seleccionar nombre y path para la base de datos a crear " ' -- Abrir .ShowSave If .FileName <> "" Then ' -- Obtener nombre de la tabla Tabla = InputBox(" Escriba el nombre de la tabla a crear", " Crear Tabla con ADox") ' -- Pasar el path de la base de datos y el nombre de la tabla Call Crear_Base_Dato(.FileName, Tabla) End If End With End Sub

Nota. en este link , hay un módulo de clase con muchos métodos y funciones útiles para trabajar con ado : módulo para Ado

Generador de código para Access 2000

Proyecto creado por Carlos Vara , que permite seleccionar una base de datos, y el programa genera el código fuente para luego poder crear la base de datos mediante los objetos de ADOX.

El código generado crea las tablas y campos con su estructura.

En el formulario principal se debe seleccionar la bd y se creará el código fuente

Luego se debe copiar el código resultante y ejecutarlo desde un nuevo proyecto.

Este proyecto debe tener marcada la referencia para poder usar ADOX . La referencia es "Microsoft Ado Ext 2.x for DDL and security "

Descargar

Recursos vb 6.0 - Enlaces relacionados

Recursos visual basic.net

Crear base de datos sql server mediante OleDb

Buscar en Recursos vb