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")
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")
Dim my_dsns as DtoDSNs
Set my_dsns = my_session.DSNs
Dim NewDSN as New DtoDSN
NewDSN.DbName = "DEMODATA"
NewDSN.Description = "A DSN for the DEMODATA db"
NewDSN.Name = "Demodata_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
関連項目