PRACTICA II-24. mdl utilizando dao: metodos de movimiento entre registros.

EQUIPO No5

OBJETIVO.- aprender a utilizar el DML que permiteDAO a fin podemos hacer entre los registros de un RecordSet

PROCEDIMIENTO.- Para esta práctica el procedimiento es el siguiente:

1. implemente la siguiente interfaz y agregue el código.

CODIGO:

Option Explicit

Dim dbBase As Database

Dim rsVendedor As Recordset

Dim intRecNo As Integer

Private Sub cmdAnterior_Click()

If intRecNo% = 1 Then

Beep

Else

rsVendedor.MovePrevious

intRecNo% = intRecNo% - 1

Call Actualiza

End If

End Sub

Private Sub cmdPrimero_Click()

rsVendedor.MoveFirst

intRecNo% = 1

Call Actualiza

End Sub

Private Sub cmdSiguiente_Click()

If intRecNo% = rsVendedor.RecordCount Then

Beep

Else

rsVendedor.MoveNext

intRecNo% = intRecNo% + 1

Call Actualiza

End If

End Sub

Private Sub cmdUltimo_Click()

rsVendedor.MoveLast

intRecNo% = rsVendedor.RecordCount

Call Actualiza

End Sub

Private Sub Form_Activate()

Set dbBase = OpenDatabase("C:\IVAN\ESCUELA\Progra2\Avbp\cap24\ventas.mdb")

Set rsVendedor = dbBase.OpenRecordset("Vendedor")

If rsVendedor.RecordCount = 0 Then

MsgBox "Nada que Ver"

dbBase.Close

End

End If

intRecNo% = 1

Call Actualiza

End Sub

Private Sub Actualiza()

lblRegistros.Caption = Str(intRecNo%) & "/" & _

Str(rsVendedor.RecordCount)

txtIDVendedor.Text = rsVendedor.Fields("IDVendedor")

txtNombreVendedor.Text = rsVendedor.Fields("NombreVendedor")

End Sub

CONCLUSIONES: con esta práctica navegamos a través de nuestra base de datos, cada uno de los botones de comando que están en interfaz, tiene asociado un método de movimiento entre registros en su código. Mundo