Distributed Tuning Objects Guide (v11)

DtoDSN オブジェクト

Pervasive PSQL DSN を表すオブジェクトです。

プロパティ

DbName
DSN に関連付けられているデータベース名を取得または設定します。
Description
DSN の説明を設定または取得します。
Name
DSN の名前を設定または取得します。
OpenMode
DSN のオープン モード(列挙型)を設定または取得します。
可能な値のリストについては、DSN オープン モードを参照してください。
Session
この DtoDSN オブジェクトに関連付けられている DtoSession オブジェクトを取得または設定します。
Translate
エンコード変換を取得または設定します。これはデータベース エンジンとクライアント アプリケーション間で文字データをどのように変換するかを指定します。このプロパティは列挙型です。値のリストについては、DSN 変換オプションを参照してください。

メソッド

なし

備考

特定のデータベースに関する情報を取得するには、DtoDatabase オブジェクトを使用します。

DSN の関連するデータベース名を照会するには

'セッション オブジェクトのインスタンスを作成する 
Dim my_session as New DtoSession 
'サーバーに接続する 
my_session.Connect("myserver", "username", "password") 
'セッション オブジェクトを使用して Databases コレクションを取得する 
my_dsns = my_session.DSNs 
first_dsn = my_dsns.Item(1) 
dsn_dbname = first_dsn.DbName 

新しい DSN を追加するには

'セッション オブジェクトのインスタンスを作成する 
Dim my_session as New DtoSession 
Dim result as dtoResult 
 
'サーバーに接続する 
result = my_session.Connect("myserver", "username", 
"password") 
'セッション オブジェクトを使用して DSNs コレクションを取得する 
Dim my_dsns as DtoDSNs 
Set my_dsns = my_session.DSNs 
 
'新しい DtoDSN オブジェクトを作成する 
Dim NewDSN as New DtoDSN 
NewDSN.DbName = "DEMODATA" 
NewDSN.Description = "A DSN for the DEMODATA db" 
NewDSN.Name = "Demodata_DSN" 
 
'新しい DSN をコレクションに追加する 
result = my_dsns.Add(NewDSN) 

エンコード変換を取得または設定するには

Dim m_dtoSession1 As New DtoSession 
Dim result As dtoResult 
result = m_dtoSession1.Connect("localhost", "", "") 
Dim sTranslate As String 
Dim iTranslate As Integer 
iTranslate = m_dtoSession1.DSNs("DEMODATA").Translate 
If iTranslate = 0 Then sTranslate = "None" 
If iTranslate = 1 Then sTranslate = "OEM/ANSI Conversion" 
If iTranslate = 2 Then sTranslate = "Automatic" 
 
MsgBox "DSN Translate Setting (before change):" & 
sTranslate 
If result = Dto_Success Then 
  Rem set the encoding translation. 
  m_dtoSession1.DSNs("DEMODATA").Translate = 1 
End If 
iTranslate = m_dtoSession1.DSNs("DEMODATA").Translate 
If iTranslate = 0 Then sTranslate = "None" 
If iTranslate = 1 Then sTranslate = "OEM/ANSI Conversion" 
If iTranslate = 2 Then sTranslate = "Automatic" 
 
MsgBox "DSN Translate Setting (after change):" & 
sTranslate 
m_dtoSession1.Disconnect 

関連項目

DtoDSNs コレクション

DtoSession オブジェクト


DtoDSNs コレクション

DtoDictionary オブジェクト