ChangePassword(OraSession)メソッド

適用対象

説明

ユーザーのパスワードを変更します。

使用方法

OraSession.ChangePassword database_name, user_name, current_password, new_password

引数

このメソッドの引数は、次のとおりです。

引数	説明
[`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