Conexion De Base De Datos

A menudo en los foros aparece la pregunta de cómo actualizar una BD utilizando un DataGridView. Aquí os dejo una forma de realizarlo. Espero que os sea útil.

Saludos,

Pep Lluis,

'

'Definir enlace a datos y objetos del form

Private MiConexion As New SqlConnection( _

"Datasource=.SQLEXPRESS;AttachDbFilename=C:TempNORTHWND.MDF" + _

";Integrated Security=True;Connect Timeout=30;User Instance=True")

Private MiAdaptador As New SqlDataAdapter("SELECT * FROM Shippers", MiConexion)

Private MiDataSet As New DataSet()

Private MiEnlazador As New BindingSource

Private MidataGriView As New DataGridView

Private BotonGuardar As New Button

'

'En tiempo de carga...

Private Sub Form1_Load(…..) Handles MyBase.Load

MessageBox.Show(My.Computer.FileSystem.CurrentDirectory)

'Poner titulo a la aplicacion

Me.Text = "Mantenimiento de Shippers"

'Añadir DataGriView

MidataGriView.Dock = DockStyle.Top

Me.Controls.Add(MidataGriView)

BotonGuardar.Dock = DockStyle.Bottom

'Añadir Boton de Guardar

BotonGuardar.Text = "Guardar Cambios"

Me.Controls.Add(BotonGuardar)

AddHandler BotonGuardar.Click, AddressOf Guardar

Dim commandbuilder As New SqlCommandBuilder(Me.MiAdaptador)

MiConexion.Open()

MiAdaptador.Fill(MiDataSet)

MiEnlazador.DataSource = MiDataSet.Tables(0)

MidataGriView.DataSource = MiEnlazador

End Sub

'

'Actualizar la tabla enlazada con el DataGridView

Private Sub Guardar(…..)

Me.MiAdaptador.Update(CType(Me.MiEnlazador.DataSource, DataTable))

End

...