miércoles, 25 de julio de 2012

Proyecto final


Conexion hacia la base de datos
Archivo
Agregar productos


Public Class Form1

    Dim var As OleDbConnection

    Private Function CONEXION12() As Integer

        var = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=based.mdb")
        var.Open()

    End Function

    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated




    End Sub

    Private Sub Form1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.GotFocus

     

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'BasedDataSet.productos' table. You can move, or remove it, as needed.
        Me.ProductosTableAdapter.Fill(Me.BasedDataSet.productos)

        CONEXION12()

    End Sub

    Private Sub AgregarProductoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AgregarProductoToolStripMenuItem.Click

        Dim form As LoginForm1 = New LoginForm1()
        form.Show()

    End Sub

    Private Sub SairToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SairToolStripMenuItem.Click

        Me.Close()

    End Sub

    Private Sub EliminarProductosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EliminarProductosToolStripMenuItem.Click

        Dim form As LoginForm2 = New LoginForm2()
        form.Show()

    End Sub

    Private Sub ModificarProductoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModificarProductoToolStripMenuItem.Click

        Dim form As LoginForm3 = New LoginForm3()
        form.Show()

    End Sub


    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

    End Sub
End Class


Button Modificar archivo 
Private Sub ModificarProductoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModificarProductoToolStripMenuItem.Click

        Dim form As LoginForm3 = New LoginForm3()
        form.Show()

    End Sub


Eliminar archivos

Private Sub EliminarProductosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EliminarProductosToolStripMenuItem.Click

        Dim form As LoginForm2 = New LoginForm2()
        form.Show()

    End Sub


Button actualizar 


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim TADAP As New OleDb.OleDbDataAdapter(" SELECT * FROM PRODUCTOS", var)
        Dim DSET As New DataSet
        TADAP.Fill(DSET, "PRODUCTOS")
        DataGridView1.DataSource = DSET.Tables("PRODUCTOS")
        var.Close()

    End Sub


No hay comentarios:

Publicar un comentario