IDalConnectionDescriptorExt.CreateConnectionExt

Синтаксис

CreateConnectionExt(AllowPasswordExpiredConection: Boolean): IDalConnection;

Параметры

AllowPasswordExpiredConection. Определяет, будет ли произведено соединение, в случае если срок действия пароля истек. Значение True разрешает соединение при истекшем пароле, значение False запрещает соединение.

Описание

Метод CreateConnectionExt возвращает ошибку или создает соединение с сервером БД, в случае если срок действия пароля пользователя истек. Если значение параметра AllowPasswordExpiredConection True, то при возникновении ошибки будет создано соединение, при значении False будет возвращена ошибка.

Пример

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;

После выполнения примера будет создано подключение к БД, в случае если срок действия пароля пользователя истек, то он будет изменен.

См. также:

IDalConnectionDescriptorExt