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