Не работает рабочий запрос Access в ADOQuery

@POJIBOX · Регистрация: 03.06.2018

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

Всем здравствовать!
Спасите ибо совсем потерялся
С трудом и помощью старших братьев из ветки Access уговорил выполняться запрос:

SQL
1
2
3
4
SELECT LAT, LON
FROM (SELECT LAT FROM Latitude WHERE LAT BETWEEN :pLAT - :pREZ - 1 AND :pLAT + :pREZ - 1 AND (LAT MOD :pREZ) = 0)  AS qLat, 
(SELECT LON FROM Longitude  WHERE LON BETWEEN :pLON - :pREZ - 1 AND :pLON + :pREZ - 1 AND (LON MOD :pREZ) = 0)  AS qLon
WHERE ((LAT - :pLAT) ^ 2 + (LON - :pLON)^2) < :pREZ * :pREZ;

перенес его в прогу в виде:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
    TADOQuery* AQ = new TADOQuery(NULL);
    AQ->Connection = MainForm->MDBConnect;
    AQ->Close();
    AQ->SQL->Clear();
    AQ->SQL->Add("SELECT LAT, LON ");
    AQ->SQL->Add(
        "FROM (SELECT LAT FROM Latitude WHERE LAT BETWEEN :pLAT - :pREZ - 1 AND :pLAT + :pREZ - 1 AND (LAT MOD :pREZ) = 0)  AS qLat,");
 AQ->SQL->Add("(SELECT LON FROM Longitude WHERE LON BETWEEN :pLON - :pREZ - 1 AND :pLON + :pREZ - 1 AND (LON MOD :pRREZ) = 0)  AS qLon");
    AQ->SQL->Add(" WHERE ((LAT - :pLAT)^2 + (LON - :pLON)^2) < :pREZ * :pREZ");
 
    AQ->Parameters->ParamByName("pLAT")->Value = LAT;
    AQ->Parameters->ParamByName("pLON")->Value = LON;
    AQ->Parameters->ParamByName("pREZ")->Value = RezLat;
    AQ->Open();

и на одних и тех же исходных данных и 1 БД результы шокирующе несовпадают от слова вабще...
Где может быть косяк?

@D1973 · 16.10.2023, 05:32

так не работает: в Delphi/C++ Builder в параметрическом запросе каждый параметр должен иметь уникальное имя. т.е. если в вашем запросе параметры подставляются в 14 местах, то и параметров должно быть ровно 14.

@POJIBOX · 16.10.2023, 07:14 **[ТС]**

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

то и параметров должно быть ровно 14.

да я уж как не переписывал запрос, например:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    AQ->SQL->Add("SELECT LAT, LON FROM");
    AQ->SQL->Add(
        "(SELECT LAT FROM Latitude WHERE LAT BETWEEN :pLATn AND :pLATk AND (LAT MOD :pRLAT) = 0)  AS qLat,");
AQ->SQL->Add(
        "(SELECT LON FROM Longitude WHERE LON BETWEEN :pLONn AND :pLONk AND (LON MOD :pRLON) = 0)  AS qLon"); 
AQ->SQL->Add("WHERE (LAT - :pLAT)^2 + (LON - :pLON)^2  < :pREZ");
 
    AQ->Parameters->ParamByName("pLATn")->Value = LAT - RezLat - 1;
    AQ->Parameters->ParamByName("pLATk")->Value = LAT + RezLat - 1;
    AQ->Parameters->ParamByName("pLONn")->Value = LON - RezLon - 1;
    AQ->Parameters->ParamByName("pLONk")->Value = LON + RezLon - 1;
    AQ->Parameters->ParamByName("pRLAT")->Value = RezLat;
    AQ->Parameters->ParamByName("pRLON")->Value = RezLon;
 
    AQ->Parameters->ParamByName("pLAT")->Value = LAT;
    AQ->Parameters->ParamByName("pLON")->Value = LON;
    AQ->Parameters->ParamByName("pREZ")->Value = RezLat * RezLon;
    AQ->Open();

со множеством комбинаций скобок уточнения имен...
Все работает на уровне первых 3 строк, т.е. фильтрация по диапазону и шагу(разрешению)
а вот фильтрация по расстоянию приводит в упадок, на контрольном примере, где должно быть 3 точки либо 2 либо 0...
Либо, что еще хуже ошибка исполнения

Вообще иногда появлялась рекомендация разбить сложное для вычисления выражение на переменные - темный лес...

Добавлено через 4 минуты

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

каждый параметр должен иметь уникальное имя.

Можно ссылочку или сий документ, абы почитать, тырнет столько хлама на поиск выдает, что уже читать и фильтровать противно

Добавлено через 25 минут
Вот последний вариант:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
    AQ->Close();
    AQ->SQL->Clear();
    AQ->SQL->Add("SELECT LAT, LON, ((DLAT + DLON)^(1/2)) AS DIST FROM");
    AQ->SQL->Add(
        "(SELECT LAT, ((LAT - :pLAT)^2) AS DLAT FROM Latitude WHERE LAT BETWEEN :pLATn AND :pLATk AND (LAT MOD :pRLAT) = 0)  AS qLat,"); //
    AQ->SQL->Add(
        "(SELECT LON, ((LON - :pLON)^2) AS DLON FROM Longitude WHERE LON BETWEEN :pLONn AND :pLONk AND (LON MOD :pRLON) = 0)  AS qLon"); //
    AQ->SQL->Add(
        "WHERE ((DLAT + DLON)^(1/2)) < :pREZ");
    AQ->Parameters->ParamByName("pLAT")->Value = LAT;
    AQ->Parameters->ParamByName("pLON")->Value = LON;
 
    AQ->Parameters->ParamByName("pLATn")->Value = LAT - RezLat - 1;
    AQ->Parameters->ParamByName("pLATk")->Value = LAT + RezLat - 1;
    AQ->Parameters->ParamByName("pLONn")->Value = LON - RezLon - 1;
    AQ->Parameters->ParamByName("pLONk")->Value = LON + RezLon - 1;
    AQ->Parameters->ParamByName("pREZ")->Value = float(RezLat) - 0.5; //  * RezLon
    AQ->Parameters->ParamByName("pRLAT")->Value = RezLat;
    AQ->Parameters->ParamByName("pRLON")->Value = RezLon;
    AQ->Open();

Я уж грешным делом подумал даже о несоответствии типов, но даже это не помогает...
Хотя расстояние в первой строке вычисляется на ура, и если убрать 4 строку, получаем 4 точки из контрольного примера вместо 3.
Это просто бред, неужели проще в С++ добавить сравнение и исключить лишний вариант, чем биться с SQL и ADO?

Добавлено через 11 минут

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

и если убрать 4 строку, получаем 4 точки из контрольного примера вместо 3.

получаем 4 точки c хорошими данными по расстояниям.
Но почему на этапе сравнения вылетают 2! крайних значения с самым большим и самым маленьким расстоянием, откуда такая симметрия?

@D1973 · 16.10.2023, 09:43

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

Можно ссылочку

Да какая тут ссылочка - все же в справке! Все параметры содержатся в коллекции Parameters, каждый член этой коллекции имеет свое имя, по которому можно обратиться к этому элементу (метод ParamByName). Ну и что получится, если два элемента коллекции будут иметь одинаковое имя?

@POJIBOX · 16.10.2023, 12:04 **[ТС]**

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

Ну и что получится, если два элемента коллекции будут иметь одинаковое имя?

Понимаете ли, в самой БД ACCESS параметр выступает как переменная и может использоваться многократно, так что одного вашего предложения:

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

Все параметры содержатся в коллекции Parameters, каждый член этой коллекции имеет свое имя, по которому можно обратиться к этому элементу

недостаточно для такого определения.
А вот ваше утверждение:

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

в параметрическом запросе каждый параметр должен иметь уникальное имя

- вполне однозначно

Поэтому мне стало интересно, где у вас такой конкретный и сжатый по смыслу справочник... Однако в голове, "опыт - сын ошибок..." у меня пока да и в будущем не планируется к масштабному расширению

@D1973 · 16.10.2023, 13:02

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

где у вас такой конкретный и сжатый по смыслу справочник

почитайте вот это. Ближе к середине текста рассмотрена как раз Ваша коллизия с использованием одного и того же имени параметра, начинается фрагмент с фразы: "Так вот, по индексу, к Parameters лучше никогда не обращаться..."
Надеюсь, после этого ситуация для Вас прояснится.

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@D1973 Модератор 9923 / 6459 / 2457 Регистрация: 21.01.2014 Сообщений: 27,409 Записей в блоге: 3
	16.10.2023, 05:32
	так не работает: в Delphi/C++ Builder в параметрическом запросе `каждый параметр должен иметь уникальное имя`. т.е. если в вашем запросе параметры подставляются в 14 местах, то и параметров должно быть ровно 14. 0