Skip Headers

Oracle® Objects for OLE Developer's Guide
Release 9.2.0.4

Part Number B10952-01
Go To Table Of Contents
Contents

DatabaseName Property Example

This example demonstrates the use of the Connect and DatabaseName properties to display the username and database to which you have connected. Copy and paste this code into the definition section of a form. Then press F5.

Sub Form_Load ()

'Declare variables

Dim OraSession As OraSession

Dim OraDatabase As OraDatabase

Dim OraDynaset As OraDynaset

'Create the OraSession Object.

Set OraSession = CreateObject("OracleInProcServer.XOraSession")

'Create the OraDatabase Object by opening a connection to Oracle.

Set OraDatabase = OraSession.OpenDatabase("ExampleDb", "scott/tiger", 0&)

'Display the username and database to which you have connected.

MsgBox "Connected to " & OraDatabase.Connect & "@" & OraDatabase.DatabaseName

End Sub


 
Oracle
Copyright © 1994, 2003 Oracle Corporation.

All Rights Reserved.
Go To Table Of Contents
Contents