Puerto paralelo

1 - Breve descripción
El control Data se utiliza con el motor de base de datos Microsoft Jet para acceder a base de datos de diferentes formatos como por ejemplo: Microsoft Access, Dbase, Excel, FoxPro, Lotus y Paradox, aunque en los ejemplos solo se utilizará Microsoft Access como base de datos.
El control Data permite trabajar con controles enlazados, por ejemplo con controles Label, TextBox,ComboBox, controles Image etc.. para presentar los datos. Esto quiere decir que al colocar un control Data y enlazarlo a una base de datos y luego enlazar dichos controles con el control Data, los cambios que se realicen en los controles enlazados se reflejarán en la base de datos.
Para enlazar la base de datos con un control Data ubicado en el formulario, se utiliza la propiedad DataBaseName yConnect. En la propiedad Connect se especifica el tipo de base de datos, por ejemplo: Access. Luego, ya se puede seleccionar la base de datos. Para indicar con que tabla se encontrará unida al control se utiliza la propiedad RecordSource.
Nota: Antes de especificar la tabla en la propiedad RecordSource hay que indicar la propiedad DataBaseName y Connect, de lo contrario se producirá un error "Debe rellenar las propiedades DataBaseName y Connect para llevar a cabo la operación"
Si bien estas propiedades se pueden establecer en tiempo de ejecución, en el ejemplo solo se realizará en tiempo de diseño
 
[pic]

2 - Ejemplo 1 : Crear una Agenda simple

El primer paso será crear una base de datos Access con los siguientes campos:
Nombre, Direccion y Telefono. El tipo de dato de loscampos establecerle como de Tipo Texto
Luego guardar la tabla con el nombre Contactos
Colocar la base de datos en una carpeta cualquiera, donde se ubicará también el proyecto de ejemplo.
Iniciar un nuevo proyecto de tipo Exe y guardarlo en la carpeta anterior. En el formulario principal, lo primero será colocar un control Data llamado Data1.
Ahora seleccionar el control Data1, y desde la ventanade propiedades serciorarse que la propiedad Connect esté con el valor Access y en la propiedad DataBaseName elegir la base de datos anteriormente creada.
Manteniendo seleccionado siempre el control Data, ahora localizar la propiedad Recordsource para indicar la tabla a la cual estará enlazada, y seleccionamos la Tabla Contactos.
Colocar los siguiente controles en el formulario como está en lasiguiente imagen:
• Textbox: txtNombre, txtDireccion y txtTelefono
• TextBox: txtNomEdit, txtDirEdit y txtTelEdit
 
[pic]
 
• El commandButton Agregar colocarle el nombre CmdAgregar
• El botón de Eliminar CmdEliminar
• Refrescar: CmdRefresh
• Actualizar : CmdActualizar
• Modificar: CmdModificar
 
Ahora para enlzar los textBox llamados txtNombre, txtDireccion ytxtTelefono, hay que indicarle en la propiedad DataField de cada uno de los TextBox, el campo por el cual se enlazará. Para el primero, seleccionar el campo Nombre en la propiedad DataField, el segundo Textbox el campo Direccion y el tercero el campo Telefono
 
El código del formulario:

'Botón para Agregar un Nuevo Registro

Private Sub CmdAgregar_Click()

Data1.RefreshData1.Recordset.AddNew

txtNombre.SetFocus

End Sub

'Botón para Eliminar el Registro Activo

Private Sub CmdEliminar_Click()

With Data1.Recordset

'Elimina

If Data1.Recordset.RecordCount = 0 Then Exit Sub

.Delete

'Posiciona en el siguiente

.MovePrevious

If Not .EOF Then .MoveLast

End With

End Sub

'Botón para Actualizarlos cambios

Private Sub CmdActualizar_Click()

On Error GoTo errSub

'Actualiza el control data

Data1.UpdateRecord

Data1.Recordset.Bookmark = Data1.Recordset.LastModified

Exit Sub

errSub:

If Err.Number = 524 Then

MsgBox "Para actualizar un registro primero agregue uno nuevo o" & _

"modifique algun registro activo", vbInformation

End If...