Cómo crear una base de datos Access 2007 en VB

La creación de una base de datos en Visual Basic puede ser útil si se necesita una base de datos con una cantidad precisa de registros y campos para la prueba. El primer método para hacer esto utiliza Visual Basic 4.0 y crea una base de datos de Microsoft Office Access con un ejemplo de código que puede adaptarse a alterar el contenido de los registros. La segunda técnica utiliza tanto ADOX y Visual Basic para crear una base de datos utilizando un código de ejemplo.

Instrucciones

Crear una base de datos con Visual Basic 4.0

1 Abra su "Visual Basic 4.0" aplicación.

2 Haga clic en el menú "Archivo" y luego "Nuevo proyecto".

3 Inserte un "control DBGrid", "Control de Datos" y un "botón de comando" en el formulario 1.

4 Cambiar el control "propiedad de la fuente de datos" DBGrid al control de datos.

5 Copia este código de ejemplo a la ventana de código de Form1:

Option Explicit

Dim rs1 As Recordset

RS2 dévil como de registros

Dim db Como Base de Datos

td dévil como TableDef

Dim fl Como Campo

Private Sub Command1_Click ()

Dim iFields como número entero, iRecords As Integer

"Crear la base de datos.

Set db = CreateDatabase ( "C: \ test.mdb", dbLangGeneral)

Set TD = db.CreateTableDef ( "Tabla 1")

"Ahora que se ha creado la base de datos, agregar campos a la base de datos

Para iFields = 1 a 5 'El último número se puede cambiar.

Establecer fl = td.CreateField ( "campo" & CStr (iFields), dbInteger)

td.Fields.Append fl

Siguiente iFields

td db.TableDefs.Append

"Ahora que la base de datos tiene campos, agregar registros a través de una

"Conjunto de registros.

Establecer RS1 = db.OpenRecordset ( "Tabla 1", dbOpenTable)

Para iRecords = 1 hasta 10 'para cada fila

rs1.AddNew 'añadir un nuevo registro.

Para iFields = 1 a 5 'para cada campo en el registro

RS1 ( "campo" & CStr (iFields)) = iFields 'añadir un número.

Siguiente iFields

rs1.Update

Siguiente iRecords

'Cierre tanto el conjunto de registros y bases de datos.

rs1.Close

db.Close

'Rellenar el control DBGrid con el contenido del conjunto de registros.

Set db = OpenDatabase ( "C: \ test.mdb")

Establecer RS1 = db.OpenRecordset ( "SELECT * FROM Tabla1")

Establecer Data1.Recordset = RS1

Command1.Visible = false

End Sub

Private Sub Form_Load ()

Si Dir ( "C: \ test.mdb") = "" Entonces

Command1.Caption = "Crear base de datos"

Command1.Visible = True

Terminara si

End Sub

6 Pulse la tecla "F5" en su teclado para ejecutar el programa. Seleccione el botón "Comando" y rellenar el control DBGrid. El test.mdb archivo se crea ahora.

Crear una base de datos mediante ADOX y Visual Basic .NET

7 La puesta en marcha "de Visual Basic .NET."

8 Haga clic en "Explorador de soluciones", haga clic en "Referencias" y luego elegir la opción "Agregar referencia".

9 Haga clic en la pestaña "COM", luego "Microsoft ADO Ext. 2.7 para DDL y seguridad", seguido de "Seleccionar". Haga clic en Aceptar."

10 Eliminar el código de la ventana de código de Module1.vb. A continuación, copie el siguiente código en la misma ventana:

Las importaciones ADOX

Module Module1

Sub Main()

Como gato Dim Catálogo = Nuevo Catálogo ()

cat.Create ( "Provider = Microsoft.Jet.OleDb.4.0;" & _

"Data Source = D: \ AccessDB \ NewMDB.mdb;" & _

"De Jet Tipo de motor = 5")

Console.WriteLine ( "base de datos creada con éxito")

cat = Nada

End Sub

Módulo fin

11 Cambiar un camino para el nuevo archivo .mdb, asegurándose de usar un trazado existente.

12 Presione el botón "F5" en su teclado para ejecutar el proyecto. El archivo está en formato .mdb de Access 2000 (Jet 4.0).

Consejos y advertencias

• La técnica de la sección "Crear una base de datos mediante ADOX y Visual Basic .NET" puede causar problemas intermitentes en las aplicaciones multitarea y basadas en servicios. Sólo debe ser utilizado como un método a corto plazo y después del ensayo para asegurar que no existen problemas de compatibilidad.