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

простенький запрос :)

11.12.2011, 17:10. Показов 822. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Есть таблица "Каталог", в которой находятся товары, есть таблица "Заказ", в которой находится номер заказа общее количество и общая сумма товаров, и собственно таблица пересечений - "Заказы", в которой находится: номер заказа, ID товара и количество конкретного товара.
Тем самым по клику на определённый заказ можно увидеть какие товары содержатся в заказе и заказанное количество, естественно всё выводится в DBGrid при помощи ADOQuery, вывести позиции заказа - без проблем, но вот вывести позиции заказа и рядом с каждым товаром количество - проблема, написал вот такой вот запрос
Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.sDBGrid2CellClick(Column: TColumn);
begin
    with Unit2.DataModule2 do
    begin
      ADOQuery2.SQL.Clear;
      ADOQuery2.SQL.Add('SELECT Каталог.*, Заказы.Колво FROM Каталог, Заказы');
      ADOQuery2.SQL.Add('Where Каталог.ID In (SELECT Заказы.ID FROM Заказы');
      ADOQuery2.SQL.Add('Where Заказы.Заказ = '+ADOTable3.Fields[0].AsString+')');
      ADOQuery2.Active :=true;
    end;
end;
прошу помощи ибо выводит много много раз подряд одни и те же позиции
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
11.12.2011, 17:10
Ответы с готовыми решениями:

Не работает простенький запрос в базу
Здравсвуйте. Прошу помощи. Не могу запустить элементарный запрос. Таблица создана в DataBase Desktop. Query1.Close; ...

Простенький автокликер
Ребят мне нужно написать Автокликер для сайта. Там очень просто,всего лишь надо сделать 5 кликов. Научите меня написать его. ...

Простенький TThread
Доброго времени суток всем. Решил я поэкспериментировать с TThread в Delphi. Набросал простую программу - есть TPaintBox, есть...

5
8 / 8 / 1
Регистрация: 01.04.2011
Сообщений: 88
11.12.2011, 17:41
попробуй добавить
ADOQuery2.SQL.Add('Where Заказ.ID=Заказы.ID');

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.sDBGrid2CellClick(Column: TColumn);
begin
    with Unit2.DataModule2 do
    begin
      ADOQuery2.SQL.Clear;
      ADOQuery2.SQL.Add('SELECT Каталог.*, Заказы.Колво FROM Каталог, Заказы');
      ADOQuery2.SQL.Add('Where Каталог.ID In (SELECT Заказы.ID FROM Заказы');
      ADOQuery2.SQL.Add('Where Заказ.ID=Заказы.ID');
      ADOQuery2.SQL.Add('Where Заказы.Заказ = '+ADOTable3.Fields[0].AsString+')');
      ADOQuery2.Active :=true;
    end;
end;
1
 Аватар для albor
504 / 106 / 16
Регистрация: 01.12.2011
Сообщений: 399
11.12.2011, 17:45
ADOQuery2.SQL.Add('SELECT Каталог.*, Заказы.Колво FROM Каталог, Заказы')..

Связи между таблицами Каталог, Заказы нет.
Должно быть что-то типа: WHERE Заказы.КаталогID=Каталог.ID и далее по тексту..
1
12 / 12 / 2
Регистрация: 30.10.2011
Сообщений: 59
11.12.2011, 18:44  [ТС]
Спасибо всем, кто склонил головы и взвёл умы над моим запросом, собсно сделал сам, с вашей помощью, вот такенный наистраннейший запрос получился
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.sDBGrid2CellClick(Column: TColumn);
begin
    with Unit2.DataModule2 do
    begin
      ADOQuery2.SQL.Clear;
      ADOQuery2.SQL.Add('SELECT Каталог.*, Заказы.Колво FROM Каталог, Заказы');
      ADOQuery2.SQL.Add('Where Каталог.ID In (SELECT Заказы.ID FROM Заказы');
      ADOQuery2.SQL.Add('Where Заказы.Заказ = '+ADOTable3.Fields[0].AsString+')');
      ADOQuery2.SQL.Add('and Заказы.Заказ = '+ADOTable3.Fields[0].AsString);
      ADOQuery2.SQL.Add('and Заказы.ID = Каталог.ID');
      ADOQuery2.Active :=true;
    end;
end;
А главное работает )))
0
 Аватар для albor
504 / 106 / 16
Регистрация: 01.12.2011
Сообщений: 399
11.12.2011, 19:19
Цитата Сообщение от melomaniak Посмотреть сообщение

ADOQuery2.SQL.Add('and Заказы.ID = Каталог.ID');

А главное работает )))
В чем у меня есть большие сомнения.

Обычно принято создавая таблицу, создать ей первичный ключ, например таблица "Заказы" ключ - ID,
таблица "Каталог", ключ ID но свой.

Чтобы связать таблицы "Каталог" и "Заказы" в таблице "Заказы" должен появиться вторичный ключ связующий с таблицей "Каталог". Его можно назвать - "КаталогИД".

Тогда при добавлении записи в "Заказы" в ее поле КаталогИД появится значение первичного ключа таблицы "Каталоги" и связь будет установлена правильно.
1
12 / 12 / 2
Регистрация: 30.10.2011
Сообщений: 59
11.12.2011, 20:15  [ТС]
albor, а Заказы.ID это и есть вторичный ключ, ссылка на ID каталога, первичный ключ называется №позиции и тут не задействован ))) но приму к сведения информацию, спасибо )))
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
11.12.2011, 20:15
Помогаю со студенческими работами здесь

Простенький пеинт
Пишу простенький пеинт своими руками и столкнулся с такими вот проблемками. 1. При старте программы не отображается холст. Когда...

Посоветуйте простенький проект
Кое-куда мне надо сделать проект, но что делать я понятия не имею. Программа не должна быть замудреная, скажу даже - примитивная. ...

Простенький перебор (Brute)
Люди помогите пожалуйста, подскажите как сделать перебор ? :) И чтобы можно было задавать диапазон перебора, чтобы если программу закрыть...

Простенький Web Server
Как на Delphi написать простейший веб сервер который бы читал html файлы ? Дайте нормальный мануал, или отпишите тут, а то нашел куча...

Как написать простенький флудер?
Ну например флудер для скайпа! мне советовали отправлять окну сообщение и так он будет типо флудить я пытался но не получилось! можете...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru