|
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
DtoDatabases コレクションに項目を追加します。
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
DtoDatabases コレクションから項目を削除します。
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
|