Make your own free website on Tripod.com

File : oci-thick-connection_pkg.ads


package OCI.Thick.Connection_pkg is

   type Connection is new Handle_REference with private;

--   type Connection is tagged private;

   function Logon(DBName : String; User : String; Password : String)
     return Connection;
   function Logon(Connect : String) return Connection;
   procedure Logoff(Connect : in out Connection);
   
   function Server_Version(Connect : in Connection) 
      return String;
      
   procedure Commit(Connect : in Connection);
   procedure Rollback(Connect : in Connection);
   
private

   type Connection is new Handle_REference with null record;

   procedure Destroy(Object : in out Connection);

end OCI.Thick.Connection_pkg