Sección vb.net

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones empresariales sobre base de datos

62 - DataBindings - Enlazar controles Textbox a campos de una tabla

Volver - Anterior - Siguiente

Simple ejemplo en Visual basic.NET 2005 para enlazar dos controles textBox a campos de una tabla sql usando un BindingManagerBase

Para el proyecto de ejemplo se debe colocar en un windows form dos controles textBox.

El textBox1 se enlaza con el campo Nombre de la tabla Contactos
y el TextBox2 tendrá como DataMember el campo "Apellido"

También colocar en el form, tres controles Button:

btnPrev para moverse al anterior registro,
btnNext para el siguiente
y el btnUpdate, para guardar los cambios realizados en el DataSet mediante un commandBuilder

Formulario

vista previa del windows form de ejemplo para enlazar los controles a los campos y poder guardar los cambios en la base de datos

Nota: En el ejemplo, la tabla se llama "Contactos" y el nombre de la base de datos, se llama "bd"

Código fuente

Option Explicit On Option Strict On ' espacios de nombres ' '''''''''''''''''''''''''''''''''' Imports System.Data.SqlClient ' cliente sql Public Class Form1 ' variable con evento para el objeto BindingManagerBase Private WithEvents bmBase As BindingManagerBase ' cadena de conexión ( base de datos demo_bd) Const cs As String = "server=(local)\SQLEXPRESS;" & _ "integrated security=sspi;" & _ "database=" Const catalogo As String = "bd" ' DataSet a nivel de formulario para almacenar los datos Dim Dataset As DataSet Private Sub Form1_Load( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Try 'Instanciar nueva conexión Using cn As New SqlConnection(cs & catalogo) ' Instrucción Sql para seleccionar los registros de la tabla contactos Dim sql As String = "SELECT * FROM contactos" ' Nuevo DataAdapter Dim DataAdapter As New SqlDataAdapter(sql, cn) ' Nuevo ds Dataset = New DataSet ' llenarlo DataAdapter.Fill(Dataset, "contactos") ' enlazar los controles textBox con el Dataset e indicarle ' el DataMember para poder visualizar cada campo ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' campo NOMBRE para el textbox1 TextBox1.DataBindings.Add("text", Dataset, "contactos.Nombre") ' Campo APELLIDO para el textbox2 TextBox2.DataBindings.Add("text", Dataset, "contactos.Apellidos") bmBase = Me.BindingContext(Dataset, "contactos") If bmBase.Count > 0 Then bmBase.Position = bmBase.Count bmBase.Position = 0 End If End Using Catch exsql As SqlException MsgBox(exsql.Message.ToString, MsgBoxStyle.Critical, "se produjo un error") Catch ex As Exception MsgBox(ex.Message.ToString, MsgBoxStyle.Critical, "se produjo un error") End Try btnPrev.Text = "Anterior" btnNext.Text = "Siguiente" btnUpdate.Text = "Guardar" End Sub ' Siguiente registro Private Sub Button2_Click( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles btnNext.Click ' Incrementar la propiedad Position del BindingManagerBase bmBase.Position = bmBase.Position + 1 End Sub ' registro anterior Private Sub button1_Click( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btnPrev.Click ' decrementar la propiedad Position del BindingManagerBase bmBase.Position = bmBase.Position - 1 End Sub ' Botón para actualizar y guardar los cambios ' '''''''''''''''''''''''''''''''''''''''''''''' Private Sub Button3_Click( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btnUpdate.Click ' Crear nuevo objeto OleDbConnection Using cn As New SqlConnection(cs & catalogo) bmBase.EndCurrentEdit() Try ' Abrir la conexión anterior cn.Open() ' crear un nuevo adaptador de datos para el Dataset Dim DataAdapter As New SqlDataAdapter( _ "select * from contactos", cn) ' Llenar el dataset DataAdapter.Fill(Dataset) ' CommandBuilder para poder actualizar los cambios en la base de datos Dim cmdUpdate As New SqlCommandBuilder(DataAdapter) With DataAdapter .UpdateCommand = cmdUpdate.GetUpdateCommand End With ' Ejecutar el método Update del DataAdapter para actualizar DataAdapter.Update(Dataset, Dataset.Tables(0).TableName) MsgBox("Datos actualizados", MsgBoxStyle.Information, "Guardar") ' Excepciones ' ''''''''''''''''''''''''''''''''''''''''''' Catch exSql As SqlException MsgBox(exSql.Message.ToString, MsgBoxStyle.Critical, "Se produjo un error") Catch ex As Exception MessageBox.Show(ex.Message, "Se produjo un error") End Try End Using End Sub ' evento PositionChanged del BindingManagerBase para saber la posición actual y el total de filas ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub bMgr_PositionChanged( _ ByVal sender As Object, _ ByVal e As System.EventArgs) Handles bmBase.PositionChanged Me.Text = "Registro: " & bmBase.Position.ToString & " / " & bmBase.Count.ToString End Sub End Class

Buscar en Recursos vb