
Error dificil en UPDATE a DB access con VB.NET
Publicado por Mauricio (28 intervenciones) el 01/08/2017 17:00:57
Amigos tengo un problema que no se como solucionar, tuve que adaptar mi programa desde una DB Mysql a una DB access y al actualizar un registro no me guarda la actualizacion de datos y me sale un error que lo señalo en imagen adjunta, la consulta para hacer el UPDATE es la siguiente:
cualquier ayuda me resultara de guia
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
'procedimiento para modificar pago
Public Sub mod_pago(ByVal oc As String, ByVal inde As String, ByVal raz As String, ByVal ndc1 As Integer, ByVal pdc1 As Integer, ByVal ndc2 As Integer, ByVal pdc2 As Integer, ByVal ndc3 As Integer, ByVal pdc3 As Integer, ByVal vlor As Integer, ByVal tipdoc As String, ByVal detal As String)
nue_var.consulta = "UPDATE pagos SET idProye = @inde, rSocial = @raz, nDoc1 = @ndc1, pagoDoc1 = @pdc1, nDoc2 = @ndc2, pagoDoc2 = @pdc2, nDoc3 = @ndc3, pagoDoc3 = @pdc3, precio = @vlor, tipoDoc = @tipdoc, detalle = @detal WHERE nOrden = @oc"
Try '
nue_conexion.conectar()
nue_var.cmd = New OleDbCommand(nue_var.consulta, nue_conexion.conex())
nue_var.cmd.Parameters.Add(New OleDbParameter("@oc", oc))
nue_var.cmd.Parameters.Add(New OleDbParameter("@inde", inde))
nue_var.cmd.Parameters.Add(New OleDbParameter("@raz", raz))
nue_var.cmd.Parameters.Add(New OleDbParameter("@ndc1", Val(ndc1)))
nue_var.cmd.Parameters.Add(New OleDbParameter("@pdc1", Val(pdc1)))
nue_var.cmd.Parameters.Add(New OleDbParameter("@ndc2", Val(ndc2)))
nue_var.cmd.Parameters.Add(New OleDbParameter("@pdc2", Val(pdc2)))
nue_var.cmd.Parameters.Add(New OleDbParameter("@ndc3", Val(ndc3)))
nue_var.cmd.Parameters.Add(New OleDbParameter("@pdc3", Val(pdc3)))
nue_var.cmd.Parameters.Add(New OleDbParameter("@vlor", Val(vlor)))
nue_var.cmd.Parameters.Add(New OleDbParameter("@tipdoc", tipdoc))
nue_var.cmd.Parameters.Add(New OleDbParameter("@detal", detal))
nue_var.cmd.ExecuteNonQuery()
nue_conexion.desconectar()
Catch mierror As OleDbException
MsgBox("Error de Conexión a la Base de Datos: " & mierror.Message)
End Try
End Sub
cualquier ayuda me resultara de guia
- error.rar(26,0 KB)
Valora esta pregunta


0