usp_updateuser.sql

Beginning VB.NET DatabasesAll_Code.rar

CREATE OR REPLACE PROCEDURE usp_UpdateUser
(
   inUserID      CHAR,
   inLoginName   VARCHAR2,
   inPassword    VARCHAR2,
   inFirstName   VARCHAR2,
   inLastName    VARCHAR2,
   inEmail       VARCHAR2,
   inPhone       VARCHAR2,
   inStatus      NUMBER,
   inGroupID     CHAR,
   inRoleID      CHAR,
   inManagerID   CHAR
)
AS
BEGIN
   UPDATE Users
      SET LoginName = inLoginName, 
      Password = inPassword, 
      FirstName = inFirstName, 
      LastName = inLastName,
      Email = inEmail, 
      Phone = inPhone, 
      Status = inStatus, 
      GroupID = inGroupID, 
      RoleID = inRoleID, 
      ManagerID = inManagerID,
      LastUpdateDate = SYSDATE
      WHERE UserID = inUserID;
   EXCEPTION
      WHEN OTHERS THEN
      RAISE_APPLICATION_ERROR (-20999,'Update Users failed.');
      RETURN;
END;