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