Выборка в базе..

← →
able © (2004-12-13 14:45) [0]

Вручную ищу в базе. Когда находим, записываю в массив уникальный номерок записи.. Как вывести все записи, в которых присутствует этот номерок? Не делать же: <code>   str:="select * from основная" for i:=1 to ii do begin   zapr:=zapr+"where UNIQ_IP like ""+inttostr(array[i])+"";   end; </code> ..

← →
Sergey13 © (2004-12-13 14:53) [1]

select * from основная where UNIQ_IP in (список номерков)

← →
able © (2004-12-13 14:54) [2]

Sergey13 ©   (13.12.04 14:53) [1] Thanks!

← →
able © (2004-12-13 14:56) [3]

Sergey13 ©   (13.12.04 14:53) [1] Список номеров через пробелы?

← →
Sergey13 © (2004-12-13 14:57) [4]

Через запятую.

← →
P.N.P. © (2004-12-13 14:58) [5]

используй оператор IN SELECT * FROM основная WHERE UNIQ_IP IN ( 1, 2, 3, 4, 5 );

← →
P.N.P. © (2004-12-13 14:58) [6]

опоздал =)

← →
able © (2004-12-13 15:13) [7]

<code>     with Datam.ADOQuery do   // Формируем запрос SQL      begin        q:="WHERE Код IN ( ";         for i:=1 to i4-1 do          begin            if i=1 then             q:=q+inttostr(f[i])            else             q:=q+", "+inttostr(f[i]);          end;         q:=q+" )"; showmessage(q);        with SQL do         begin           clear;           Add("SELECT Организация, код, адрес, телефон, раздел ");           Add("FROM Основная");           Add(q);         end;        Open;      end; </code> Когда происходит "showmessage(q)" Выскакивает "Where Код in ( 8, 9 ), а он выводит только запись, где код 9...

← →
able © (2004-12-13 15:32) [8]

оч надо..

← →
Ольга (2004-12-13 15:44) [9]

Перед Open посмотрите, что у вас получилось: str:=Datam.ADOQuery.SQL.Text

← →
Anatoly Podgoretsky © (2004-12-13 15:51) [10]

able ©   (13.12.04 15:32) [8] Ольга тебе намекает, что нет пробела перед WHERE

← →
able © (2004-12-13 15:58) [11]

Ольга   (13.12.04 15:44) [9] вот: <code> SELECT Организация, код, адрес, телефон, раздел FROM Основная WHERE Код IN ( 8, 9 ); </code> > Anatoly Podgoretsky ©   (13.12.04 15:51) [10] [Новое > сообщение Что с пробелом, что нет - всё равно..

Уф, понял в чем ошибка - забыл убрать: adotable1.enablecontrols..

Про пробел не считать ошибся :-(

ИМХО, так красивше ;) <code>  if i>1 then q := q+", ";  q:=q+inttostr(f[i])</code>

msguns ©   (14.12.04 14:50) [15] Всегда мечтал, чтобы меня поругали за код на этом форуме :) Но там незачто ругать, слишком мало...

Выборка в базе.. Найти похожие ветки