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

156 - Crear base de datos

Ejemplo para crear una base de datos Access con Password utilizando DAO

La siguiente función de ejemplo es muy simple, y utiliza el método CreateDatabase para crear la base de datos

A la función Crear_DB hay que pasarle el path con el nombre de la base de datos y en el segundo parámetro el Password

Nota: Incluir la referencia de Microsoft DAO

Código fuente en un módulo bas

'Variable para utilizar DAO Private base As Database 'Recibe como parámetro el path y nombre de la bd y el Password Sub Crear_BD(Nombre_base As String, password As String) On Error GoTo errSub 'Crea la base de datos con el password con el método CreateDataBase Set base = DBEngine.CreateDatabase(Nombre_base, dbLangGeneral & ";pwd=" & password) 'Cierra la base de datos base.Close Set base = Nothing MsgBox " Base de datos creada", vbInformation Exit Sub 'Error errSub: MsgBox "Número de Error" & Err.Number _ & vbNewLine & Err.Description, vbCritical, "Error" End Sub

En un formulario:

Dim Path As String Path = App.Path & "\" Call Crear_BD(Path & "prueba.mdb", "pepe")

Nota: el ejemplo no verifica si la base de datos ya existe, por lo tanto, si se intenta crear y esta ya existe dará un error.

Recursos visual basic 6.0

Recursos vb.net

Crear base de datos sql server desde vb.net

Buscar en Recursos vb