Массив как параметр запроса

[sdsfy]

Приветствую коллеги!

Пытаюсь реализовать нечто вроде

SQL:

Select * from someTable where someField in [:array_of_params]

соответственно в компоненте

TIBQuery.ParamByName('array_of_params').<что сюда воткнуть?> := DynArray: array of integer (3,5,8);

Есть IBX компоненты Delphi 2007 и FB 2.0 сервер. Сменить этот инструментарий нет возможности.

Заранее спасибо за любую помощь.

[rdama]

Ну обычно втыкается слово VALUE.
А вот тип параметра указан в другом месте.

[Lesha]

// замена в строке
function str_replace(const sfrom,sto,s: String):String;
begin
  result:=StringReplace(s,sfrom,sto,[rfReplaceAll]);
end;

// список в строку (implode)
function num_implode(rz:string; const ar: array of integer): string;
var i:integer;
begin
  result:='';
  if length(ar)=0 then exit;
  for i := 0 to length(ar) - 2 do result:=result+inttostr(ar[i])+rz;
  result:=result+inttostr(ar[i]);
end;

<...>

TIBQuery.SQL.Text:=
    str_replace(':array_of_params',num_implode(',',DinArray),TIBQuery.SQL.Text);

[rdama]

Ну лучше наверно так

Select * from someTable where someField in (:array_of_params)

В итоге у вас 1 параметр array_of_params с типом ftWideString.
Соответственно и значение которое будет у вас туда передаваться это строка.
Ну а как вы эту строку получите это уже ваше дело.
Правда вот совсем не понятно а на фига здесь вообще использовать массив?Почему не построить просто строку?

[sdsfy]

15:42
Спасибо коллеги, сейчас будем пробовать.

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

Почему не построить просто строку?

Это среди рассматриваемых вариантов.
Дело в том, что запрос там формируется динамически, из кусков, которые хранятся в таблице. Там есть некоторая стилистика, которую не хотелось бы нарушать.

16:45
В общем вполне себе интересный вариант отказа от ParamByName. Я так понимаю, из практики других программеров, что IBX не дает возможности передать массив как параметр. Хотя, говорят что FIBPlus такую возможность предоставляет.

Красные жирные циферки видны ?
Это время, когда вы отправляли свои сообщения друг за другом, подряд.
У нас есть кнопка "Правка".
Читаем правила раздела.
По правилам это приравнивается к флуду.

[sdsfy]

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

  for i := 0 to length(ar) - 2 do result:=result+inttostr(ar[i])+rz;
  result:=result+inttostr(ar[i]);
end;

Кстати, код неправильный. Ибо глюк обеспечен при длине массива 1. Это я скорей не автору адресую (за идею ему большое спасибо), а тем, кто стянет с треда код и удивится, почему он странно себя ведет.