Codigo Visual Basic Para Transparencia

Páginas: 3 (567 palabras) Publicado: 14 de octubre de 2012
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
' Aqui se declara la cadena de cnexion con la base de datos de Access
' se debe incluir la ruta y nombre completo delarchivo
Dim strConexion As String = "provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Ejemplo\categorias.accdb"
Dim strComando As String = "select * from categorias"
Dim DA AsOleDbDataAdapter
Dim DS As New DataSet()
Dim CB As OleDbCommandBuilder
Dim Posicion As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Try
DA = New OleDbDataAdapter(strComando, strConexion)
DA.Fill(DS, "categorias")
CB = New OleDbCommandBuilder(DA)txtldCategoria.DataBindings.Add(New Binding("Text", DS, "categorias.id"))
txtCategoria.DataBindings.Add(New Binding("text", DS, "categorias.Nom_categorias"))txtDescripcion.DataBindings.Add(New Binding("text", DS, "categorias.Descripcion"))

txtexistencia.DataBindings.Add(New Binding("text", DS, "categorias.existencia"))
txtmaximo.DataBindings.Add(NewBinding("text", DS, "categorias.maximo"))
txtminimo.DataBindings.Add(New Binding("text", DS, "categorias.minimo"))
txtprecio.DataBindings.Add(New Binding("text", DS,"categorias.precio"))
txtcosto.DataBindings.Add(New Binding("text", DS, "categorias.costo"))

Catch ex As Exception
MsgBox(ex.Message)
End Try

End Sub#Region "botones"

Private Sub btnNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNuevo.Click
If btnNuevo.Text = "Nuevo" ThenMe.BindingContext(DS, "categorias").AddNew()
btnNuevo.Text = "guardar"
btnEditar.Text = "cancelar"
btnEliminar.Enabled = False
btnSalir.Enabled = False...
Leer documento completo

Regístrate para leer el documento completo.

Estos documentos también te pueden resultar útiles

  • Codigo para imprimir un DataGrid en Visual Basic 2010
  • Códigos Para Visual Basic
  • Visual basic codigos
  • Visual Basic Codigos
  • codigos imagenes visual basic
  • Codigo en visual basic
  • Codigos visual basic
  • Codigos para visual

Conviértase en miembro formal de Buenas Tareas

INSCRÍBETE - ES GRATIS