IDalConnectionExt.PasswordExpired

Syntax

PasswordExpired: Boolean;

Description

The PasswordExpired property determines whether the password is expired.

Comments

Available values:

True. Password is expired. To change password, use the IDalConnectionExt.ChangeExpiredPassword method instead of the IDalConnection methods.
False. Password is valid.

Example

Executing the example requires the Warehouse schema located on the Test server and a user with specified name and password.

Add links to the Dal and Metabase system assemblies.

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 := "test";
    ConnectDescParams.Find("Password").Value := "test";
    ConnectDescParams.Find("Host BSTR").Value := "test";
    ConnectDescParams.Find("Schema").Value := "Warehouse";
    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("Password_1");
    End If;
End Sub UserProc;

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