none
ERROR EN SINTAXIS UPDATE NO SE CONTROLO OleDbException RRS feed

  • Pregunta

  • 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)

    miércoles, 12 de junio de 2013 22:59

Todas las respuestas