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
Suscribirse a:
Enviar comentarios (Atom)
No hay comentarios:
Publicar un comentario