Cómo usar ADODC en Visual Basic

El ADO (Active Data Objects) de Control de Datos (ADODC) es un método nuevo añadido en Visual Basic 6.0.
Por robert karr

Paso 1

Haz clic derecho sobre el programa de Visual Basic 6.0 y selecciona "Ejecutar como Administrador". Inicia un nuevo proyecto haciendo clic en "Archivo" y luego "Nuevo Proyecto". Selecciona la plantilla "Datos del Proyecto" de la lista.


Paso 2

Haz doble clic en el "frmDataEnv" que se muestra en la lista "Proyecto de datos" de la derecha. Coloca un control de datos ADO en el formulario, haz doble clic en el control ADODC en la caja de herramientas a la izquierda de la pantalla.


Paso 3

Configura una conexión a una base de datos existente, haz clic en el control ADODC ahora en la forma seleccionando "Propiedades de ADODC". En la página de propiedades, asegúrate de que la opción "Usar conexión de cadenas" esté seleccionada y haz clic en "Construir". Sigue los pasos que aparecen, que te llevarán a través de la selección del tipo de datos a usar, dónde encontrar la base de datos en el equipo y si deseas o no usar una contraseña.


Paso 4

Haz clic en "Probar conexión" situado en el diálogo de "Conexión" en las propiedades del enlace de datos, cuando toda la información del paso 3 se haya completado. Si la conexión falla, vuelve y revisa los escenarios elegidos para conectarte a tu base de datos.


Paso 5

Coloca dos botones de comando en el fmDataEnv haciendo doble clic en el "botón" en la caja de herramientas y luego haciéndolo de nuevo. Cambia el nombre de un botón a "cmdAddNewRecord" y el subtítulo a "Añadir Nuevo Registro". Cambia el nombre del otro botón para "cmdDeleteRecord" y el título a "Eliminar registro".


Paso 6

Haz doble clic en "cmdAddNewRecord" e introduce el código entre el comienzo y final de la rutina: "Adodc1.Recordset.AddNew". Haz lo mismo para el "cmdDeleteRecord" botón con este código: "Adodc1.Recordset.Delete" (no incluyas el punto al final de este código).


Paso 7

Escribe el código para hacerte cargo de lo que debe suceder cuando el usuario haga clic en una de las opciones en el paso 6: Private Sub Form_Load () Adodc1.Recordset.ActiveConnection.BeginTrans End Sub Private Sub Form_Unload (Cancel As Integer) If MsgBox ("Aceptar los cambios de registro?", VbYesNo) = vbYes Then Adodc1.RecordSet.ActiveConnection.CommitTrans Else Adodc1.Recordsete.ActiveConnection.RollbackTrans End If End Sub


Paso 8

Finaliza la configuración de ADODC mediante la adición de etiquetas y los controles TextBox al formulario para crear un mecanismo para que un usuario añada o elimine registros. Los controles específicos dependerán de las necesidades de base de datos. Mira la imagen para ver un ejemplo de cómo se verá.