Текущий архив: 2005.01.16;
Скачать: CL | DM;

Вниз

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

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

Вручную ищу в базе.
Когда находим, записываю в массив уникальный номерок записи..
Как вывести все записи, в которых присутствует этот номерок?
Не делать же:

  str:="select * from основная"

for i:=1 to ii do
begin
  zapr:=zapr+"where UNIQ_IP like ""+inttostr(array[i])+"";  
end;

..

---

← →
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]


    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;

Когда происходит "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]
вот:

SELECT Организация, код, адрес, телефон, раздел
FROM Основная
WHERE Код IN ( 8, 9 );


> Anatoly Podgoretsky ©   (13.12.04 15:51) [10] [Новое
> сообщение

Что с пробелом, что нет - всё равно..

---

← →
able ©   (2004-12-13 16:00) [12]

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

---

← →
Anatoly Podgoretsky ©   (2004-12-13 18:37) [13]

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

---

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

Anatoly Podgoretsky ©   (13.12.04 18:37) [13]
бывает :))
--
Тема закрыта, вопрос исчерпан..

---

← →
msguns ©   (2004-12-14 14:50) [15]

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

---

← →
able ©   (2004-12-14 19:00) [16]

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

---

Страницы: 1 вся ветка

Текущий архив: 2005.01.16;
Скачать: CL | DM;

Наверх

Память: 0.5 MB
Время: 0.024 c