19/10/2005, 02:51
|
| | | Fecha de Ingreso: mayo-2004
Mensajes: 29
Antigüedad: 20 años, 10 meses Puntos: 0 | |
| Problema al añadir un registro
Hola a todos:
Tengo el siguiente codigo para añadir un registro a una bd que es Sql Server 2000:
Dim loComando As New SqlCommand(lsQuery, Me.oconexion)
loComando.Parameters.Add(New SqlParameter("@numsocio", SqlDbType.Int))
loComando.Parameters("@numsocio").Value = CInt(Me.txtNumsocio.Text)
loComando.Parameters.Add(New SqlParameter("@fechaalta", SqlDbType.DateTime))
loComando.Parameters("@fechaalta").Value = CDate(Me.txtFechaAlta.Text)
loComando.Parameters.Add(New SqlParameter("@dni", SqlDbType.Int))
loComando.Parameters("@dni").Value = CInt(Me.txtDireccion.Text)
loComando.Parameters.Add(New SqlParameter("@letra", SqlDbType.Char))
loComando.Parameters("letra").Value = CChar(Me.txtLetra.Text)
loComando.Parameters.Add(New SqlParameter("@fechanac", SqlDbType.DateTime))
loComando.Parameters("@fechanac").Value = CDate(Me.txtFechaNac.Text)
loComando.Parameters.Add(New SqlParameter("@nombre", SqlDbType.Char))
loComando.Parameters("@nombre").Value = CChar(UCase(Me.txtNombre.Text))
loComando.Parameters.Add(New SqlParameter("@apellido1", SqlDbType.Char))
loComando.Parameters("@apellido1").Value = CChar(UCase(Me.txtApellido1.Text))
loComando.Parameters.Add(New SqlParameter("@apellido2", SqlDbType.Char))
loComando.Parameters("@apellido2").Value = CChar(UCase(Me.txtApellido2.Text))
loComando.Parameters.Add(New SqlParameter("@tipovia", SqlDbType.Char))
loComando.Parameters("@tipovia").Value = CChar(Me.cbTipoVia.Text)
loComando.Parameters.Add(New SqlParameter("@direccion", SqlDbType.Char))
loComando.Parameters("@direccion").Value = CChar(Me.txtDireccion.Text)loComando.Parameters.Add(New SqlParameter("@cp", SqlDbType.Char))
loComando.Parameters("@cp").Value = CChar(Me.txtCP.Text)
loComando.Parameters.Add(New SqlParameter("@poblacion", SqlDbType.Char))
loComando.Parameters("@poblacion").Value = CChar(Me.txtPoblacion.Text)
loComando.Parameters.Add(New SqlParameter("@provincia", SqlDbType.Char))
loComando.Parameters("@provincia").Value = CChar(Me.txtProvincia.Text)
loComando.Parameters.Add(New SqlParameter("@tlfno", SqlDbType.Int))
loComando.Parameters("@tlfno").Value = System.DBNull.Value
loComando.Parameters.Add(New SqlParameter("@movil", SqlDbType.Int))
loComando.Parameters("@movil").Value = System.DBNull.Value
loComando.Parameters.Add(New SqlParameter("@email", SqlDbType.Char))
loComando.Parameters("@email").Value = System.DBNull.Value
Me.oconexion.Open()
loComando.ExecuteNonQuery()
loComando.Dispose()
Call frmSocios_Load(Me, New System.EventArgs)
DesactivarCampos(Me)
Y en la direccion, puesto en rojo cuando añado me sale el siguiente error:
LA CONVERSION DE LA CADENA "asdas" AL TIPO INTEGER NO ES VALIDA
He comprobado la bd y el campo direccion es de tipo char(45)
A que puede ser que me diga que no puede convertir a integer si no lo es
Gracias |