Práctica Nº 3 (Programa)

A continuación les presento las características para el desarrollo del Nuevo Programa

Elaborar una aplicación que permita realizar el mantenimiento de la información almacenada en la tabla realizada en base de datos Microsoft Access. El diseño de la interfaz debe ser similar a la figura mostrada:

Para este programa se debe diseñar la interfaz y luego escribir código para conectarse y recuperar información de la base de datos. El formulario debe llevar los siguientes controles:
3 marcos
4 etiquetas
4 cajas de texto
8 botones de comando

El código necesario para realizar la conexión de la Data Environment y efectuar el mantenimiento de la tabla es el siguiente: se muestra a continuación.

Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset

Private Sub ModoEditar(ByVal Ok As Boolean)
TxtCurCodigo.Locked = Not Ok
TxtCurNombre.Locked = Not Ok
TxtCurVacantes.Locked = Not Ok
TxtCurProfe.Locked = Not Ok
CmdNuevo.Enabled = Not Ok
CmdEditar.Enabled = Not Ok
CmdGuardar.Enabled = Ok
CmdEliminar.Enabled = Not Ok
If Ok Then TxtCurCodigo.SetFocus
End Sub

Private Sub Form_Load()
ModoEditar False
Set Cn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Cn.Open “Provider=Microsoft.Jet.OLEDB.4.0;” & _
“Data Source=C:\FundVB\Data\CursosLibres.MDB;” & _
“Persist Security Info=False”
Rs.ActiveConnection = Cn
Rs.CursorType = adOpenKeyset
Rs.LockType = adLockOptimistic
Rs.Open “Select * From Curso”
Set TxtCurCodigo.DataSource = Rs
TxtCurCodigo.DataField = “CurCodigo”
Set TxtCurNombre.DataSource = Rs
TxtCurNombre.DataField = “CurNombre”
Set TxtCurVacantes.DataSource = Rs
TxtCurVacantes.DataField = “CurVacantes”
Set TxtCurProfe.DataSource = Rs
TxtCurProfe.DataField = “CurProfe”
End Sub

Private Sub CmdPrimero_Click()
Rs.MoveFirst
End Sub

Private Sub CmdAnterior_Click()
Rs.MovePrevious
If Rs.BOF Then
Rs.MoveFirst
MsgBox “Estamos en el primer registro”
End If
End Sub

Private Sub CmdSiguiente_Click()
Rs.MoveNext
If Rs.EOF Then
Rs.MoveLast
MsgBox “Estamos en el último registro”
End If
End Sub

Private Sub CmdUltimo_Click()
Rs.MoveLast
End Sub

Private Sub CmdNuevo_Click()
Rs.AddNew
ModoEditar True
End Sub

Private Sub CmdEditar_Click()
ModoEditar True
End Sub

Private Sub CmdGuardar_Click()
Rs.Update
ModoEditar False
End Sub

Private Sub CmdEliminar_Click()
Rs.Delete
Rs.MoveNext
If Rs.EOF Then
Rs.MoveLast
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Cn.Close
Set Cn = Nothing
End Sub