Distributed Tuning Objects Guide (v11)

DtoDatabases コレクション

プロパティ

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

メソッド

Add メソッド

Remove メソッド

備考

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

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

関連項目

DtoDatabase オブジェクト

DtoSession オブジェクト

メソッドの詳細

Add メソッド

DtoDatabases コレクションに項目を追加します。

構文

result = Collection.Add(Object[, dsnName]) 

引数

Collection
オブジェクトを追加する DtoDatabases コレクション。
Object
新しい DtoDatabase オブジェクト。
dsnName
省略可能。新しいデータベースの標準サーバー DSN を作成します。

戻り値

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

備考

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

このメソッドは、指定したデータベースをコレクションとサーバー上の基となる DBNAMES.CFG ファイルに追加します。

Dim result As dtoResult 
Dim database As DtoDatabase 
 
Set database = New DtoDatabase 
'新しいデータベースにプロパティを設定する  
database.Name = "MyDemodata" 
database.DdfPath = "C:¥test" 
database.DataPath = "C:¥test" 
database.Flags = dtoDbFlagCreateDDF + dtoDbFlagRI 
 
result = my_session.Databases.Add(database) 
If NOT result = Dto_Success Then 
   MsgBox "Error"+ Session.Error(result) 
End If 

Remove メソッド

DtoDatabases コレクションから項目を削除します。

構文

result = Collection.Remove(database[, deleteDDF]) 

引数

Collection
オブジェクトを削除するコレクション。
database
コレクションから削除する項目の(1 から始まる)インデックスまたは項目のデータベース名を含むバリアントを指定できます。
deleteDDF
辞書ファイルを削除するには True を設定します。
辞書ファイルを完全に残す場合は False を設定します。

戻り値

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

備考

このメソッドは、データベース コレクションおよび基となる DBNAMES.CFG ファイルから項目を削除します。

Dim result As dtoResult 
result = my_session.Databases.Remove("MyDemodata",1) 
If NOT result = Dto_Success Then 
   MsgBox "Error"+ my_session.Error(result) 
End If 

DTO を使用したカタログと辞書の作成および管理

DtoDatabase オブジェクト