DtoDSNs コレクション
DtoDSN オブジェクトのコレクションです。
プロパティ
Count | コレクション内のメンバー数を返します。 |
Item | DtoDSNs コレクションの特定のメンバーを返します。 |
メソッド
備考
Count プロパティを使用してコレクション内のメンバー数を調べます。
例
Dim my_session as New DtoSession
Dim result as DtoResult
result = my_session.Connect("myserver", "username", "password")
Dim my_dsns as DtoDSNs
Set my_dsns = my_session.DSNs
関連項目
メソッドの詳細
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.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