DTO を使用したカタログと辞書の作成および管理 : DtoDatabases コレクション
 
このページをシェアする                  
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