Составить запрос, который должен отобразить все экспонаты, которые не участвуют в определенной выставке

@BE_GOODY · Регистрация: 10.05.2014

Author24 — интернет-сервис помощи студентам

Здравствуйте! Есть таблица экспонатов ET и выставок EN, которые соединены в отношении многие ко многим в таблице ENET (Id_enet, id_et, id_en).

Нужен запрос, который должен отобразить все экспонаты, которые не участвуют в определенной выставке. Голову сломала, как отобразить экспонаты выставки понятно, а вот как не участвующие не понимаю)

@SAMZ · 01.06.2014, 12:41

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

Здравствуйте! Есть таблица экспонатов ET и выставок EN, которые соединены в отношении многие ко многим в таблице ENET (Id_enet, id_et, id_en).

SQL

1 2	SELECT * FROM ET WHERE NOT(EXISTS(SELECT 1 FROM ENET WHERE ENET.id_en = :id_en)AND(ENET.id_et = ET.id_et))

Это при условии что в таблице ET .d_et - код экспоната

@BE_GOODY · 01.06.2014, 13:08 **[ТС]**

SAMZ, пишу вот так в

Delphi

  EtAdd.ExhibitAdd.SelectSQL.Clear;
  EtAdd.ExhibitAdd.SelectSQL.Add('SELECT * FROM EXHIBIT ');
  EtAdd.ExhibitAdd.SelectSQL.Add('WHERE NOT (EXISTS(SELECT 1 FROM ENET WHERE ENET.ID_EN=');
  EtAdd.ExhibitAdd.SelectSQL.Add(IntTostr(DBC.Exhibition.FieldByName('ID_EN').AsInteger));
  EtAdd.ExhibitAdd.SelectSQL.Add(')AND(ENET.ID_ET=EXHIBIT.ID_ET)');
  EtAdd.ExhibitAdd.Open;
  EtAdd.ExhibitAdd.FetchAll;

выдает ошибку

Dynamic SQL Error
SQL error code = -104
as approximate floating-point values in SQL dialect 1, but as 64-bit.

@SAMZ · 01.06.2014, 13:38

Я с таким сообщением об ошибке не встречался. Но.
во-первых
зачем Вам такая конструкция

Delphi

1	IntTostr(DBC.Exhibition.FieldByName('ID_EN').AsInteger)

Не проще ли вместо этого

Delphi

1	DBC.Exhibition.FieldByName('ID_EN').AsString

У Вас совершенно ненужное двухступенчатое преобразовапние: поле --> целое --> строка
Зачем?!
Во вторых, не проще ли в компоненте на этапе проектирования прописывать текст SelectSQL с параметрами и перед открытием набора задавать значения параметров. При этом этот запрос перед использованием в проекте легко проверить в IBExpert и убедиться в его корректности. Разумеется, иногда приходится формировать текст запроса динамически, но ИМХО это - не должно быть правилом.
В третьих, судя по тексту сообщения Вы используете диалект 1. Пора уж работать в диалекте 3.

@BE_GOODY · 01.06.2014, 13:51 **[ТС]**

SAMZ, я работаю в диалекте 3. За IntToStr спасибо) у меня просто запросы к таблице меняются в ходе работы, поэтому приходится формировать динамически)

ну и с вопросом разобралась сама

Delphi

EtAdd.ExhibitAdd.SelectSQL.Clear;
  EtAdd.ExhibitAdd.SelectSQL.Add('SELECT * FROM EXHIBIT ');
  EtAdd.ExhibitAdd.SelectSQL.Add('WHERE ID_ET<>ALL(SELECT ID_ET FROM ENET WHERE ENET.ID_EN=');
  EtAdd.ExhibitAdd.SelectSQL.Add(IntTostr(DBC.Exhibition.FieldByName('ID_EN').AsInteger)+')');
  EtAdd.ExhibitAdd.Open;
  EtAdd.ExhibitAdd.FetchAll;

@BE_GOODY 0 / 0 / 0 Регистрация: 10.05.2014 Сообщений: 10
		1
	Составить запрос, который должен отобразить все экспонаты, которые не участвуют в определенной выставке 01.06.2014, 11:24. Показов 1395. Ответов 4 Метки нет (Все метки) Здравствуйте! Есть таблица экспонатов ET и выставок EN, которые соединены в отношении многие ко многим в таблице ENET (Id_enet, id_et, id_en). Нужен запрос, который должен отобразить все экспонаты, которые не участвуют в определенной выставке. Голову сломала, как отобразить экспонаты выставки понятно, а вот как не участвующие не понимаю) 0

	01.06.2014, 13:51