Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

Фактически, техника использования Datasource не требует никакого дополнительного кодирования. Для поключения запроса к таблице DEPT_NO выполните действия, приведенные в листинге 4.

Выберите у Query1 свойство SQL и введите:

select * from EMPLOYEE

where DEPT_NO = :dept_no

Выберите свойство Datasource и назначьте источник данных, связанный с Table1 (Datasource2 в нашем примере)

Выберите свойство Active и установите его в True

Это все, если вы хотите создать такой тип отношений. Тем не менее, существуют некоторые ограничения на параметризованные запросы. Параметры ограничены значениями. К примеру, вы не можете использовать параметр с именем Column или Table. Для создания запроса, динамически изменяемого имя таблицы, вы могли бы использовать технику конкатенации строки. Другая техника заключается в использовании команды Format.

Команда Format заменяет параметры форматирования (%s, %d, %n и пр.) передаваемыми значениями. Например,

Format('Select * from %s', ['EMPLOYEE'])

Результатом вышеприведенной команды будет 'Select * from EMPLOYEE'. Функция буквально делает замену параметров форматирования значениями массива. При использовании нескольких параметров форматирования, замена происходит слева направо. Например,

tblName := 'EMPLOYEE';

fldName := 'EMP_ID';

fldValue := 3;

Format('Select * from %s where %s=%d', [tblName, fldName, fldValue])

Результатом команды форматирования будет 'Select * from EMPLOYEE where EMP_ID=3'. Такая функциональность обеспечивает чрезвычайную гибкость при динамическом выполнении запроса. Пример, приведенный ниже в листинге 5, позволяет вывести в результатах поле salary. Для поля salary пользователь может задавать критерии.

procedureTForm1.BitBtn1Click(Sender: TObject);

var

sqlString : string; {здесь хранится SQL-запрос}

fmtStr1, fmtStr2 : string; {здесь хранится строка, передаваемая для форматирования}

begin

{ Создание каркаса запроса }

sqlString := 'Select EMP_NO %s from employee where SALARY %s';

ifshowSalaryChkBox.checked {Если checkbox Salary отмечен} then

fmtStr1 := ', SALARY'

elsefmtStr1 := '';

ifsalaryEdit.text <> '' { Если поле редактирования Salary не пустое } then

fmtStr2 := salaryEdit.text

elsefmtStr2 := '>0';

Query1.Close; {Деактивируем запрос в качестве одной из мер предосторожности }

Query1.SQL.Clear; {Стираем любой предыдущий запрос}

Query1.SQL.Add(Format(sqlString,[fmtStr1, fmtStr2])); {Добавляем}

{форматированную строку к свойству SQL}

try{перехватчик ошибок}

Query1.Open; {Выполняем запрос и открываем набор данных}

except{секция обработки ошибок}

One : EDatabaseError do{e – новый дескриптор ошибки}

messageDlg(e.message, mtError,[mbOK],0);

{показываем свойство message объекта e}

end; {окончание обработки ошибки}

end;

В этом примере мы используем методы Clear и Add свойства SQL. Поскольку «подготовленный» запрос использует ресурсы сервера, и нет никакой гарантии что новый запрос будет использовать те же таблицы и столбцы, Delphi, при каждом изменении свойства SQL, осуществляет операцию, обратную «подготовке» (unprepare). Если TQuery не был подготовлен (т.е. свойство Prepared установлено в False), Delphi автоматически подготавливает его при каждом выполнении. Поэтому в нашем случае, даже если бы был вызван метод Prepare, приложению от этого не будет никакой пользы.

В предыдущих примерах TQuerie выполняли Select-запросы. Delphi рассматривает результаты Select-запроса как набор данных, типа таблицы. Это просто один класс допустимых SQL-запросов. К примеру, команда Update обновляет содержимое записи, но не возвращает записи или какого-либо значения. Если вы хотите использовать запрос, не возвращающий набор данных, используйте ExecSQL вместо Open. ExecSQL передает запрос для выполнения на сервер. В общем случае, если вы ожидаете, что получите от запроса данные, то используйте Open. В противном случае допускается использование ExecSQL, хотя его использование с Select не будет конструктивным. Листинг 6 содержит код, поясняющий сказанное на примере.

procedureForm1.BitBtnClick(sender : TObject)

begin

Query1.Close;

Query1.Clear;

Query1.SQL.Add('Update SALARY from EMPLOYEE ' +'where SALARY<:salary values (SALARY*(1+:raise)');

Query1.paramByName('salary').asString := edit1.text;