Tecnología

Inicio

Cómo guardar las variables en bases de datos utilizando Microsoft Visual Basic Oledb

En Visual Basic, la vinculación e incrustación de objetos, la base de datos (OLE DB) de la interfaz de programación de aplicaciones le permite conectar su programa a una base de datos. Con él, usted puede guardar información de su proyecto para una tabla en la base de datos y volver a utilizarlo en otras aplicaciones. Puede crear sus variables en cualquier parte de su proyecto, como por ejemplo de los cuadros de texto, casillas de verificación o lista de selecciones, sólo asegúrese de que su tipo de datos variables coincide con el tipo de datos del campo en la tabla de la base de datos.

Instrucciones

1 Abra Visual Basic y comenzar un nuevo proyecto. Abra la ventana de código y crear una función escribiendo "Private Sub addRecord ()".

2 Escriba las siguientes líneas para crear variables que se van a conectar a la base de datos:

Dim dbCon Como Nueva OleDb.OleDbConnection
Dim conjunto de datos como nuevo conjunto de datos
Dim dataAdap Como OleDb.OleDbDataAdapter
Dim como secuencia SQLCommand

El "dbCon" variables establece una conexión con la base de datos, "dataSet" posee los datos de ella, "dataAdap" ejecuta órdenes e interactúa con la base de datos, y "SQLCommand" mantiene sus consultas.

3 Conectarse a la base de datos con las siguientes líneas:

dbCon.ConnectionString = "Provider = Microsoft.Jet.OleDb.4.0; Data Source = path_to_database"
dbCon.Open ()

Reemplazar la parte "path_to_database" con la ubicación física de la base de datos en su ordenador. Esta línea conecta su programa de Visual Basic a su base de datos y la segunda línea se abre la base de datos.

4 Escriba las líneas siguientes para cargar los datos de su base de datos:

SQLCommand = "SELECT * FROM tblContacts"
dataAdap = Nueva OleDb.OleDbDataAdapter (SQLCommand, dbCon)
dataAdap.Fill (conjunto de datos, "Base de datos")

El adaptador de datos ahora contiene todos los registros dentro de su mesa. Se puede utilizar un nombre distinto de "base de datos" para identificar mejor a su mesa. Por ejemplo, si su tabla contiene información de contacto, puede nombrar a esta "Contactos".

5 Crea las siguientes variables:

Dim comBuild Como Nueva OleDb.OleDbCommandBuilder (dataAdap)
Dim dataNewRow Como DataRow

La primera línea valida un comando de inserción en su mesa cuando se utiliza una fila de datos. La segunda línea crea el objeto DataRow.

6 Escriba las líneas siguientes para añadir una nueva fila a la tabla en su base de datos y guardar sus variables para campos en el registro:

dataNewRow = dataSet.Tables ( "Base de datos"). NewRow ()
dataNewRow.Item (1) = variable1
dataNewRow.Item (2) = variable2
dataNewRow.Item ( "nombre_campo") = variable3
dataSet.Tables ( "Base de datos"). Rows.Add (dataNewRow)
dataAdap.Update (conjunto de datos, "Base de datos")

La primera línea se prepara un nuevo registro con campos vacíos. Las siguientes tres líneas añadir información. Los dos primeros se utilizan los números de índice de campos de la tabla e insertar estas variables en el primer y segundo campos en el registro. El tercero utiliza el nombre del campo para identificar en qué campo para almacenar esa variable. La quinta y sexta líneas añadir el registro con sus variables a su mesa y se comprometen los datos.

7 Escriba la línea siguiente para cerrar la conexión a la base de datos:

dbCon.Close ()

Llame a su función "addRecord ()" en otras partes de su código, tal como en un evento de clic de botón.