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

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

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

DbCon Dim Como Nueva OleDb.OleDbConnection

dataSet As New DataSet

dataAdap As OleDb.OleDbDataAdapter

sqlCommand As String Dim

La variable " dbCon " establece una conexión con la base de datos , " dataSet " mantiene los datos de ella , " dataAdap " ejecuta los comandos 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 el porción " path_to_database " con la ubicación física de la base de datos en su ordenador. Esta línea conecta el 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 = New OleDb.OleDbDataAdapter ( sqlCommand , dbCon )

dataAdap.Fill ( dataSet , " Base de datos " )

adaptador Sus datos ahora tiene todo el registros en la tabla . Usted puede utilizar un nombre distinto de " base de datos" para identificar mejor su mesa. Por ejemplo , si la tabla contiene información de contacto , puede nombrar a este " Contactos"
5

Crea las siguientes variables: .

ComBuild Dim As New OleDb.OleDbCommandBuilder ( dataAdap )

dataNewRow As DataRow

La primera línea valida un comando de inserción en la tabla cuando se utiliza un DataRow. La segunda línea crea el objeto DataRow
6

escriba las líneas siguientes para agregar una nueva fila a la tabla en su base de datos y guardar las variables de los campos del registro : .

DataNewRow = dataSet.Tables ( "Base de datos ") . NewRow ()

dataNewRow.Item ( 1 ) = variable1

dataNewRow.Item ( 2 ) = variable2

dataNewRow.Item ( " field_name ") = variable 3
dataSet.Tables

( "Base de datos ") . Rows.Add ( dataNewRow )

dataAdap.Update ( dataSet , "Base de datos " )

La primera línea se prepara un nuevo disco con los 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 del registro . La tercera utiliza el nombre del campo para identificar en qué campo para almacenar esa variable . Las líneas quinta y sexta añadir el registro con sus variables a su mesa y se comprometan los de datos