Foros del Web » Programación para mayores de 30 ;) » .NET »

Problema raro al añadir datos

Estas en el tema de Problema raro al añadir datos en el foro de .NET en Foros del Web. Hola a todos: Tengo una bd en access y cada vez que añado datos me da un error, la cosa es que si me los ...
  #1 (permalink)  
Antiguo 17/01/2006, 13:03
 
Fecha de Ingreso: mayo-2004
Mensajes: 29
Antigüedad: 20 años
Puntos: 0
Problema raro al añadir datos

Hola a todos:

Tengo una bd en access y cada vez que añado datos me da un error, la cosa es que si me los añade.

Estoy probando campo a campo, y siempre me da el mismo error

Se han producido los siguientes errores:
No coinciden los tipos de datos en la expresion de criterios.

Aqui os pongo como hago para añadir un registro

Dim lsQuery As String
lsQuery = "Insert INTO AFILIADOS(NUMREGISTRO) values (@NUMREGISTRO)"
Try
Dim locomando As New OleDbCommand(lsQuery, Me.oconexion)
locomando.Parameters.Add(New OleDbParameter("@NUMREGISTRO", OleDbType.Integer))
locomando.Parameters("@NUMREGISTRO").Value = Val(Me.txtNumRegistro.Text)
Me.oconexion.Open()
locomando.ExecuteNonQuery()
locomando.Dispose()
Catch ex As Exception
MsgBox("Se han producido los siguientes errores:" & vbCrLf & ex.Message, MsgBoxStyle.Critical, "Error")
Catch ex As SqlException
MsgBox("Se han producido los siguientes errores:" & vbCrLf & ex.Message, MsgBoxStyle.Critical, "Error")
Finally
Me.oconexion.Close()
End Try
El campo NUMREGISTRO es Numerico de tipo Entero Largo

Alguna solucion, gracias
  #2 (permalink)  
Antiguo 17/01/2006, 17:19
Avatar de RootK
Moderador
 
Fecha de Ingreso: febrero-2002
Ubicación: México D.F
Mensajes: 8.004
Antigüedad: 22 años, 2 meses
Puntos: 50
Cita:
El campo NUMREGISTRO es Numerico de tipo Entero Largo
Si es así debes usar el tipo de datos numerico para hacer la insercion, pruebalo de ésta forma:

Cita:
locomando.Parameters.Add(New OleDbParameter("@NUMREGISTRO", OleDbType.Numeric))
Por cierto.. si estas usando Access no le veo sentido que tengas un manejador de errores para sql Server...(SqlException )

podría quedar simplemente así:

Cita:
....
....
Catch ex As OleDbException
MsgBox("Se han producido los siguientes errores:" & vbCrLf & ex.Message, MsgBoxStyle.Critical, "Error")
Salu2
__________________
Nadie roba nada ya que en la vida todo se paga . . .

Exentrit - Soluciones SharePoint & Net
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 16:10.