CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Problema Raro Al Añadir Datos

(1/1)

astrow25:
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

Güorker:
Hola,

¿Que es lo que hace esta sentencia que tienes en tu código?

--- Código: Text ---  locomando.Parameters("@NUMREGISTRO").Value = Val(Me.txtNumRegistro.Text)  
Yo por si acaso intentaría convertir el texto en un entero de la siguiente manera:

--- Código: Text ---  locomando.Parameters("@NUMREGISTRO").Value = CInt(Me.txtNumRegistro.Text)  
A ver si sirve. Saludos

Navegación

[0] Índice de Mensajes