引数
このメソッドの引数は、次のとおりです。
引数 | 説明 |
---|---|
[in ] database_name |
データベースへの接続時に使用されるOracleネットワーク指定子を表す文字列。
|
[in ] user_name |
パスワードを変更するユーザーを表す文字列。
|
[in ] current_password |
ユーザーの現在のパスワードを表す文字列。
|
[in ] new_password |
ユーザー・アカウントに新しく設定するパスワードを表す文字列。
|
備考
このメソッドは、パスワードの期限が切れた場合に特に有効です。期限が切れた場合、OpenDatabase
またはCreateDatabasePool
メソッドは次のエラーを戻す可能性があります。
ORA-28001 "the password has expired".
例
Dim OraSession As OraSession Dim OraDatabase As OraDatabase Dim password as String 'Note: The DBA could expire scott's password by issuing 'ALTER USER SCOTT PASSWORD EXPIRE Set OraSession = CreateObject("OracleInProcServer.XOraSession") password = "tiger" On Error GoTo err: Set OraDatabase = OraSession.OpenDatabase("ExampleDb", "scott/" & password, 0&) End err: 'Check for password expiration error If OraSession.LastServerErr = 28001 Then OraSession.ChangePassword "ExampleDb", "scott", password, "newpass" 'reset our password variable, then try OpenDatabase again password = "newpass" Resume End If End