IDalConnectionExt.PasswordExpired

Syntax

PasswordExpired: Boolean;

Description

The PasswordExpired property determines whether the password is expired.

Comments

If the property returns True, the password is expired; if property returns False, the password is valid. If this property returns True, it is impossible to activate all IDalConnection methods, it is necessary to use the ChangeExpiredPassword method to change the password.

Example

Sub UserProc;

Var

MB: IMetabase;

Driv: IDalDriver;

ConnectDesc: IDalConnectionDescriptor;

ConnectDescParams: IDalConnectionDescriptorParams;

connection_ext : IDalConnectionExt;

connection_ext_desc: IDalConnectionDescriptorExt;

dal_con :IDalConnection;

Begin

MB := MetabaseClass.Active;

Driv := New DalOrcl8Driver.Create;

ConnectDesc := Driv.CreateDescriptor;

ConnectDescParams := ConnectDesc.Params;

ConnectDescParams.Find("User Name").Value := "student_p5";

ConnectDescParams.Find("Password").Value := "student_p5";

ConnectDescParams.Find("Host BSTR").Value := "test";

ConnectDescParams.Find("Schema").Value := "student_p5";

connection_ext_desc := ConnectDesc As IDalConnectionDescriptorExt;

dal_con := connection_ext_desc.CreateConnectionExt(True);

connection_ext := dal_con As IDalConnectionExt;

If connection_ext.PasswordExpired Then

connection_ext.ChangeExpiredPassword("student00");

End If;

End Sub UserProc;

After executing the example a database connection is created. If the password is expired, it will be changed.