Make your own free website on Tripod.com
Ir al Indice Ir a Eliminar o Buscar un Registro

Agregar un registro:
Utilizamos el método addNew, el cual ubica el puntero de la tabla al final y agrega un nuevo registro en blanco. Luego volcamos los datos en los campos de la tabla y para finalizar colocamos el método "update" que es quién actualiza la tabla.
Veamos un ejemplo utilizando nuestra base de datos con la tabla empleados.

d.Recordset.addNew
d.Recordset!Legajo = 80
d.Recordset!Apellido= "Sosa"
d.Recordset!Cargo="Emp"
d.Recordset!Sueldo=1000
d.Recordset!Sexo="F"
d.Recordset.update

Veamos cómo hacer un uso práctico a partir de un proyecto con dos formularios:
En el formulario 1 se han colocado 5 etiquetas con la inscripción Legajo, Apellido, Cargo, Sueldo, y Sexo respectivamente y también 5 cajas de texto, tbleg, tbap, tbcargo,tbsueldo y tbsexo respectivamente, en ellas se podrá ver mediante controldata los registros que existen en la base de datos en la actualidad. Un botón btnagregar nos llevará al formulario 2, que tiene las mismas cajas de texto que el formulario 1 y también sus etiquetas.Un botón cmdagregar nos permite agregar los campos que hayamos completado en cada caja de texto a un nuevo registro. Finalmente otro botón cmdcancelar cierra el formulario.

A la izquierda tenermos el último registro de nuestra base de datos. Mediante el botón Cmdagregar pasamos a Form2 y podemos agregar los datos como se indica en el formulario de la derecha. Luego al oprimir el botón cancelar volveremos al formulario 1 donde mediante el botón correspondiente de ControlData veremos cómo quedó incorporado como último registro el que acabamos de agregar.
Veamos ahora el código:
Private Sub cmdaceptar_Click()
Form1.D.Recordset.AddNew 'Ubica el puntero al final de la tabla y agrega un registro
Form1.D.Recordset!Legajo = Val(Tbleg.Text)
'Agrega al campo Legajo del nuevo registro lo que escribimos en Tbleg.Text
Form1.D.Recordset!Apellido = Tbap.Text
'Agrega al campo Apellido del nuevo registro lo que escribimos en Tbap.Text
Form1.D.Recordset!Cargo = Tbcargo.Text
'Agrega al campo Cargo del nuevo registro lo que escribimos en Tbcargo.Text
Form1.D.Recordset!Sueldo = Val(Tbsueldo.Text)
'Agrega al campo Sueldo del nuevo registro lo que escribimos en Tbsueldo.Text
Form1.D.Recordset!Sexo = Tbsexo.Text
'Agrega al campo Sexo del nuevo registro lo que escribimos en Tbsexo.Text
Form1.D.Recordset.Update
'Permite actualizar la tabla
Unload Me
End Sub
Private Sub cmdagregar_Click()
Form2.Show 1
'Nos envía al formulario 2
End Sub
Private Sub cmdcancelar_Click()
Unload Me
End Sub

Para no tener que estar abriendo la base de datos, una forma de ver lo que hay cargado en ella es utilizar Microsoft Data Bound Grid Control (dbgrid). En la caja de herramientas normalmente este control no se encuentra, pero se puede recurrir a el de la siguiente manera:

  • Con el Botón derecho del mouse, ir a Componentes.
  • En la ventana que aparece tildar Microsoft Data Bound Grid Control y hacer click en Aceptar.
  • Hacer doble click en el nuevo ícono que aparece en la caja de herramientas para que este aparezca sobre el formulario.
  • Darle en el formulario el tamaño adecuado

Veamos un ejemplo:
Hemos colocado un ControlData y en la caja de propiedades el nombre es D conectado a nuestra base de datos mediante connect y DataBaseName en RecordSourse hemos indicado Empleados.
En el objeto Microsoft Data Bound Grid Control hemos indicado en la caja de propiedades su Datasource= D
En ejecución este es el resultado:

Mediante la barra de menús podemos acceder a agregar, lo que nos lleva a un formualrio como el que vimos antes, con una pequeña modificación en el código ya que además de agregar a la basa de datos un nuevo registro, refresca los datos del control Data Bound Grid del formulario 1.
Vemos el código, que en este caso ha sido colocado en el Form2 junto a otro ControlData
Private Sub Cmdaceptar_Click()
D.Recordset.AddNew
D.Recordset!Legajo = Tbleg.Text
D.Recordset!Sexo = Tbsexo.Text
D.Recordset!Apellido = Tbape.Text
D.Recordset!Cargo = Tbcargo.Text
D.Recordset!Sueldo = Tbsueldo.Text
D.Recordset.Update
Form1.D.Refresh
'Para refrescar los datos en Form 1
Unload Me
End Sub

Private Sub Cmdcancelar_Click()
Unload Me
End Sub
En la próxima veremos cómo buscar (completando este ejercicio) y también como eliminar registros.
Ir al Indice Ir a Eliminar o Buscar un Registro