OO4O linked with a 8.1.6 or later client supports detection of lost
Applications can verify the status of the database
connection by invoking the ConnectionOK
property of the OraDatabase
OraSession.GetDatabaseFromPool now checks to see if the connection is alive
before returning the OraDatabase to the application.
If the connection is dead, GetDatabaseFromPool will drop the connection and refetch a live connection.
Dim MyDatabase As OraDatabase
Set MySession =
Set MyDatabase =
MySession.OpenDatabase("ora90", "scott/tiger", 0&)
'.... Other code
' Check if the database connection has not timed out
MsgBox " The database connection is valid"