Параметрический запрос

[Tomatos]

Здравствуйте

Подскажите как сделать параметрический запрос, где параметр принимает два числа

Например:

Select * From Table
Where REGNUMB IN (:CODE)

Query1.ParamByName('CODE').AsString := Edit1.text;

Вот мне нужно что бы в качестве параметра CODE было значение 3, 4

[havok]

не проще?

query.sql.add('Select * From Table Where REGNUMB IN ['+ Edit1.text+']');

и пишите в edit хоть 1,2,3,4,5,6,7,8,9

[Tomatos]

Тогда, может быть, сразу в запросе указать
Select * From Table
Where REGNUMB IN (Edit1.text) ?

[soleil@mmc]

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

Тогда, может быть, сразу в запросе указать
Select * From Table
Where REGNUMB IN (Edit1.text) ?

не проще
потому что так работать не будет

а здесь все-таки круглые скобочки

query.sql.add('Select * From Table Where REGNUMB IN ('+ Edit1.text+')');

а чтобы передавать параметром весь список ИН нужно заюзать компоненты, которые умеют работать с макросами

[Tomatos]

Спасибо, а еще подскажите как это можно организовать: "а чтобы передавать параметром весь список ИН нужно заюзать компоненты, которые умеют работать с макросами" более подробно

[soleil@mmc]

для этого нужно юзать компоненты, например, Jedi (Rx - зависит от версии дельфи), ODAC (+ FIBPlus - не помню умеют ли они с макросами работать)

и дальше все как обычно:
- кидаем компонент на форму или создаем его в динамике
- выбираем символ предшествующий названию макроса (по умолчанию % или &)
- добавляем запрос с макросом
например такой (можем передать туда целое выражение)

Select * 
From Table 
Where 0=0
  and %CODE

далее зполняем значение макроса

Query1.MacroByName('CODE').Value := format('REGNUMB IN (%s)', [Edit1.Text]);

[reboot]

у меня вопрос немного другого плана.

есть запрос в аксессе, уже принимающий два параметра типа дата.

как передать эти параметры из дельфи?

такого плана алгоритм не работает.

    Query.Parameters.AddParameter();
    Query.Parameters[0].Name:='start_date';
    Query.Parameters.ParamByName('start_date').Value:=DatePeriodStart.DateTime;
    Query.Parameters.AddParameter();
    Query.Parameters[1].Name:='end_date';
    Query.Parameters.ParamByName('end_date').Value:=DatePeriodEnd.DateTime;

использую Delphi 6, TADOQuery.

[soleil@mmc]

 Query.Parameters.ParamByName('start_date').Value:=DatePeriodStart.DateTime;
    Query.Parameters.ParamByName('end_date').Value:=DatePeriodEnd.DateTime;

[Serge_Bliznykov]

когда-то помогал тут на форуме решить похожую задачу...
Тогда задача решалась через принудительное задание
типа параметра перед присвоением значения:

Query.Parameters.ParamByName('start_date').DataType := ftDateTime;
Query.Parameters.ParamByName('start_date').Value:=DatePeriodStart.DateTime;
Query.Parameters.ParamByName('end_date').DataType := ftDateTime;
Query.Parameters.ParamByName('end_date').Value:=DatePeriodEnd.DateTime;

[reboot]

спасибо за ответы, но результат остался тот же: слишком мало параметров. Требуется два.

не вдупляю вообще как быть тут

выложу более полный листинг:

    Query.Close();
    Query.SQL.Clear();
    Query.SQL.Add('select name,measure,quant_start_tail,sum_start_tail');
    Query.SQL.Add('from turnover order by name asc, measure asc;');
    Query.Parameters.Clear();
    Query.Parameters.AddParameter();
    Query.Parameters[0].Name:='start_date';
    Query.Parameters.ParamByName('start_date').DataType:=ftDateTime;
    Query.Parameters.ParamByName('start_date').Value:=DatePeriodStart.DateTime;
    Query.Parameters.AddParameter();
    Query.Parameters[1].Name:='end_date';
    Query.Parameters.ParamByName('end_date').DataType:=ftDateTime;
    Query.Parameters.ParamByName('end_date').Value:=DatePeriodEnd.DateTime;
    Query.Open();
//  ...
    Query.Close();
    Query.SQL.Clear();

turnover - запрос в аксессе, внутри которого запрашивается две даты, в переменных start_date и end_date.

не фурычит хоть убей((