DTO を使用したカタログと辞書の作成および管理 : DtoDSN オブジェクト
 
このページをシェアする                  
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 オブジェクト