linked with an 8.1.6 or later client supports detection of lost connections.
Applications can verify the status of the database
connection by invoking the ConnectionOK property
of the OraDatabase object. OraSession.GetDatabaseFromPool now checks
to see if the connection is alive before returning the OraDatabase to the
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"