Как убрать ненужные строки в запросе!

[CRASH040]

Здраствуйте проблема такая при запросе выводит каждую строку почему то аж по два раза! Как это исправить?

Код:

Procedure TForm1.CheckListBox5Click(Sender: TObject);
var
s:STRING;
i,k:integer;
begin
with Form1.ADOQuery2 do begin close;
k:=0;
SQL.Clear;
SQL.Add ('SELECT Вуз.[Вид обучения],[Дополнительная информация].Область,Город, Вуз.[Название вуза], Вуз.[Название специальности],Вуз.[Конкурс прошлого года], Вуз.[Плата за обучение],Вуз.[Форма обучения]');
SQL.Add (' FROM [Дополнительная информация], Вуз ');
s:='';
for i:=0 to CheckListBox5.Items.Count - 1 do
if CheckListBox5.Checked[i] then
begin
if k=0 then
s:=s+(' [вид обучения] ="'+CheckListBox5.Items[i]+'"')
ELSE
s:=s+(' OR [вид обучения] ="'+CheckListBox5.Items[i]+'"');
k:=1;
END;
if s<>'' then
SQL.Add(' where '+s+';');
Open;
Datasource1.dataset:=AdoQuery2;
end;
end;

[Аватар]

У вас записей в таблице [Дополнительная информация] видимо 3, а поскольку условие связи между таблицами [Вуз] и [Дополнительная информация] не задано, то и записи троятся. Условие задать во WHERE, а потом, если условие на вид обучения есть, то AND и в скобках условие на вид обучения

[CRASH040]

Сообщение от Аватар

У вас записей в таблице [Дополнительная информация] видимо 3, а поскольку условие связи между таблицами [Вуз] и [Дополнительная информация] не задано, то и записи троятся. Условие задать во WHERE, а потом, если условие на вид обучения есть, то AND и в скобках условие на вид обучения

Нее там все нормально по одной записи! Когда вывожу через ADOQUERY то почему то их становится по две одинаковых а то и по три, а если по одной таблице то всё замечательно работает!

[Аватар]

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

Нее там все нормально по одной записи! Когда вывожу через ADOQUERY то почему то их становится по две одинаковых а то и по три, а если по одной таблице то всё замечательно работает!

Записей может и по одной, но всего их три и все они цепляются к каждой записи вуза

[CRASH040]

Напищи пожалуйста хоть примерно как это там прописать,а то я с запросами не очень разбираюсь!

[Аватар]

Я не знаю как у вас связка осуществляется. Предположим это поле [Название вуза]. Поле с таким содержанием и, как правило для удобства пользования, с таким же названием должно быть и в таблице [Дополнительная информация]. Тогда запрос будет примерно такой

SELECT ...
  FROM [Дополнительная информация],Вуз
  WHERE Вуз.[Название вуза]=[Дополнительная информация].[Название вуза]
     AND (Вуз.[вид обучения]='блабла1' or Вуз.[вид обучения]='блабла2' OR ...)

Последняя строчка нужна только при наличии условия на вид обучения

PS Если в [Дополнительная информация] по одной записи, зачем вообще в отдельную таблицу выносить?

[CRASH040]

Теперь такая фигня в этом месте и в select пишет пропущен оператор

WHERE Вуз.[Название вуза]=[Дополнительная информация].[Название вуза] в этом месте

[CRASH040]

Здраствуйте! с этим всем я разобрался подскажите пожалуйста как сделать следующее: при запросе вывожу информацию из поля таблицы в checklistbox в items там у меня выводит одинаковые названия как сделать чтоб было по одному и не было повторений.

Вот код:

procedure TForm1.CheckListBox3Enter(Sender: TObject);
begin
  checklistbox3.items.clear;
  adoquery2.first;
  while not adoquery2.eof do
  begin
    checklistbox3.items.add(adoquery2.fieldbyname('Область').asstring);
    adoquery2.next;
  end;
end

________
Пора бы уже научиться, что код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

1) подобная задача на форуме решалась.. думаю, что поиском найдёте её.

2) вкратце, есть два подхода. 1-й - простой, правильный, понятный, эффективный - использовать в запросе группировку, чтобы устранить повторы (кстати, там же и сортировку можно приладить, в случае необходимости...)
это так:

  checklistbox3.items.clear;
  adoquery2.Close;
  adoquery2.SQL.Text := 'Select Область from ВашаТаблица group by Область';
  adoquery2.Open;
  // после Open мы и так не первой записи... adoquery2.first;
  while not adoquery2.eof do
...
 дальше всё как у вас

и 2-й подход. Если запрос по какой-то причине нельзя менять, тогда перед добавлением просто проверять, есть ли такая запись в checklistbox3.items....
примерно так:

  while not adoquery2.eof do
  begin
    if checklistbox3.items.IndexOf(adoquery2.fieldbyname('Область').asString)<0 then
        checklistbox3.items.add(adoquery2.fieldbyname('Область').asString);
    adoquery2.next;
  end;

[CRASH040]

Serge_Bliznykov

Благодарю за помощь))