Технология баз данных ADO в Delphi — страница 10

  • Просмотров 39359
  • Скачиваний 597
  • Размер файла 122
    Кб

CommitTrans; Подтверждает текущую транзакцию и закрывает ее. procedure GetProcedureNames (List: TStrings) ; В переменной List возвращает список всех зарегистрированных в БД хранимых процедур. procedure GetTableNames (List : TStrings; SystemTables: Boolean = False) ; В переменной List возвращает список всех ТБД. Если SystemTables имеет значение True, в список включаются также служебные таблицы. procedure RollbackTrans; Отменяет текущую транзакцию. Основные события Событие С чем связано property AfterConnect: TNotifyEvent;

Возникает после установки связи. property AfterDisconnect: TNotifyEvent; Возникает после разрыва связи. property BeforeConnect: TNotifyEvent; Возникает перед установлением связи. Property BeforeDisconnect: TnotifyEvent; Возникает перед разрывом связи. TExecuteCompleteEvent = procedure (Connection: TADOConnection; RecordsAffected: Integer; const Error: Error; var EventStatus: TEventStatus; const Command: _Command; const Recordset: _Recordset) of object; property OnExecuteComplete: TExecuteCompleteEvent read FOnExecuteComplete write FOnExecuteComplete; Возникает после выполнения команды. 1.5. Компонент TADOCommand Этот

компонент предназначен, в основном, для реализации SQL-запросов, не возвращающих никаких данных (подмножество Data Definition Language - язык определения данных языка структурированных запросов SQL). К предложениям DDL относятся практически все, которые не начинаются зарезервированным словом select. Замечание. Хотя конкретная реализация транслятора SQL зависит от выбранного провайдера, однако в целом компоненты ADO при реализации этого языка

следуют промышленному стандарту SQL-92. Исполнение подобного рода запросов идет несколько иначе, чем запросов select. В BDE-ориентированных компонентах TQuery для реализации запросов select используется метод Open (или свойство Active), в то время как DDL запросы выполняются методом ExecSQL. В ADO для этих целей выделен специальный компонент. Хотя, как мы увидим дальше, он способен при некоторых обстоятельствах возвращать наборы данных, а компонент

TADOQuery имеет в своем составе метод ExecSQL, позволяющий ему выполнять DDL запросы. Иными словами, одни и те же запросы в рамках ADO можно выполнять с помощью двух разных компонентов - как TADOCommand, так и TADOQuery. Замечание. На самом деле - даже трех: рассмотренный выше связной компонент TAdoConnection также способен выполнять команду. Например: procedure TForml.ButtonlClick(Sender: TObject); begin AdoConnectionl.ConnectionString := ‘Provider=Microsoft.Jet.OLEDB.4.0;'+ 'Data Source=C:DATAdbdemos.mdb’; AdoConnectionl.Connected :=

True; AdoDataSetl.RecordSet := AdoConnectionl.Execute ('SELECT * FROM CUSTOMER’) end; Текст исполняемой команды хранится в свойстве CommandText компонента. Компонент способен за один раз исполнять одну и только одну команду. Особенностью TADOCommand является специализированный текстовый редактор, с помощью которого можно сформировать команду. Этот редактор (рис.1) вызывается после щелчка по кнопке в строке свойства CommandText Инспектора Объектов. Все поле редактора поделено