VPF::значение параметра -- массив - Форум программистов

_hunter

Дата 20.12.2005, 12:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 1
Всего: 98

добрый день.

можно ли как-то сделать чтобы параметром передадь массив?
т.е.
если у меня запрос вида

Код


SELECT * FROM Table WHERE ( id IN (1, 2, 3) )

можно ли как-то сделать чтобы работал такой:

Код


SELECT * FROM Table WHERE ( id IN :param )

запрос?

работаю с InterBase-ом ( TIBSQL )

--------------------

Tempora mutantur, et nos mutamur in illis...

SPrograMMer

Дата 21.12.2005, 00:38 (ссылка)

(нет голосов)

Загрузка ...

Спамер :)

Профиль
Группа: Участник
Сообщений: 442
Регистрация: 5.11.2004
Где: Краснодар

Репутация: 1
Всего: 6

никак. не мучайся.... можно только попоробовать текст всего запроса переписывать.... Список ID-ек формировать в текстовой строке, ну что то вроде:

Код


S:='';
For I:=1 To 10 Do
 S:=S+IntToStr(I)+',';
Delete(S,Length(S),1);
IBSQL1.SQL.Clear;
IBSQL1.SQL.Add('SELECT * FROM Table WHERE ( id IN ('+S+'))');
...

--------------------

животное = зверь
законченный гентушник

FRAGNATIC

Дата 21.12.2005, 01:02 (ссылка)

(нет голосов)

Загрузка ...

..::Свирепый Кодер::..

Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 2
Всего: 11

_hunter
я помучался в своё время и всётаки сделал так как грит
SPrograMMer

Код


var
  Work: array of integer;
  SQL: string;
---------------------------
procedure TransWork;
var
  tmp: string;
  i: integer;
begin
  tmp:=IntToStr(Work[Low(work)]);
  for i:=Low(work)+1 to High(work) do
  begin
    tmp:=tmp+','+IntToStr(Work[i]);
  end;
  if SQL='' then
  SQL:=SQL+tmp
  else SQL:=SQL+','+tmp;
end;

в итоге в SQL все эленты =)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »