DtoSession オブジェクト
DtoSession オブジェクトは、ほとんどの DTO 操作のルート オブジェクトです。PSQL データベース エンジンへの接続を管理します。
プロパティ
 
コレクション
DtoCategories コレクション
DtoDatabases コレクション
DtoDSNs コレクション
オブジェクト
DtoMonitor オブジェクト
DtoServices オブジェクト
DtoLicenseMgr オブジェクト
DtoEngineInformation オブジェクト
メソッド
Connect メソッド
Disconnect メソッド
GetSetting メソッド
備考
DtoSession オブジェクトは、辞書を除くすべての操作の起点です。DtoSession を使用して、サーバーへの接続、カテゴリや設定などの設定情報の取得、データベースや DSN の調査、PSQL の使用情報の監視を行います。
DtoSession を使用するには、まずオブジェクトのインスタンスを作成し、Connect メソッドを使ってセッション オブジェクトのサーバーを指定します。
セッションの接続に使用するユーザー名とパスワードはそのマシン用のみです。これは、PSQL データベースに対して認証されるわけではありません。
メモ: ASP を使って、または Visual Basic の CreateObject メソッドを使ってこのオブジェクトのインスタンスを作成する場合、DtoSession のプログラム ID は "DTO.DtoSession.2"(DTO バージョン 2)または "DTO.DtoSession.1"(DTO バージョン 1)になります。これら 2 つのバージョンの違いについては、DTO2 を参照してください。
'セッション オブジェクトのインスタンスを作成する
Dim my_session as New DtoSession
 
'サーバーに接続する
result = my_session.Connect("myserver", "username", "password")
 
'Error プロパティを使って接続が正常かどうか確認する
if Not (result = Dto_Success)
Then Msgbox"Could not connect to the server.Error was "+ my_session.Error(result)
 
'セッション オブジェクトを使って、Category および Database
'コレクションを取得する
 
Dim my_categories as DtoCategories
Dim my_databases as DtoDatabases
Set my_categories = my_session.Categories
Set my_databases = my_session.Databases
関連項目
DtoCategories コレクション
DtoServices オブジェクト
DtoMonitor オブジェクト
DtoDatabases コレクション
DtoDSNs コレクション
メソッドの詳細
Connect メソッド
サーバーへの接続を開きます。
構文
Dim result as DtoResult
result = Object.Connect([server], [username], [password])
引数
戻り値
 
備考
サーバーへの接続はさまざまな理由で失敗することがあるので、このメソッドの戻り値をチェックしてプログラムから適切な処置を行ってください。
ユーザー名とパスワードを指定しない場合、guest としてログインを試みます。guest としてのログインが成功した場合、いくつかの機能が使用できません。
セッションが現在接続されているかどうかを確認するために isConnected プロパティをチェックしてください。
Dim result as DtoResult
Dim my_session as New DtoSession
result = my_session.Connect("myserver", "smook", "1234")
 
Dim result as DtoResult
Dim my_session as New DtoSession
my_session.UserName="smook"
my_session.Password="1234"
my_session.ServerName="myserver"
result = my_session.Connect
Disconnect メソッド
サーバへの接続を終了します。
構文
result = Object.Disconnect
引数
戻り値
 
備考
セッション オブジェクトを使用して別のサーバー、あるいは既存のアプリケーションへ接続する前に、接続しているすべてのサーバーに対してこのメソッドを呼び出す必要があります。
Dim result as DtoResult
Dim my_session as New DtoSession
result = my_session.Connect("myserver", "username", "pw")
'
'ここで操作を実行
'
result = my_session.Disconnect
GetSetting メソッド
設定 ID を使用して DtoSetting オブジェクトを取得します。
構文
Set my_setting = Object.GetSetting(setting_id)
引数
有効な設定 ID。DtoSetting オブジェクトにはそれぞれ一意に識別する SettingID プロパティがあります。特定のカテゴリのすべての設定を取得する場合は、DtoCategory オブジェクトの Settings プロパティを使用します。このメソッドは、取得する特定の設定が既にわかっていて、あらかじめそれらの設定 ID(setting_id)を保存している場合に利用できます。
戻り値
 
備考
このメソッドは、最初にカテゴリを取得して DtoSettings コレクションから検索することなく、指定した設定を取得する場合に利用できます。
Dim oSession As New DtoSession
Dim Result As dtoResult
Result = oSession.Connect("localhost", "", "")
 
Dim oSetting As DtoSetting
Dim settingFileversion As Integer
settingFileversion = 97
Set oSetting = oSession.GetSetting(settingFileversion)
 
If oSetting Is Nothing Then
  MsgBox "Invalid setting"
Else
  Dim new_selections As New DtoSelectionItems
  '0 = 9.5 '1 = 9.0 '2 = 8.x '3 = 7.x '4 = 6.x
  'これらはファイル形式の値です
 
  new_selections.Add oSetting.AllPossibleSelections.GetByID(0)
  oSetting.Value = new_selections
End If