Necesitamos incluir lo siguiente al comienzo del formulario:
Imports System.Data.OleDb
Veamos el código necesario para incluir un registro en una tabla con las siguientes características:
PERSONAS(idpersona,nombre,apellido)
– Supongamos que idpersona es un campo autonumérico y que es la clave.
– Los campos nombre y apellido supongamos que son cadenas de caracteres.
La base de datos se llamara base.mdb y será un archivo en access que estará ubicada en la ruta «C:«
El código sería el siguiente:
Dim cn As OleDbConnection
cn = New OleDbConnection(«PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=C:base.mdb»)
cn.Open()
Dim cm As OleDbCommand
cm = New OleDbCommand(«INSERT INTO personas(nombre,apellido) VALUES (@nombre,@apellido))
cm.Parameters.Add(«@nombre», OleDbType.VarChar)
cm.Parameters(«@nombre»).Value = «Nombre»
cm.Parameters.Add(«@apellido», OleDbType.VarChar)
cm.Parameters(«@apellido»).Value = «Apellido»
cm.Connection = cn
cm.ExecuteNonQuery()
cn.Close()
cn = New OleDbConnection(«PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=C:base.mdb»)
cn.Open()
Dim cm As OleDbCommand
cm = New OleDbCommand(«INSERT INTO personas(nombre,apellido) VALUES (@nombre,@apellido))
cm.Parameters.Add(«@nombre», OleDbType.VarChar)
cm.Parameters(«@nombre»).Value = «Nombre»
cm.Parameters.Add(«@apellido», OleDbType.VarChar)
cm.Parameters(«@apellido»).Value = «Apellido»
cm.Connection = cn
cm.ExecuteNonQuery()
cn.Close()
Nota: Es importante destacar que el orden de declarar los parámetros, debe ser el mismo orden de aparición en la consulta SQL.
