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. Все открытые таким образом наборы данных доступны через индексированное свойство