¿Cómo crear una base de datos de acceso usando vb?

Utilice VB para crear la estructura de la base de datos de Access

Private Sub Command1_Click()

En caso de error, GoTo Err100

'Definir tablas y campos

Atenuar DefDatabase como base de datos

Atenuar DefTable como TableDef, DefField como campo

Establecer DefDatabase = Workspaces(0).OpenDatabase(App.Path amp; " \vbeden.mdb", 0, False)

Set DefTable = DefDatabase.CreateTableDef("Programación VB")

'dbBinary = 9

'dbBoolean = 1

p>

'dbByte = 2'dbChar=18'dbDate=8'dbInteger=3'dbLong=4'dbMemo=12'dbText=10'Crea un campo Nombre de 8 caracteres

Set DefField = DefTable.CreateField("Nombre", dbText, 8)

DefTable.Fields.Append DefField

Set DefField = DefTable.CreateField("Sexo ", dbText, 2)

DefTable.Fields.Append DefField

'Este campo puede estar vacío

DefField.AllowZeroLength = True

'Crear un campo Edad de 3 Un tipo entero constante

Set DefField = DefTable.CreateField("Edad", dbInteger, 3) 'Campo agregado DefTable.Fields.Append DefField' agregado a la tabla DefDatabase. TableDefs.Append DefTable

MsgBox "¡Creación de la base de datos completada!", vbInformationExit SubErr100: MsgBox "Lo sentimos, la tabla no se puede crear. ¿Cree la base de datos VBEden antes de crear la tabla?", vbCriticalEnd SubPrivate Sub cmdCreate_Click()

En caso de error, GoTo Err100

'Crear una base de datos llamada VBEDEN

Crear base de datos "VB-CODE", dbLangGeneral

MsgBox "Creación de base de datos ¡terminado! ", vbInformationExit SubErr100: MsgBox "No se puede crear la base de datos " amp; vbCrLf amp; vbCrLf amp; Err.Description, vbInformationEnd Sub Después de establecer la base de datos, generalmente es una mejor manera de utilizar la tecnología ADO para implementar operaciones de datos. Consulte los componentes ADO de Microsoft Uno de los dos objetos es un objeto de conexión que se utiliza para conectarse a la base de datos y el otro es un objeto de conjunto de registros que puede operar la base de datos. Compre el libro y léalo detenidamente.

Utilice VB para crear una base de datos

Abra VB y seleccione el primer elemento de "Programas complementarios"

Se abrirá un nuevo formulario

Después de crear la base de datos Puede crear una tabla y agregar campos a la tabla.