On this page
Represents an Oracle home.
Syntax
|
|---|
'Declaration
Public NotInheritable Class OracleHome |
|
|---|
public sealed class OracleHome |
Example
In this example we retrieve the globalization settings of the "OraClient" Oracle home; after that, we try to connect as Scott to all servers described in the tnsnames.ora file of OraClient.
|
|---|
// Get the OracleHome instance corresponding to the "OraClient" Oracle home.
OracleHome home = OracleConnection.Homes["OraClient"];
// Print some globalization settings of the current home.
OracleGlobalization glob = home.GetClientInfo();
Console.WriteLine("The Oracle home is registered for: " + glob.Territory);
Console.WriteLine("Character set is " + glob.ClientCharacterSet);
Console.WriteLine("Time zone is " + glob.TimeZone);
Console.WriteLine("Date format is " + glob.DateFormat);
// Create a connection.
OracleConnection conn = new OracleConnection();
conn.UserId = "Scott";
conn.Password = "tiger";
// Try to connect to each server available for the current Oracle home.
Console.WriteLine("\nTrying to connect as Scott/tiger:\n");
string[] servers = home.GetServerList();
foreach (string serverName in servers)
{
conn.Server = serverName;
try
{
conn.Open();
Console.WriteLine("Successfully connected to " + serverName);
}
catch(Exception ex)
{
Console.WriteLine("Failed connecting to " + serverName + ": " + ex.Message);
}
finally
{
conn.Close();
}
}
Console.ReadLine(); |
|
|---|
' Get the OracleHome instance corresponding to the "OraClient" Oracle home.
Dim home As OracleHome = OracleConnection.Homes.Item("OraClient")
' Print some globalization settings of the current home.
Dim glob As OracleGlobalization = home.GetClientInfo()
Console.WriteLine("The Oracle home is registered for: " + glob.Territory)
Console.WriteLine("Character set is " + glob.ClientCharacterSet)
Console.WriteLine("Time zone is " + glob.TimeZone)
Console.WriteLine("Date format is " + glob.DateFormat)
' Create a connection.
Dim conn As OracleConnection = New OracleConnection()
conn.UserId = "Scott"
conn.Password = "tiger"
' Try to connect to each server available for the current Oracle home.
Console.WriteLine(vbCrLf + "Trying to connect as Scott/tiger:" + vbCrLf)
Dim servers As Array = home.GetServerList()
For Each serverName In servers
conn.Server = serverName
Try
conn.Open()
Console.WriteLine("Successfully connected to " + serverName)
Catch ex As Exception
Console.WriteLine("Failed connecting to " + serverName + ": " + ex.Message)
Finally
conn.Close()
End Try
Next
Console.ReadLine() |
Inheritance Hierarchy
System.Object
Devart.Data.Oracle.OracleHome
See Also