[DOR]

истина - работает, ложь -нет (вылетает с ошибкой). "trying to store a string of length 2 into a field that can only contain 1"

[M.A.D.M.A.N.]

Идею я дал, дальше своими силами, задача не слишком сложная.

[Yurk@]

Сообщение от DOR

Здравствуйте, есть такой запрос:

Код:

select *
from post_plat
where post_plat.razneseno = :razneseno

if CheckBox1.Checked = true then
ParamByName('razneseno').AsString := '1'
else
ParamByName('razneseno') не учитывать, как будто where вообще нет.

Как при определенных условиях исключить параметр запроса? СУБД Firebird. Спасибо.

ну аналогично же:

Сообщение от Yurk@

Код:

ADOQuery1.Close;
ADOQuery1.SQL.Text := 'SELECT * FROM bso WHERE f_Der = IIF(:der IS NULL, f_Der, :der)';
ADOQuery1.Parameters.ParamByName('der').Value := Edit1.Text;
ADOQuery1.Open;

не?