|
DtoDSN オブジェクトのコレクションです。
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
DtoDSNs コレクションに項目を追加し、サーバーに DSN を作成します。
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
DtoDSNs コレクションから DSN 項目を削除し、サーバーからも削除します。
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
|