Visual Basic.NET - Error dificil en UPDATE a DB access con VB.NET

 
Vista:
Imágen de perfil de Mauricio

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:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Mauricio

Error dificil en UPDATE a DB access con VB.NET

Publicado por Mauricio (28 intervenciones) el 03/08/2017 18:28:09
Wilfredo,

se agradece la ayuda, me sirvio de mucho y encontre el error que tenia en mi codigo.

Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar