PasswordExpired: Boolean;
The PasswordExpired property determines whether the password is expired.
Available values:
True. Password is expired. To change password, use the IDalConnectionExt.ChangeExpiredPassword method instead of the IDalConnection methods.
False. Password is valid.
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.
See also: