ERROR EN SINTAXIS UPDATE NO SE CONTROLO OleDbException

Question

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)

Answer 1

pero para suar el OleDbCommandBuilder requieres realizar un SELECT previo para descubrir la metadata

cosa que no veo que hayas realizado

OleDbCommandBuilder (Clase)

se define en el adapter el SelectCommand

saludos

---

Leandro Tuttini

Blog
Buenos Aires
Argentina