Actualizar Base de Datos con Archivo Excel

[emmax]

Hola betojasso, te dejo un fragmento de codigo que utilizo para actualizar los datos en una BD desde un DGV, espero te ayude.

Dim update_string As String
Dim codigo As String
Dim nombre As String = ""
Dim plu As String = ""
Dim caducidad As String = ""
Dim u_medida As String = ""
Dim precio As String = ""

With DataGridView1
Try
For i As Integer = 0 To DataGridView1.Rows.Count - 2
codigo = Me.DataGridView1.Rows(i).Cells("Col_Codigo").Value .ToString
nombre = Me.DataGridView1.Rows(i).Cells("Col_Desc").Value.T oString
plu = Me.DataGridView1.Rows(i).Cells("Col_PLU").Value.To String
caducidad = Me.DataGridView1.Rows(i).Cells("Col_Cad").Value.To String
u_medida = Me.DataGridView1.Rows(i).Cells("Col_Med").Value.To String
precio = Me.DataGridView1.Rows(i).Cells("Col_Precio").Value .ToString


update_string = "INSERT INTO T_Articulo(ID_Articulo, Desc_Articulo, plu_Articulo, Caducidad, U_Medida, Precio)" & _
"VALUES(@codigo, @nombre, @plu, @caducidad, @U_medida, @Precio)"

Dim com As New OleDbCommand(update_string, conexion)
com.Parameters.AddWithValue("@codigo", codigo)
com.Parameters.AddWithValue("@nombre", nombre)
com.Parameters.AddWithValue("@plu", plu)
com.Parameters.AddWithValue("@caducidad", caducidad)
com.Parameters.AddWithValue("@U_medida", u_medida)
com.Parameters.AddWithValue("@Precio", precio)


com.ExecuteNonQuery()

Next
MsgBox("Base de Datos Actualizada", MsgBoxStyle.Information)
Me.DataGridView1.Rows.Clear()
Catch
MsgBox("Error al Actualizar", MsgBoxStyle.Critical)
End Try

End With

Comenta si te sirvio, Saludos........