VBNETBD_Practica15

' Practica 15 - BD con imagenes Vinculadas
Imports System.Data.OleDb

Public Class Form1
    'Aqui usamos una BD de MS Access 2007. Notemos que cambia el proveedor de datos
    Dim cnn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Inventario.accdb")
    Dim da As New OleDbDataAdapter("Select * From Productos", cnn)
    Dim ds As New DataSet
    Dim nRegistro As Integer



    Private Sub cmdFill_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdFill.Click
        'Llenamos el DataSet con los datos de la conexion abierta
        da.Fill(ds)
        'Llenar el primer registro solamente
        txtArticulo.Text = ds.Tables(0).Rows(0).Item("Articulo")
        txtPrecio.Text = ds.Tables(0).Rows(0).Item("Precio")
        PictureBox1.ImageLocation = My.Application.Info.DirectoryPath + "\images\" + Trim(txtArticulo.Text) + ".jpg"

    End Sub

    Private Sub cmdNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdNext.Click
        'Cuando damos el boton de siguiente
        nRegistro = nRegistro + 1
        If nRegistro < ds.Tables(0).Rows.Count Then
            txtArticulo.Text = ds.Tables(0).Rows(nRegistro).Item("Articulo")
            txtPrecio.Text = ds.Tables(0).Rows(nRegistro).Item("Precio")
            PictureBox1.ImageLocation = My.Application.Info.DirectoryPath + "\images\" + Trim(txtArticulo.Text) + ".jpg"

        Else
            MsgBox("Final del archivo")
            nRegistro = ds.Tables(0).Rows.Count - 1
        End If

    End Sub

    Private Sub cmdAnterior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAnterior.Click
        'Cuando damos el boton anterior
        nRegistro = nRegistro - 1
        If nRegistro >= 0 Then
            txtArticulo.Text = ds.Tables(0).Rows(nRegistro).Item("Articulo")
            txtPrecio.Text = ds.Tables(0).Rows(nRegistro).Item("Precio")
            PictureBox1.ImageLocation = My.Application.Info.DirectoryPath + "\images\" + Trim(txtArticulo.Text) + ".jpg"

        Else
            MsgBox("Inicio del archivo")
            nRegistro = 0
        End If
    End Sub
End Class