Distributed Tuning Objects Guide (v11)

DtoDSNs コレクション

DtoDSN オブジェクトのコレクションです。

プロパティ

Count
コレクション内のメンバー数を返します。
Item
DtoDSNs コレクションの特定のメンバーを返します。

メソッド

Add メソッド

Remove メソッド

備考

Count プロパティを使用してコレクション内のメンバー数を調べます。

'セッション オブジェクトのインスタンスを作成する 
Dim my_session as New DtoSession 
Dim result as DtoResult 
 
'サーバーに接続する 
result = my_session.Connect("myserver", "username", 
"password") 
 
'DSN コレクションを取得する 
Dim my_dsns as DtoDSNs 
Set my_dsns = my_session.DSNs 

関連項目

DtoDSN オブジェクト

DtoSession オブジェクト

メソッドの詳細

Add メソッド

DtoDSNs コレクションに項目を追加し、サーバーに DSN を作成します。

構文

result = Collection.Add(Object) 

引数

Collection
オブジェクトを追加する DtoDSNs コレクション。
Object
新しい DtoDSN オブジェクト。

戻り値

result
メソッド呼び出しの結果を示す DtoResult(Long 型の値)。DtoSession オブジェクトの Error プロパティを使って結果の説明を取得します。

備考

このメソッドはオブジェクト タイプのパラメーターを使用します。このため、コレクションにオブジェクトを追加する前に、まずオブジェクトのインスタンスを作成してそのプロパティを設定する必要があります。

Dim result As dtoResult 
Dim DSNs As DtoDSNs 
Dim dsn As DtoDSN 
 
Set dsn = New DtoDSN 
 
'新しい DSN にプロパティを設定する  
dsn.Name = "MyDemodata_DSN" 
dsn.Description = "a sample DSN" 
dsn.Dbname = "MyDemodata" 
dsn.Openmode = dtoNormalDSNOpenMode 
 
result = my_session.DSNs.Add(dsn) 
If NOT result = Dto_Success Then 
  MsgBox "Error"+ my_session.Error(result) 
End If 

Remove メソッド

DtoDSNs コレクションから DSN 項目を削除し、サーバーからも削除します。

構文

result = Collection.Remove(dsn) 

引数

Collection
オブジェクトを削除するコレクション。
dsn
コレクションから削除する項目の(1 から始まる)インデックスまたは項目の名前を含むバリアントを指定できます。

戻り値

result
メソッド呼び出しの結果を示す DtoResult(Long 型の値)。DtoSession オブジェクトの Error プロパティを使って結果の説明を取得します。

備考

このメソッドでは、関連するデータベースまたはデータベース名を削除しません。

Dim result As dtoResult 
Dim DSNs As DtoDSNs 
result = my_session.DSNs.Remove("MYDSN") 
If NOT result = Dto_Success Then 
  MsgBox "Error"+ my_session.Error(result) 
End If 

DtoDatabase オブジェクト

DtoDSN オブジェクト