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 Sub

y listo

Piratas de Silicon Valley es una cinta rodada con muy mala calidad tanto técnica como narrativa aunque supone un fantástico documento histórico que hace un homenaje a una de las figuras clave para entender la nueva era moderna de la sociedad y la comunicación. El ritmo intenso y rápido que su director, Martyn Burke, le transmite al metraje es su mejor arma a la hora contar los orígenes de Jobs y Gates. Esperemos que Sony Pictures, de quedarse finalmente con el biopic sobre la figura de Jobs, le haga mucha más justicia y cree una película similar a lo que se realizó el año pasado con Mark Zuckerberg y La Red Social.

Merece la pena acercarse a Piratas de Silicon Valley como una película curiosa sobre dos célebres mentes que cambiaron el mundo a base de golpe de teclado y programas informáticos, los cuales sin ellos, no sería posible vivir en la actualidad. Valga también recuperar esta cinta como un homenaje al recientemente fallecido Steve Jobs y que su trabajo

...