|
SQL クライアントに関する情報の照会および SQL クライアントの接続を切断することができます。
現在の 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
特定の SQL クライアントの接続を切断します。
result
|
メソッド呼び出しの結果を示す DtoResult(Long 型の値)。DtoSession オブジェクトの Error プロパティを使って結果の説明を取得します。
|
接続を切断する SQL クライアントごとにこのメソッドを呼び出します。
|