|
DtoSession オブジェクトは、ほとんどの DTO 操作のルート オブジェクトです。Pervasive PSQL データベース エンジンへの接続を管理します。
Connected
|
Session オブジェクトが Pervasive PSQL エンジンに接続するかどうかを示すブール値を返します。
True = 接続されています
False = 接続されていません
|
Error
|
最後のメソッド呼び出しのエラーを返します。メソッド呼び出しの結果を渡し、エラーを説明する dtoResult 文字列を返します。
エラー コードの一覧については DtoResult を参照してください。
|
ServerName
|
DtoSession オブジェクトのサーバ名を取得または設定します。
|
UserName
|
オブジェクトのユーザー名を設定します。
|
Password
|
セッションのパスワードを設定します。
|
DtoSession オブジェクトは、辞書を除くすべての操作の起点です。DtoSession を使用して、サーバーへの接続、カテゴリや設定などの設定情報の取得、データベースや DSN の調査、Pervasive PSQL の使用情報のモニターを行います。
DtoSession を使用するには、まずオブジェクトのインスタンスを作成し、Connect メソッドを使ってセッション オブジェクトのサーバーを指定します。
セッションの接続に使用するユーザー名とパスワードはそのマシン用のみです。これは、Pervasive 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
サーバーへの接続を開きます。
サーバーへの接続はさまざまな理由で失敗することがあるので、このメソッドの戻り値をチェックしてプログラムから適切な処置を行ってください。
ユーザー名とパスワードを指定しない場合、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
サーバへの接続を終了します。
セッション オブジェクトを使用して別のサーバー、あるいは既存のアプリケーションへ接続する前に、接続しているすべてのサーバーに対してこのメソッドを呼び出す必要があります。
Dim result as DtoResult Dim my_session as New DtoSession result = my_session.Connect("myserver", "username", "pw") ' 'ここで操作を実行 ' result = my_session.Disconnect
設定 ID を使用して DtoSetting オブジェクトを取得します。
Object
|
DtoSession オブジェクト
|
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
|