DataBindings - Enlazar controles Textbox a campos de una tabla

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

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