Private
Sub BtnActualizar_Click(sender
As System.Object,
e As System.EventArgs)
Handles BtnActualizar.Click
If incdec = -1
Then
incdec = 0
End
If
Dim cb
As
New OleDb.OleDbCommandBuilder(da)
ds.Tables(
"Id_Cliente").Rows(incdec).Item(0)
= TextBoxIdCliente.Text
ds.Tables(
"Id_Cliente").Rows(incdec).Item(1)
= TextBoxNombreCliente.Text
ds.Tables(
"Id_Cliente").Rows(incdec).Item(2)
= TextBoxDomicilio.Text
ds.Tables(
"Id_Cliente").Rows(incdec).Item(3)
= TextBoxColonia.Text
ds.Tables(
"Id_Cliente").Rows(incdec).Item(4)
= TextBoxCPostal.Text
ds.Tables(
"Id_Cliente").Rows(incdec).Item(5)
= TextBoxEstadooProvincia.Text
ds.Tables(
"Id_Cliente").Rows(incdec).Item(6)
= TextBoxTelPart.Text
ds.Tables(
"Id_Cliente").Rows(incdec).Item(7)
= TextBoxTelCel.Text
ds.Tables(
"Id_Cliente").Rows(incdec).Item(8)
= TextBoxCorreo.Text
ds.Tables(
"Id_Cliente").Rows(incdec).Item(9)
= TextBoxDepTrabajo.Text
ds.Tables(
"Id_Cliente").Rows(incdec).Item(10)
= TextBoxFechaBaja.Text
ds.Tables(
"Id_Cliente").Rows(incdec).Item(11)
= TextBoxUltimoPuesto.Text
ds.Tables(
"Id_Cliente").Rows(incdec).Item(12)
= TextBoxTipoEmpleado.Text
ds.Tables(
"Id_Cliente").Rows(incdec).Item(13)
= TextBoxTipoCliente.Text
ds.Tables(
"Id_Cliente").Rows(incdec).Item(14)
= TextBoxResolucionPension.Text
ds.Tables(
"Id_Cliente").Rows(incdec).Item(15)
= TextBoxSituacionProcesal.Text
ds.Tables(
"Id_Cliente").Rows(incdec).Item(16)
= TxtBoxMotivoBajaExp.Text
ds.Tables(
"Id_Cliente").Rows(incdec).Item(17)
= TextBoxFechaNac.Text
da.Update(ds,
"Id_Cliente")
MsgBox(
"Registro Actualizado",
MsgBoxStyle.OkOnly)