Компоненты ADO в Delphi 5

       

Пример использования параметров запроса


Теперь ограничим выборку поставщиков по значению поля State. Для этого добавим к форме следующие компоненты StateEdit типа TEdit c вкладки Standard, QueryButton типа TButton c вкладки Standard

 

Изменим запрос в MasterSQL на

select VendorNo, VendorName, Country, City, State, Preferred

from vendors

where State = :StateID

:StateIDпараметр, вместо которого при выполнении подставляется значение.

Добавим так же обработчик события OnClick в QueryButton следующего содержания

procedure TForm1.QueryButtonClick(Sender: TObject);

begin

   MasterSQL.Active := False;

   DetailSQL.Active := False;

   MasterSQL.Parameters.ParamByName('StateID').Value := StateEdit.Text;

   MasterSQL.Active := True;

   DetailSQL.Active := True;

end;

 

Программа готова. Этот пример можно найти в директории Param.



Содержание раздела