DtoSession オブジェクト
DtoSession オブジェクトは、ほとんどの DTO 操作のルート オブジェクトです。Zen データベース エンジンへの接続を管理します。
プロパティ
Connected | Session オブジェクトが Zen エンジンに接続するかどうかを示すブール値を返します。 True = 接続されています False = 接続されていません |
Error | 最後のメソッド呼び出しのエラーを返します。メソッド呼び出しの結果を渡し、エラーを説明する dtoResult 文字列を返します。 エラー コードの一覧については DtoResult を参照してください。 |
ServerName | DtoSession オブジェクトのサーバ名を取得または設定します。 |
UserName | オブジェクトのユーザー名を設定します。 |
Password | セッションのパスワードを設定します。 |
コレクション
オブジェクト
メソッド
備考
DtoSession オブジェクトは、辞書を除くすべての操作の起点です。DtoSession を使用して、サーバーへの接続、カテゴリや設定などの設定情報の取得、データベースや DSN の調査、Zen の使用情報の監視を行います。
DtoSession を使用するには、まずオブジェクトのインスタンスを作成し、Connect メソッドを使ってセッション オブジェクトのサーバーを指定します。
セッションの接続に使用するユーザー名とパスワードはそのマシン用のみです。これは、Zen データベースに対して認証されるわけではありません。
メモ：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")
if Not (result = Dto_Success)
Then Msgbox"Could not connect to the server.Error was "+ my_session.Error(result)
Dim my_categories as DtoCategories
Dim my_databases as DtoDatabases
Set my_categories = my_session.Categories
Set my_databases = my_session.Databases
関連項目
メソッドの詳細
Connect メソッド
サーバーへの接続を開きます。
構文
Dim result as DtoResult
result = Object.Connect([server], [username], [password])
引数
Object | DtoSession オブジェクト |
server | （省略可能）接続するサーバーの名前。省略した場合、ローカル サーバーへの接続を試行します。また、先に ServerName プロパティを設定しておき、このパラメーターを指定しないで Connect メソッドを呼び出すこともできます。 |
username | （省略可能）サーバーのユーザー名。先に UserName プロパティを設定しておき、このパラメーターを指定しないで Connect メソッドを呼び出すこともできます。 |
password | （省略可能）ユーザーのパスワード。先に Password プロパティを設定しておき、このパラメーターを指定しないで Connect メソッドを呼び出すこともできます。 |
戻り値
result | メソッド呼び出しの結果を示す DtoResult（Long 型の値）。Error プロパティを使って結果の説明を取得します。 |
備考
サーバーへの接続はさまざまな理由で失敗することがあるので、このメソッドの戻り値をチェックしてプログラムから適切な処置を行ってください。
ユーザー名とパスワードを指定しない場合、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
引数
戻り値
result | メソッド呼び出しの結果を示す DtoResult（Long 型の値）。Error プロパティを使って結果の説明を取得します。 |
備考
セッション オブジェクトを使用して別のサーバー、あるいは既存のアプリケーションへ接続する前に、接続しているすべてのサーバーに対してこのメソッドを呼び出す必要があります。
例
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)
引数
Object | DtoSession オブジェクト |
setting_id | 有効な設定 ID。DtoSetting オブジェクトにはそれぞれ一意に識別する SettingID プロパティがあります。特定のカテゴリのすべての設定を取得する場合は、 DtoCategory オブジェクトの Settings プロパティを使用します。このメソッドは、取得する特定の設定が既にわかっていて、あらかじめそれらの設定 ID（setting_id）を保存している場合に利用できます。 |
戻り値
my_setting | DtoSetting オブジェクト。指定した設定が見つからなかった場合は、NULL が返されます。 |
備考
このメソッドは、最初にカテゴリを取得して 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 '5 = 13.0
'これらはファイル形式の値です
new_selections.Add oSetting.AllPossibleSelections.GetByID(0)
oSetting.Value = new_selections
End If