|
|
Curso de Visual Basic gratis, Base de
datos
|
|
Base
de datos
Connect: Tenga en cuenta que desde esta propiedad del control data, podrá especificar
el tipo de base de datos que es.
Exclusive:
En true, es para que ningún otro pueda abrir la base de datos hasta que
usted la cierre. Esto es útil para los que trabajan en redes en algunos
casos.
Eofaction:
Seleccionando Add new, Al estar en el último registro, se agregará
automóticamente uno nuevo al seguir avanzando. |
-
Ejemplo
continuando la última clase relacionada con base de datos, agregue
a una base de datos un campo que sea id y su comportamiento auto
numérico.
-
Realice un
entorno para base de datos como en el caso anterior, pero ahora agregue
también dos label, uno lo usaremos como titulo del otro que mostrará el
id. Llamará un dato de una base de datos de igual manera que como hizo
con el texbox.
-
En el objeto data,
propiedad eofaction seleccione add new, esto hará que pueda agregar
nuevos registros. Cuando pasa de uno a otro se grabará y podrá ver la
diferencia desde i id. auto numérico. Nota al pasar registros y no poner
datos se gastarón id y luego no se los visulizará.
-
Ahora en vez de
usar una base de datos en Acces usaremos una tabla en Excel.
-
En data en la
propiedad connect seleccione Excel 8.0 y luego vuelva a especificar las
propiedades de cada texbox datasourse y datafield
Use
los métodos y las propiedades del objeto Recordset para recuperar
información del conjunto de registros, desplazarse por los registros y
agregar, actualizar o eliminar registros. Un poco de código a la base de
datos...
Unos ejemplos de esto sería:
Para
agregar un nuevo registro:
Private
Sub Command1_Click()
Data1.Recordset.AddNew
End Sub
|
|
Para
guardar:
Private
Sub Command2_Click()
Data1.UpdateRecord
End Sub
Vuelve al ultimo estado antes de haber guardado:
Private
Sub Command3_Click()
Data1.Refresh
End Sub
Borrar he ir a la siguiente línea:
Private
Sub Command4_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End Sub
Para ir para atrás:
Data1.Recordset.MovePrevious
Para
copiar o clonar use la línea:
Data1.Recordset.Clone
Para ir al final de la lista:
Data1.Recordset.MoveLast
Para ir al principio:
Data1.Recordset.MoveFirst |
|
|
-