DTO を使用した Zen サーバーの監視
以下のトピックでは、Distributed Tuning Objects の監視グループを構成するオブジェクトについて説明します。
DtoMonitor オブジェクト
このオブジェクトは Zen サーバーに関する使用情報を提供します。このオブジェクトは、その他すべての監視操作のルート オブジェクトです。
プロパティ
コレクション
DtoMkdeClients コレクション
DtoOpenFiles コレクション
DtoSqlClients コレクション
オブジェクト
DtoCommStat オブジェクト
DtoSession オブジェクト
DtoMkdeVersion オブジェクト
メソッド
なし
'セッションのインスタンスを作成し、サーバーに接続する
Dim my_session as new DtoSession
Dim result as DtoResult
result = my_session.Connect("myserver", "username", "password")
 
'DtoSession から DtoMonitor オブジェクトを取得する
Dim session_monitor as DtoMonitor
Set session_monitor = my_session.Monitor
 
'現在使用中のファイルを取得する
Dim current_files as long
current_files = session_monitor.CurFilesInUse
関連項目
DtoOpenFiles コレクション
DtoMkdeClients コレクション
DtoOpenFiles コレクション
現在開いているファイルを表す DtoOpenFile オブジェクトのコレクションです。
プロパティ
メソッド
なし
備考
Count プロパティを使用してコレクション内のメンバー数を調べます。
DtoMonitor オブジェクトのプロパティを使って DtoOpenFiles コレクションを取得することができます。
'セッションのインスタンスを作成して接続する
Dim my_session as new DtoSession
Dim result as DtoResult
result = my_session.Connect("myserver", "username", "password")
 
'セッションからモニター オブジェクトを取得する
Dim my_monitor as DtoMonitor
Set my_monitor = my_session.Monitor
 
'モニターから開いているファイルを取得する
Dim my_openfiles as DtoOpenFiles
Set my_openfiles = my_monitor.OpenFiles
関連項目
DtoMonitor オブジェクト
DtoOpenFile オブジェクト
開いているファイルを表すオブジェクトです。
プロパティ
メソッド
なし
コレクション
DtoFileHandles コレクション
備考
このオブジェクトは現在開いているファイルを表します。開いているすべてのファイルのコレクションの場合は、DtoOpenFiles コレクションを使用します。
Dim my_session as new DtoSession
Dim is_read_only as Boolean
Dim my_monitor as DtoMonitor
Dim my_openfiles as DtoOpenFiles
Dim first_file as DtoOpenFile
Dim result as DtoResult
 
result = my_session.Connect("myserver", "username", "password")
Set my_monitor = my_session.Monitor
Set my_openfiles = my_monitor.OpenFiles
Set first_file = my_openfiles(1)
is_read_only = first_file.IsReadOnly
関連項目
DtoOpenFiles コレクション
DtoMonitor オブジェクト
DtoFileHandles コレクション
開いているファイルのすべてのファイル ハンドルを表す DtoFileHandle オブジェクトのコレクションです。
プロパティ
メソッド
なし
備考
Count プロパティを使用してコレクション内のメンバー数を調べます。
Dim my_session as new DtoSession
Dim my_monitor as DtoMonitor
Dim my_openfiles as DtoOpenFiles
Dim first_file as DtoOpenFile
Dim my_handles as DtoFileHandles
Dim result as DtoResult
 
result = my_session.Connect("myserver", "username", "password")
Set my_monitor = my_session.Monitor
Set my_openfiles = my_monitor.OpenFiles
Set first_file = my_openfiles.Item(1)
Set my_handles = first_file.FileHandles
関連項目
DtoFileHandle オブジェクト
DtoOpenFile オブジェクト
DtoMonitor オブジェクト
DtoFileHandle オブジェクト
開いているファイルのファイル ハンドルを表すオブジェクトです。
プロパティ
メソッド
なし
備考
DtoFileHandles コレクションを使って、開いているファイルのすべてのファイル ハンドルを取得します。
Dim my_session as new DtoSession
Dim my_openfiles as DtoOpenFiles
Dim first_file as DtoOpenFile
Dim my_handles as DtoFileHandles
Dim first_handle as DtoFileHandle
Dim locked_state as Boolean
Dim result as DtoResult
 
result = my_session.Connect("myserver", "username", "password")
Set my_monitor = my_session.Monitor
Set my_openfiles = my_monitor.OpenFiles
Set first_file = my_openfiles.Item(1)
Set my_handles = first_file.FileHandles
Set first_handle = my_handles.Item(1)
locked_state = first_handle.IsLocked
関連項目
DtoFileHandles コレクション
DtoOpenFile オブジェクト
DtoMonitor オブジェクト
DtoMkdeClients コレクション
MicroKernel エンジン クライアント オブジェクトのコレクションです。
プロパティ
メソッド
なし
備考
Count プロパティを使用してコレクション内のメンバー数を調べます。
'セッションのインスタンスを作成して接続する
Dim my_session as new DtoSession
Dim result as DtoResult
 
result = my_session.Connect("myserver", "username", "password")
 
'セッションからモニター オブジェクトを取得する
Dim my_monitor as DtoMonitor
Set my_monitor = my_session.Monitor
 
'モニターから MicroKernel エンジン クライアントを取得する
Dim my_mkdeclients as DtoMkdeClients
Set my_mkdeclients = my_monitor.MkdeClients
関連項目
DtoMkdeClient オブジェクト
DtoMonitor オブジェクト
DtoMkdeClient オブジェクト
アクティブな MicroKernel エンジン クライアントを表すオブジェクトです。
プロパティ
コレクション
DtoMkdeClientHandles コレクション
DtoMonitor オブジェクト
メソッド
Disconnect
備考
すべての MicroKernel エンジン クライアントを取得するには、DtoMkdeClients コレクションを使用します。
'セッションのインスタンスを作成して接続する
Dim my_session as new DtoSession
Dim result as DtoResult
result = my_session.Connect("myserver", "username", "password")
'セッションからモニター オブジェクトを取得する
Dim my_monitor as DtoMonitor
my_monitor = my_session.Monitor
 
'モニターから MicroKernel エンジン クライアントを取得する
Dim my_mkdeclients as DtoMkdeClients
Set my_mkdeclients = my_monitor.MkdeClients
 
'最初のクライアントを取得し、プロパティを照会する
Dim first_client as DtoMkdeClient
Dim num_locks as long
Set first_client = my_mkdeclients.Item(1)
num_locks = first_client.CurrentLocks
関連項目
DtoMkdeClientHandles コレクション
DtoMkdeClients コレクション
メソッドの詳細
Disconnect
特定の MicroKernel エンジン クライアントの接続を切断します。
構文
result = Object.Disconnect
引数
戻り値
メソッド呼び出しの結果を示す DtoResult(Long 型の値)。DtoSession オブジェクトError プロパティを使って結果の説明を取得します。
備考
接続を切断する MicroKernel エンジン クライアントごとにこのメソッドを呼び出します。
Dim result as DtoResult
result = my_mkdeclient.Disconnect
DtoMkdeClientHandles コレクション
DtoMkdeClientHandle オブジェクトのコレクションです。
プロパティ
メソッド
なし
備考
Count プロパティを使用してコレクション内のメンバー数を調べます。
'セッションのインスタンスを作成して接続する
Dim my_session as new DtoSession
Dim result as DtoResult
result = my_session.Connect("myserver", "username", "password")
 
'セッションからモニター オブジェクトを取得する
Dim my_monitor as DtoMonitor
Set my_monitor = my_session.Monitor
 
'モニターから MicroKernel エンジン クライアントを取得する
Dim my_mkdeclients as DtoMkdeClients
Set my_mkdeclients = my_monitor.MkdeClients
 
'最初のクライアントを取得し、そのクライアント ハンドルを取得する
Dim first_client as DtoMkdeClient
Dim my_clienthandles as DtoMkdeClientHandles
Set first_client = my_mkdeclients(1)
'すべてのハンドルを取得する場合は、ClientHandles コレクションを使用する
Set my_clienthandles = first_client.ClientHandles
 
'コレクション内のメンバー数を調べる
Dim num_clienthandles as Long
num_clienthandles = my_clienthandles.Count
関連項目
DtoMkdeClientHandle オブジェクト
DtoMonitor オブジェクト
DtoMkdeClientHandle オブジェクト
MicroKernel クライアント ハンドルを表すオブジェクトです。
プロパティ
メソッド
なし
備考
特定のクライアントのすべての MicroKernel クライアント ハンドルを取得するには、DtoMkdeClientHandles コレクションを使用します。
'セッションのインスタンスを作成して接続する
Dim my_session as new DtoSession
Dim result as DtoResult
result = my_session.Connect("myserver", "username", "password")
 
'セッションからモニター オブジェクトを取得する
Dim my_monitor as DtoMonitor
Set my_monitor = my_session.Monitor
 
'モニターから MicroKernel エンジン クライアントを取得する
Dim my_mkdeclients as DtoMkdeClients
Set my_mkdeclients = my_monitor.MkdeClients
 
'最初のクライアントを取得し、そのクライアント ハンドルを取得する
Dim first_client as DtoMkdeClient
Dim my_clienthandles as DtoMkdeClientHandles
Set first_client = my_mkdeclients(1)
Set my_clienthandles = first_client.MkdeClientHandles
 
'コレクション内のメンバー数を調べる
Dim num_clienthandles as long
num_clienthandles = my_clienthandles.Count
 
'最初のクライアント ハンドルを取得し、ファイル名を照会する
Dim first_clienthandle as DtoMkdeClientHandle
Dim fileName as string
Set first_clienthandle = my_clienthandles(1)
fileName = first_clienthandle.FileName
関連項目
DtoMkdeClientHandles コレクション
DtoMkdeClient オブジェクト
DtoMonitor オブジェクト
DtoCommStat オブジェクト
サーバーの使用情報を表すオブジェクトです。
プロパティ
DTO2 のみ:通信タイム アウトの総数を返します。
DTO2 のみ:Zen Auto Reconnect(自動再接続の有効化)機能を使用して再接続する総数を返します。詳細については、『Advanced Operations Guide』を参照してください。
コレクション
DtoProtocolStats コレクション
オブジェクト
DtoMonitor オブジェクト
メソッド
なし
備考
このオブジェクトのすべてのプロパティは Long 型整数の値を返します。
'セッションのインスタンスを作成して接続する
Dim my_session as new DtoSession
Dim result as DtoResult
result = my_session.Connect("myserver", "username", "password")
 
'セッションからモニター オブジェクトを取得する
Dim my_monitor as DtoMonitor
Set my_monitor = my_session.Monitor
 
'CommStat オブジェクトを取得する
Dim my_commstat as DtoCommStat
Set my_commstat = my_monitor.MkdeCommStat
 
'処理されたリクエストの総数を取得する
Dim requests as long
requests = my_commstat.RequestsProcessed
関連項目
DtoMonitor オブジェクト
DtoProtocolStats コレクション
DtoProtocolStat オブジェクト
DtoProtocolStats コレクション
DtoProtocolStat オブジェクトのコレクションです。
プロパティ
メソッド
なし
備考
Count プロパティを使用してコレクション内のメンバー数を調べます。
'セッションのインスタンスを作成して接続する
Dim my_session as new DtoSession
Dim result as DtoResult
result = my_session.Connect("myserver", "username", "password")
 
'セッションからモニター オブジェクトを取得する
Dim my_monitor as DtoMonitor
Set my_monitor = my_session.Monitor
 
'モニター オブジェクトから CommStat オブジェクトを取得する
Dim my_commstat as DtoCommStat
Set my_commstat = my_monitor.MkdeCommStat
 
'CommStat から ProtocolStats コレクションを取得する
Dim my_protocols as DtoProtocolStats
Set my_protocols = my_commstat.ProtocolStats
関連項目
DtoProtocolStat オブジェクト
DtoMonitor オブジェクト
DtoProtocolStat オブジェクト
通信プロトコルに関する情報を提供します。
プロパティ
メソッド
なし
備考
このオブジェクトを使って特定のプロトコルにアクセスするには、まず DtoMonitor オブジェクトDtoCommStat オブジェクトを使用して DtoProtocolStats コレクションを取得します。
このオブジェクトのすべてのプロパティは Long 型整数の値を返します。
このプロパティを使用して処理されたリクエスト数を取得するには、次のように記述します。
num_requests = Object.RequestsProcessed
現在のリモート セッション数を取得するには、次のように記述します。
RemoteSess_count = Object.CurRemoteSessions
関連項目
DtoProtocolStats コレクション
DtoCommStat オブジェクト
DtoMonitor オブジェクト
DtoSqlClients コレクション
サーバーのすべての SQL クライアントを表す DtoSqlClient オブジェクトのコレクションです。
プロパティ
メソッド
なし
備考
Count プロパティを使用してコレクション内のメンバー数を調べます。
'セッションのインスタンスを作成して接続する
Dim my_session as new DtoSession
Dim result as DtoResult
result = my_session.Connect("myserver", "username", "password")
 
'セッションからモニター オブジェクトを取得する
Dim my_monitor as DtoMonitor
Set my_monitor = my_session.Monitor
 
'モニター オブジェクトから SQL クライアントを取得する
Dim my_sqlclients as DtoSqlClients
Set my_sqlclients = my_monitor.SqlClients
関連項目
DtoSqlClient オブジェクト
DtoMonitor オブジェクト
DtoSqlClient オブジェクト
SQL クライアントに関する情報の照会および SQL クライアントの接続を切断することができます。
プロパティ
メソッド
Disconnect
備考
現在の SQL クライアントをすべて取得するには、DtoSqlClients コレクションを使用します。
'セッションのインスタンスを作成して接続する
Dim my_session as new DtoSession
Dim result as DtoResult
result = my_session.Connect("myserver", "username", "password")
 
'セッションからモニター オブジェクトを取得する
Dim my_monitor as DtoMonitor
Set my_monitor = my_session.Monitor
 
'モニター オブジェクトから SQL クライアントを取得する
Dim my_sqlclients as DtoSqlClients
Set my_sqlclients = my_monitor.SqlClients
 
'コレクションから最初のクライアントを取得し、
'それに関連付けられている DSN を見つける
Dim first_sqlclient as DtoSqlClient
Dim DSNname as string
Set first_sqlclient = my_sqlclients(1)
DSNname = first_sqlclient.DSN
関連項目
DtoSqlClients コレクション
DtoMonitor オブジェクト
メソッドの詳細
Disconnect
特定の SQL クライアントの接続を切断します。
構文
result = Object.Disconnect
引数
戻り値
メソッド呼び出しの結果を示す DtoResult(Long 型の値)。DtoSession オブジェクトError プロパティを使って結果の説明を取得します。
備考
接続を切断する SQL クライアントごとにこのメソッドを呼び出します。
result = my_sqlclient.Disconnect
DtoMkdeVersion オブジェクト
DTO2 のみ:MicroKernel エンジンのバージョンを表すオブジェクトです。
プロパティ
メソッド
なし
備考
DtoMonitor オブジェクトのプロパティを使って DtoMkdeVersion オブジェクトを取得することができます。
'セッションのインスタンスを作成して接続する
Dim my_session as new DtoSession
Dim result as DtoResult
result = my_session.Connect("myserver", "username", "password")
 
'セッションからモニター オブジェクトを取得する
Dim my_monitor as DtoMonitor
Set my_monitor = my_session.Monitor
 
'モニターから MkdeVersion オブジェクトを取得する
Dim my_mkdeversion as DtoMkdeVersion
MajorVer = my_mkdeversion.MajorVersion
関連項目
DtoMonitor オブジェクト
DtoEngineInformation オブジェクト
DTO2 のみ:データベース エンジンに関する情報を表すオブジェクトです。
プロパティ
メソッド
なし
備考
DtoSession オブジェクトのプロパティを使って DtoEngineInformation オブジェクトを取得することができます。
'セッションのインスタンスを作成して接続する
Dim my_session as new DtoSession
Dim result as DtoResult
result = my_session.Connect("myserver", "username", "password")
 
'セッションからエンジン情報を取得する
Dim my_engineInfo as DtoEngineInformation
Set my_engineInfo = my_session.EngineInformation
 
'エンジン情報のオブジェクトからクライアントのタイプを取得する
clientType = my_engineInfo.ServerClientType
関連項目
DtoSession オブジェクト