then ConnectOptions := coConnectünspecified;
end;

Кстати, параметр синхронности/асинхронности можно также задать при помощи свойства

ConnectOptions property ConnectOptions: TConnectCption;

После открытия соединения для выполнения собственного кода можно использовать метод-обработчик

TConnectErrorEvent = procedure(Connection: TADCConnection;
Error: Error;
var Eventstatus: TEventStatus) of object;
property OnConnectComplete: TConnectErrorEvent ;

Здесь, если в процессе открытия соединения возникла ошибка, параметр

Eventstatus будет равен esErrorsOccured, а параметр Error содержит объект ошибки ADO.

Теперь перейдем к вспомогательным свойствам и методам компонента TADOConnection, обеспечивающим соединение.

Для ограничения времени открытия соединения для медленных каналов связи используется свойство

property ConnectionTimeout: Integer;

задающее время ожидания открытия соединения в секундах. По умолчанию оно равно 15 сек.

Также можно определить реакцию компонента на неиспользуемое соединение. Если через соединение не подключен ни один активный компонент, свойство

property KeepConnection: Boolean;

в значении True сохраняет соединение открытым. Иначе, после закрытия последнего связанного компонента ADO, соединение закрывается.

При необходимости провайдер соединения ADO определяется напрямую свойством

property Provider: WideString;

Имя источника данных по умолчанию задается свойством

property Def aultDatabase: WideString;

Но если этот же параметр указан в строке соединения, то он перекрывает собой значение свойства.

При необходимости прямой доступ к объекту соединения OLE DB обеспечивает свойство

property ConnectionObject: _Connection;

При открытии соединения необходимо вводить имя пользователя и его пароль. Появление стандартного диалога управляется свойством

property LoginPrompt.- Boolean;

Без этого диалога для задания данных параметров можно использовать свойство connectionstring, метод Open (см. выше) или метод-обработчик

type TIxginEvent = procedure (Sender: TObject;
Username, Password: string) of object;

property CnLogin: TIxginEvent; Свойство

type TConnectMode = (cmUnknown, cmRead, cmWrite, cmReadWrite, cmShareDenyRead, cmShareDenyWrite, СЛЙВГеВ<с1шгл/е, cmShareDenyNone) ;
property Mode: uTJaxLecöYbde;

задает доступные для соединения операции:

О cmUnkmwn - разрешение неизвестно или не может быть установлено;
□
cmRead - разрешение на чтение;
П cmwrite - разрешение на запись;
• cmReadWrite - разрешение на чтение и запись;
□ cmShareDenyRead - разрешение на чтение для других соединений запрещено;
□ cmshareDenyWrite - разрешение на запись для других соединений запрещено;
□ cmShareExclusive - разрешение на открытие для других соединений запрещено;

• cmShareDenyNone - открытие других соединений с разрешениями запрещено.

Доступ к связанным наборам данных и командам ADO

Компонент TADoconnection обеспечивает доступ ко всем компонентам, которые используют его для доступа к хранилищу данных ADO. Все открытые таким образом наборы данных доступны через индексированное свойство


⇐ Предыдущая страница| |Следующая страница ⇒

Программирование в Delphi 7



Новости за месяц

  • Декабрь
    2017
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс