home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / DBObject.4gh < prev    next >
Text File  |  1996-11-28  |  2KB  |  84 lines
  1. -----------------------------------------------------------------------------
  2. --
  3. --      (c)     Westmount Technology    1994
  4. --
  5. --    File:        @(#)DBObject.4gh    /main/titanic/1
  6. --    Author:
  7. --    Description:    Base Class for all Database Classes
  8. --
  9. -----------------------------------------------------------------------------
  10.  
  11. INCLUDE SYSTEM "ixconn.4gh"
  12. INCLUDE SYSTEM "ixstmt.4gh"
  13. INCLUDE SYSTEM "ixnum.4gh"
  14. INCLUDE SYSTEM "ixstring.4gh"
  15.  
  16. CLASS DBObject
  17.  
  18.     PUBLIC CONSTANT
  19.         CREATED SMALLINT = 1,        -- just created
  20.         NORMAL SMALLINT = 2,        -- everything OK
  21.         SQL_ERROR SMALLINT = 3        -- SQL error occured
  22.  
  23.     -- The connection object
  24.     --
  25.     SHARED PRIVATE VARIABLE conn ixSQLConnect
  26.  
  27.     -- The SQL statement that caused dbState to be SQL_ERROR
  28.     --
  29.     PUBLIC VARIABLE errorStmt ixSQLStmt
  30.  
  31.     PROTECTED FUNCTION DBObject()
  32.  
  33.     -- Connect database using (implicit) connection object.
  34.     -- Also set the shared conn object
  35.     --    
  36.     SHARED FUNCTION connectDB(dbName CHAR(*), connObj ixSQLConnect: NULL)
  37.         RETURNING INTEGER
  38.  
  39.     -- Disconnect the connection object from the database.
  40.     --
  41.     SHARED FUNCTION disconnectDB() RETURNING VOID
  42.  
  43.     -- Get the connection object
  44.     --
  45.     SHARED FUNCTION getConnection() RETURNING ixSQLConnect
  46.  
  47.     -- Commit the previous database actions
  48.     --    
  49.     SHARED FUNCTION commit() RETURNING INTEGER
  50.  
  51.     -- Roll back the previous actions
  52.     --    
  53.     SHARED FUNCTION rollback() RETURNING INTEGER
  54.  
  55.     -- Get the (case sensitive) class name
  56.     --
  57.     FUNCTION getClassName() RETURNING ixString
  58.  
  59.     -- The state this object is in
  60.     --
  61.     FUNCTION getState() RETURNING SMALLINT
  62.  
  63.     -- Reset the state of the object to CREATED
  64.     --
  65.     FUNCTION resetState() RETURNING VOID
  66.  
  67.     -- Process the SQL status after executing stmt.
  68.     -- Set the dbState accordingly.
  69.     -- Returns -1 if the SQL status indicates an error, else 0.
  70.     --
  71.     FUNCTION processSqlStatus(stmt ixSQLStmt) RETURNING INTEGER
  72.  
  73.     -- Get the ODBC error message when a SQL stmt failed.
  74.     --
  75.     SHARED FUNCTION getODBCErrMsg(stmt ixSQLStmt) RETURNING CHAR(*)
  76.  
  77.     -- The (case sensitive) name of the class
  78.     --
  79.     PROTECTED VARIABLE className ixString
  80.  
  81.     PRIVATE VARIABLE dbState SMALLINT
  82.  
  83. END CLASS
  84.