Imports System.Data.OleDb
Imports System.Drawing.Image

Public Class sold
    Dim cn As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=C:\BD_ANIMES\ANIMES.mdb")
    Dim nro_reg, posc As Integer
    Dim talumnos As DataTable

    Public Sub listar()
        Dim da As New OleDbDataAdapter("select * from Anime ", cn)
        talumnos = New DataTable
        da.Fill(talumnos)
    End Sub
    Public Sub ver_registro(ByVal posc_act As Integer)

        With Me
            .TextBox1.Text = talumnos.Rows(posc_act)("ID")
            .TextBox2.Text = talumnos.Rows(posc_act)("NOMBRE")
            .TextBox3.Text = talumnos.Rows(posc_act)("EPISODIOS")
            .TextBox4.Text = talumnos.Rows(posc_act)("OVAS")
            .TextBox5.Text = talumnos.Rows(posc_act)("GENERO")
            .TextBox6.Text = talumnos.Rows(posc_act)("DVDS")
            .TextBox7.Text = talumnos.Rows(posc_act)("DISPONIBILIDAD")
            .TextBox8.Text = talumnos.Rows(posc_act)("TRAMA")
        End With
    End Sub


    Private Sub sold_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call listar()
        nro_reg = talumnos.Rows.Count
        posc = 0
        Call ver_registro(posc)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click
        Dim indice As Integer = CType(sender.tag, Integer)
        Select Case indice
            Case 0
                posc = 0

            Case 1

                If (posc > 0) Then
                    posc -= 1

                End If
            Case 2

                If (posc < nro_reg - 1) Then
                    posc += 1

                End If
            Case 3
                posc = nro_reg - 1
        End Select
        ver_registro(posc)
    End Sub
End Class