|
DataPath
|
データベースのデータの場所を取得または設定します。
|
DbCodePage
|
データベースのコード ページを取得または設定します。このプロパティは列挙型です。値のリストについては、データベース コード ページを参照してください。ゼロの値はサーバーのエンコード(データベース エンジンを起動しているサーバーのコード ページ)を指定します。
|
DbFlags
|
データベースのデータベース フラグを取得または設定します。このプロパティは列挙型です。値のリストについては、データベース フラグを参照してください。
|
DdfPath
|
データベースの辞書のパスを取得または設定します。
|
Name
|
データベースの名前を設定または取得します。
|
Secured
|
データベースにセキュリティが設定されているかどうかを返します(0 = セキュリティ未設定、1 = セキュリティ設定済み)
|
Session
|
この DtoDatabase オブジェクトに関連付けられている Session オブジェクトを取得または設定します。
|
Secure メソッドおよび UnSecure メソッドは、データベースが閉じている場合にのみ使用可能です。
以下の例では、セッション オブジェクトのインスタンスを作成し、サーバーに接続する方法を示します。
'セッション オブジェクトのインスタンスを作成し、サーバーに接続する Dim my_session as New DtoSession Dim result as DtoResult result = my_session.Connect("myserver", "username", "password") 'セッション オブジェクトを使用して Databases コレクションを取得する Dim my_databases as DtoDatabases Set my_databases = my_session.Databases '最初のデータベースを取得し、その辞書のパスを照会する Dim first_database as DtoDatabase Dim dictionarypath as string Set first_database = my_databases(1) dictionarypath = first_database.DdfPath
以下の例では、Demodata サンプル データベースで DBCodePage プロパティを使用したコード ページの取得および設定方法を示します。
Dim m_dtoSession1 As New DtoSession Dim result As dtoResult result = m_dtoSession1.Connect("localhost", "", "") Dim sCodePage As String sCodePage = m_dtoSession1.Databases("DEMODATA").DBCodePage MsgBox "Code Page for database (before change):" & CStr(sCodePage) If result = Dto_Success Then Rem Set the code page for the database by passing in Rem the code page number (for example, 0, 932, 1252, Rem and so forth). m_dtoSession1.Databases("DEMODATA").DBCodePage = 0 End If MsgBox "Code Page for database:" & CStr(m_dtoSession1.Databases("DEMODATA").DBCodePage) m_dtoSession1.Disconnect
既存ユーザーをデータベースの既存グループに追加します。
この関数は、指定したグループまたはユーザーがデータベースにあらかじめ存在していない場合や、ユーザーが別のグループのメンバーである場合は失敗します。
以下の前提条件を満たす必要があります。
次の事後条件を満たす必要があります。
Function AddUserToGroup(sUserName As String, sGroupName As String) As Boolean Dim res As dtoResult Dim m_dbn As New DtoDatabase Dim m_dbn.Session = m_dto Dim m_dbn.Name = "demodata" res = m_dbn.Open("Master", "1234") If res = Dto_Success Then '正常に開いたら、グループにユーザーを追加しましょう res = m_dbn.AddUserToGroup(sUserName, sGroupName) If res <> Dto_Success Then LogResult("グループへのユーザーの追加でエラーが発生しまし た:" & CStr(res)) Else LogResult("ユーザー " & sUserName & " がグループ " & sGroupName & " に追加されました。") End If End If m_dbn.Close End Function
指定されたデータベースの既存のユーザーの名前を変更します。
Object
|
Dtodatabase オブジェクト。
|
username
|
既存のデータベース ユーザーの名前。
|
new_username
|
データベース ユーザーの新しい名前。ヌルを設定すると関数は失敗します。
|
以下の前提条件を満たす必要があります。
次の事後条件を満たす必要があります。
Function AlterUserName(sUserName As String, sNewUserName As String) As Boolean Dim res As dtoResult Dim m_dbn As New DtoDatabase Dim m_dbn.Session = m_dto Dim m_dbn.Name = "demodata" res = m_dbn.Open("Master", "1234") If res = Dto_Success Then '正常に開いたら、ユーザー名を変更しましょう res = m_dbn.AlterUserName(sUserName, sNewUserName) If res <> Dto_Success Then LogResult("ユーザー名の変更でエラーが発生しました:" & CStr(res)) Else LogResult("ユーザー名は正常に変更されました。新しいユーザー 名:" & sNewUserName) End If End If m_dbn.Close End Function
既存のユーザーのパスワードを変更します。
Object
|
Dtodatabase オブジェクト。
|
username
|
パスワードを変更するデータベース ユーザーの名前。
|
new_password
|
ユーザーの新しいパスワード。ヌルを設定するとパスワードがクリアされます。
|
以下の前提条件を満たす必要があります。
次の事後条件を満たす必要があります。
Function AlterUserPassword(sUser As String, sNewPassword As String) As Boolean Dim res As dtoResult Dim m_dbn As New DtoDatabase Dim m_dbn.Session = m_dto Dim m_dbn.Name = "demodata" res = m_dbn.Open("Master", "1234") If res = Dto_Success Then '正常に開いたら、ユーザーのパスワードを変更しましょう res = m_dbn.AlterUserPassword(sUser, sNewPassword) If res <> Dto_Success Then LogResult("ユーザーのパスワードの変更でエラーが発生しまし た:" & CStr(res)) Else LogResult("ユーザーのパスワードは正常に変更されました。") End If End If m_dbn.Close End Function
Open メソッドを使用して開いたデータ辞書ファイルのセットを閉じます。
result
|
メソッド呼び出しの結果を示す DtoResult(Long 型の値)。DtoSession オブジェクトの Error プロパティを使って結果の説明を取得します。
|
Open メソッドを使ってデータベースを開い後にこのメソッドを呼び出します。エラー情報は Error プロパティを使って取得することができます。
Dim m_database as new DtoDatabase Dim result as DtoResult result = m_database.Open("dbuser","pwd") 'ここで操作を実行 ' result = m_database.Close
現在のデータベースを基にして新しいデータベースを作成します。
result
|
メソッド呼び出しの結果を示す DtoResult(Long 型の値)。DtoSession オブジェクトの Error プロパティを使って結果の説明を取得します。
|
コピーされたデータベースにおいて参照整合性は保持されます。
このメソッドで返されるエラーの詳細については、Error プロパティを使って取得することができます。
Dim Database As New DtoDatabase Dim result as DtoResult Database.Session = my_session 'セッションが存在すると仮定 Database.Name = "DEMODATA" 'セキュリティが設定されていないデータベースでは 'ユーザー名とパスワードは不要 result = Database.Copy("", "", "DEMODATA2", "D:¥DEMODATA2", "D:¥DEMODATA2") If NOT result = Dto_Success Then MsgBox "Error"+ Session.Error(result) End If
既存のデータベースに新しいユーザー グループを作成します。
以下の前提条件を満たす必要があります。
次の事後条件を満たす必要があります。
Function CreateGroup(sGroupName As String) As Boolean Dim res As dtoResult Dim m_dbn As New DtoDatabase Dim m_dbn.Session = m_dto Dim m_dbn.Name = "demodata" res = m_dbn.Open("Master", "1234") If res = Dto_Success Then '正常に開いたら、グループを作成しましょう res = m_dbn.CreateGroup(sGroupName) If res <> Dto_Success Then LogResult("グループの作成でエラーが発生しました:" & CStr(res)) Else LogResult("グループ " & sGroupName & " が作成されました。") End If End If m_dbn.Close End Function
既存のデータベースに新しいユーザーを作成します。任意で、パスワードを設定することと、新しいユーザーを既存のグループに割り当てることができます。
Object
|
Dtodatabase オブジェクト。
|
username
|
データベースに追加するユーザーの名前。
|
password
|
ユーザー パスワード。ヌルを設定するとパスワードは設定されません。
|
groupname
|
ユーザーを割り当てるデータベース グループの名前。ヌルを設定するとユーザーはグループに割り当てられません。
|
以下の前提条件を満たす必要があります。
次の事後条件を満たす必要があります。
Function CreateUser(sUserName As String, sPassword As String, sGroupName As String) As Boolean Dim res As dtoResult Dim m_dbn As New DtoDatabase Dim m_dbn.Session = m_dto Dim m_dbn.Name = "demodata" res = m_dbn.Open("Master", "1234") If res = Dto_Success Then '正常に開いたら、グループを作成しましょう res = m_dbn.CreateUser(sUserName, sPassword, sGroupName) If res <> Dto_Success Then LogResult("ユーザーの作成でエラーが発生しました:" & CStr(res)) Else LogResult("ユーザー " & sUserName & " がグループ " & sGroupName & " に作成されました。") End If End If m_dbn.Close End Function
データベースから既存のグループを削除します。
以下の前提条件を満たす必要があります。
次の事後条件を満たす必要があります。
Function DropGroup(sGroupName As String) As Boolean Dim res As dtoResult Dim m_dbn As New DtoDatabase Dim m_dbn.Session = m_dto Dim m_dbn.Name = "demodata" res = m_dbn.Open("Master", "1234") If res = Dto_Success Then '正常に開いたら、グループを削除しましょう res = m_dbn.DropGroup(sGroupName) If res <> Dto_Success Then LogResult("グループの削除でエラーが発生しました:" & CStr(res)) Else LogResult("グループ " & sGroupName & " が削除されました。") End If End If m_dbn.Close End Function
データベースから既存のユーザーを削除します。
以下の前提条件を満たす必要があります。
次の事後条件を満たす必要があります。
Function DropUser(sUserName As String) As Boolean Dim res As dtoResult Dim m_dbn As New DtoDatabase Dim m_dbn.Session = m_dto Dim m_dbn.Name = "demodata" res = m_dbn.Open("Master", "1234") If res = Dto_Success Then '正常に開いたら、ユーザーを削除しましょう res = m_dbn.DropUser(sUserName) If res <> Dto_Success Then LogResult("ユーザーの削除でエラーが発生しました:" & CStr(res)) Else LogResult("ユーザー " & sUserName & " の削除は完了しま した。") End If End If m_dbn.Close End Function
指定したユーザー名とパスワードでデータベースへの接続を開きます。
Object
|
DtoDatabase オブジェクト
|
username
|
データベース用のユーザー名です。データベースにセキュリティが設定されていない場合、空の文字列を設定します。
|
password
|
データベース用のパスワードです。データベースにセキュリティが設定されていない場合、空の文字列を設定します。
|
result
|
メソッド呼び出しの結果を示す DtoResult(Long 型の値)。DtoSession オブジェクトの Error プロパティを使って結果の説明を取得します。
|
この操作は、辞書ファイルのセットを開く手段として使用されます。このセットには、FILE.DDF、INDEX.DDF および FIELD.DDF が含まれます。また、多くのオプション DDF ファイルも含まれています。メモリを解放するために Close メソッドを呼び出すことを忘れないでください。データベースを一度開くと、Close メソッドが呼び出されるまでほかの誰もその辞書セットに変更を行うことができません。
データベースが開いている間は、Secure または UnSecure メソッドを実行できません。
このメソッドで返されるエラーの詳細については、DtoSession オブジェクトの Error プロパティを使って取得することができます。
Dim m_session as new DtoSession Dim m_database as new DtoDatabase Dim result as DtoResult result = m_session.Connect("myserver","user","pwd") m_database.Session = m_session m_database.Name = "DEMODATA" result = m_database.Open("dbuser","pwd")
既存のグループから既存のユーザーを削除します。
以下の前提条件を満たす必要があります。
次の事後条件を満たす必要があります。
Function RemoveUserFromGroup(sUserName As String, sGroupName As String) As Boolean Dim res As dtoResult Dim m_dbn As New DtoDatabase Dim m_dbn.Session = m_dto Dim m_dbn.Name = "demodata" res = m_dbn.Open("Master", "1234") If res = Dto_Success Then '正常に開いたら、グループからユーザーを削除しましょう res = m_dbn.RemoveUserFromGroup(sGroupName, sUserName) If res <> Dto_Success Then LogResult("グループからのユーザーの削除でエラーが発生しまし た:" & CStr(res)) Else LogResult("ユーザー " & sUserName & " をグループ " & sGroupName & " から削除しました。") End If End If m_dbn.Close End Function
データベースのセキュリティを有効にします。
result
|
メソッド呼び出しの結果を示す DtoResult(Long 型の値)。DtoSession オブジェクトの Error プロパティを使って結果の説明を取得します。
|
データベースのセキュリティを有効にする際、データベース ユーザーとして Master を指定し、パスワードを選択する必要があります。データベースのセキュリティは、そのデータベースに定義されているアクセス権に基づいて施行されます。このセキュリティは SQL または ODBC インターフェイスで見られる動作と一致します。
セキュリティを設定する場合は、データベースが閉じていることを確認してください。
このメソッドで返されるエラーの詳細については、DtoSession オブジェクトの Error プロパティを使って取得することができます。
Dim m_database as new DtoDatabase Dim result as DtoResult m_database.Name = "DEMODATA" m_database.Session = my_session 'セッションが存在すると仮定 result = m_database.Secure("Master", "password")
データベースのセキュリティを無効にします。
result
|
メソッド呼び出しの結果を示す DtoResult(Long 型の値)。DtoSession オブジェクトの Error プロパティを使って結果の説明を取得します。
|
データベースのセキュリティを無効にする際、データベース ユーザーとして Master を指定し、Master ユーザー パスワードを提供する必要があります。
セキュリティを無効にする場合は、データベースが閉じていることを確認してください。
このメソッドで返されるエラーの詳細については、DtoSession オブジェクトの Error プロパティを使って取得することができます。
Dim m_database as new DtoDatabase Dim result as DtoResult m_database.Name = "DEMODATA" m_database.Session = my_session 'セッションが存在すると仮定 result = m_database.UnSecure("Master", "password")
|