DtoDSN オブジェクト
PSQL 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 オブジェクト