Codigo:
Public Function Modificar(ByVal oClub As Club) As Integer
Dim Resultado As Integer = -99
Dim con As OleDbConnection
Dim strSQL As String
con = New OleDbConnection(Conexion.Conexion.CadenaConexion)
Dim cmd As OleDbCommand
cmd = New OleDbCommand("spModificarClub", con)
cmd.CommandType = CommandType.StoredProcedure
Dim Club_Codigo As OleDbParameter = _
cmd.Parameters.Add("@ClubId", OleDbType.Integer)
Club_Codigo.Direction = ParameterDirection.Input
Dim ClubNombre As OleDbParameter = _
cmd.Parameters.Add("@ClubNombre", OleDbType.VarChar)
ClubNombre.Direction = ParameterDirection.Input
'Club_Codigo.Value = Convert.ToUInt32(oClub.Id)
'Club_Codigo.Value = Convert.ToInt16(oClub.Id)
'Dim Id As Int16 = Convert.ToInt16(oClub.Id)
Club_Codigo.Value = oClub.Id
'MsgBox("Tipo Dato: " & Id.GetType.ToString)
'MsgBox(Club_Codigo.Value)
ClubNombre.Value = oClub.Nombre
MsgBox(ClubNombre.Value)
Try
con.Open()
Resultado = cmd.ExecuteNonQuery()
Catch se As OleDbException
Throw (se)
Catch e As Exception
Throw (e)
Finally
If con.State = ConnectionState.Open Then
con.Close()
End If
End Try
Return Resultado
End Function
Store Procedure:
UPDATE Club SET Club.Club_Nombre = [@ClubNombre]
WHERE Club.Club_Id=[@ClubId]
El tipo de Dato del campoe Club_Id es Integer en Access.
No puedo lograr actulizar ningun registro, los parametros son correctos... |