IDalConnectionDescriptorExt.CreateConnectionExt

Syntax

CreateConnectionExt(AllowPasswordExpiredConection: Boolean): IDalConnection;

Parameters

AllowPasswordExpiredConection. It determines whether the connection will be established if password expired. The True value allows for connection if the password is expired, the False value forbids connection.

Description

The CreateConnectionExt method returns the error or creates a connection with the database server if the user password is expired. If the AllowPasswordExpiredConection parameter is set to True, the connection is created if the error occurs; if the value is False, the error is returned.

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.