DtoDSNs コレクション

DTO を使用したカタログと辞書の作成および管理 : DtoDSNs コレクション

このページをシェアする

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 から始まる）インデックスまたは項目の名前を含むバリアントを指定できます。

戻り値