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