Casi todas las aplicaciones informáticas interesantes, requieren una base de datos de algún tipo. Microsoft reconoce este hecho desde el principio y puso el motor de Microsoft Access base de datos disponible para su uso con programas desarrollados en Visual Basic , a partir de VB 3 . Un programa de VB 6 puede utilizar el motor de base de datos Access a través de un componente llamado " Microsoft Data Access Objects " o DAO . La utilización de este componente, se puede consultar , insertar, actualizar y eliminar en la base de datos de acceso. Cosas que necesitará
Visual Basic 6.0
Microsoft Access ( Office 97 o posterior)
Microsoft Data Access Objects ( descarga gratuita desde Microsoft.com ) baratos Mostrar más instrucciones

1

Inicie un nuevo proyecto EXE estándar en Visual Basic 6 ( VB ) , comenzando VB y seleccionando " EXE estándar " de la nueva ventana que aparece proyecto . En el menú proyecto, seleccione "Referencias ". En la lista de referencias disponibles , busque la entrada " DAO xxx biblioteca de objetos Microsoft ", donde xxx es el número de versión ( 3.6 por ejemplo). Haga clic en la casilla de verificación al lado de la entrada y haga clic en Aceptar.
2

Abra la base de datos Access . Para ello , la dimensión de un objeto de base de datos de tipo. Por ejemplo :

Dim db como base de datos

A continuación, utilice el espacio de trabajo por defecto para abrir un archivo de base de datos. Por ejemplo :

Set db = Workspaces ( 0 ) OpenDatabase . ("C : \\ temp \\ congress.mdb " )

El objeto db es ahora una base de datos totalmente inicializado listo para ser consultado o actualizada.
3

Abrir un conjunto de registros de la base de datos y iterar a través de los registros. Para ello , la dimensión de un objeto Recordset y utilizar el objeto de base de datos para inicializarlo :

Dim rs como RecordsetSet rs = db.OpenRecordset ( " Cong105 " , dbOpenDynaset )

En este ejemplo, el table " Cong105 " se abre como un Dynaset . A Dynaset en este caso significa que el conjunto de registros será actualizable - Registros se pueden agregar , actualizar y eliminar. Un conjunto de registros también se puede abrir como dsOpenReadOnly , haciendo que el conjunto de registros de registros de lectura only.The ser abierto no tiene que ser de toda la tabla . Una sentencia de SQL (Structured Query Language ) se puede utilizar para abrir sólo un subconjunto de la tabla . Por ejemplo :

Set rs = db.OpenRecordset ( "select * from cong105 donde home_state = 'NEW YORK ' " , dbOpenDynaset )

Esto consultar la tabla Cong105 sólo para los registros con un estado natal de " Nueva York ". Iterar a través del conjunto de registros y leer los valores utilizando los métodos MoveNext y EOF del conjunto de registros . Por ejemplo , si el formulario tiene un cuadro de texto denominado Texto1 (con la propiedad Multiline en true y barras de desplazamiento establecidos en Vertical ) :

Text1.Text = " " Aunque no rs.EOFText1.Text = Text1.Text y ; ¡ rs Título & " " ¡ y rs Fnombre & "" & rs LName y vbCrLfrs.MoveNextWend
4

Agregar un registro a un conjunto de registros utilizando los métodos AddNew y Update . Llame al método AddNew para crear un registro vacío en el conjunto de registros . Establezca los valores de los campos del registro vacío y luego llamar al método Update para guardar los nuevos valores. Por ejemplo :

rs.AddNewrs FName = "Test" rs LName = "Test Last" rs actualización
5

Actualizar un registro existente utilizando Editar y métodos de actualización ! . Llame al método Edit para colocar el registro actual en el modo de edición. Establezca los valores de los campos y luego llamar al método Update para guardar los cambios . Por ejemplo : ¡¡¡

rs.Editrs LName = rs LName & ". Jr" rs actualización