Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 26.05.2011
Сообщений: 3

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

31.05.2011, 21:26. Показов 1594. Ответов 3
Метки нет (Все метки)

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

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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;
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
31.05.2011, 21:26
Ответы с готовыми решениями:

Как убрать из строки ненужные символы
Есть List&lt;string&gt; channelname Он представляет из себя следующие строки *****_N, где **** могут включать и знак '_', и цифры, и буквы, а...

Убрать ненужные символы со строки(стринг, чар)
Доброго времени суток, господа форумчане. Появилась проблема с решением одной задачи. Признаюсь, не знаю как правильно задать условие, а...

Как убрать ненужные заголовки?
Как убрать не нужные заголовки окон?

3
151 / 151 / 3
Регистрация: 05.05.2010
Сообщений: 570
01.06.2011, 06:07
Вероятно неверное объединение таблиц в запросе.
0
1263 / 706 / 62
Регистрация: 21.12.2009
Сообщений: 2,256
01.06.2011, 10:11
Строкой запроса
SQL
1
FROM [Дополнительная информация], Вуз
вы пытаетесь реализовать соединение двух наборов (таблиц). Но при использовании такой формы соединения необходимым является кляуза WHERE, в которой прописываются условия соединения наборов. Без этого вы неизбежно получаете так называемое декартово произведение множеств.
Совет: для реализации соединения на мой взгляд лучше использовать join в различных вариантах (inner join, left join и т.д.)
0
1497 / 1238 / 245
Регистрация: 04.04.2011
Сообщений: 4,363
01.06.2011, 11:22
У Вас декартово. Надо добавить в запрос условие-связку примерно так:

SQL
1
2
3
4
5
SQL.Text = 'SELECT V.[Вид обучения], DI.[Область], DI.[Город], 
      V.[Название вуза], V.[Название специальности], V.[Конкурс прошлого года],
      V.[Плата за обучение], V.[Форма обучения] '+
 ' FROM [Дополнительная информация] DI, [Вуз] V '+
    WHERE DI.[Название вуза] = V.[Название вуза]';
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
01.06.2011, 11:22
Помогаю со студенческими работами здесь

как убрать из индекса ненужные страницы
Подскажите как убрать из индексации кучу ненужных страниц - дело в том, что страницы передаются mod rewrite'ом и по имени страницы...

Как убрать ненужные элементы из TLIstBox`a ???
Всем привет! У меня есть TListBox с нескольки элементами, число которых непостоянно. На данный момент мне нужно удалить из этого списка все...

Как убрать с карты ненужные элементы (см. скриншот)?
Вот добавляю скриншот, подскажите, как убрать строку поиска. Карта загружается через javascriptAPI

Как убрать ненужные символы после запятой
Здравствуйте. Подскажите, пожалуйста, как мне избавиться от автоподстановки ненужных символов в нижеприведенном коде: Public...

Как убрать ненужные мне элементы формы?
Как убрать ненужные мне элементы формы? Элементы пронумерованы см. рис.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru