Не работает запрос через ADOQuery

@ivan.-94 · Регистрация: 02.06.2012

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

Всем доброго времени суток.
И так у меня есть таблица clients

ID	fio	tel	startdate	enddate	clients_type
1	Иванов Иван Иванович	81234567890	06.07.2014	05.08.2014	Истина
2	Сидоров Сидор Сидорович	82134567890	06.10.2014	05.10.2014	Ложь
3	Семёнов Семён Семёнович	83124567890	15.07.2014	14.08.2014	Истина
4	Петров Петр Петрович	81346789436	12.09.2014	11.10.2014	Истина
7	Степанов Степан Степанович	81346729574	12.09.2014	11.10.2014	Ложь
8	Генадьев Генадий Генадьевич	89031234567	12.09.2014	11.12.2014	Ложь
9	Ставров Ставр Ставрович	89456935643	12.09.2014	11.10.2014	Ложь
14	Пупкин Василий Васильевич	89035423434	12.09.2014	11.03.2015	Истина
15	Василевский Василий Васильевич		12.09.2014	11.09.2015	Ложь
16	Краснов Валерий Александрович	89452348654	13.09.2014	12.10.2014	Истина

И таблица visit

ID	id_client	visit_date	visit_time	comment
1	1	07.06.2014	22:00
2	1	07.09.2014	23:00
8	1	13.09.2014	14:48
9	1	13.09.2014	14:53
10	2	13.09.2014	14:55
11	2	13.09.2014	15:03	Должен 50р за воду
12	4	13.09.2014	15:05	rtyui
13	7	13.09.2014	15:10
15	4	13.09.2014	15:39
18	9	13.09.2014	15:41
20	1	13.09.2014	19:59
21	1	13.09.2014	20:02
22	1	13.09.2014	20:02
23	1	13.09.2014	20:02
24	1	13.09.2014	20:03
25	1	13.09.2014	20:03
26	3	13.09.2014	20:04
27	1	13.09.2014	20:26
28	1	13.09.2014	20:26

В MSAccess я выполняю запрос:

SQL
1
2
3
4
5
6
SELECT visit.id,visit.visit_date,Format(visit.visit_time,'short time') AS times
FROM visit
INNER JOIN clients ON visit.id_client=clients.id
WHERE clients.id = 1
AND (CDate(visit_date) BETWEEN #06/07/2014# AND #09/13/2014#)
AND (CDate(visit_time) BETWEEN #14:48# AND #23:00#);

Получаю все как нужно

id	visit_date	times
1	07.06.2014	22:00
2	07.09.2014	23:00
8	13.09.2014	14:48
9	13.09.2014	14:53
20	13.09.2014	19:59
21	13.09.2014	20:02
22	13.09.2014	20:02
23	13.09.2014	20:02
24	13.09.2014	20:03
25	13.09.2014	20:03
27	13.09.2014	20:26
28	13.09.2014	20:26

Теперь мне нужно получить это программно:
Я пытаюсь так:

SQL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
IF (ADOQuery1->Active) {
    ADOQuery1->Close();
}
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->ADD("SELECT visit.id,visit.visit_date,Format(visit.visit_time,'short time') as times, visit.comment");
ADOQuery1->SQL->ADD("FROM visit");
ADOQuery1->SQL->ADD("INNER JOIN clients ON visit.id_client=clients.id");
ADOQuery1->SQL->ADD("WHERE clients.id = :id");
ADOQuery1->SQL->ADD("AND (CDate(visit.visit_date) BETWEEN :d1 AND :d2)");
ADOQuery1->SQL->ADD("AND (CDate(visit.visit_time) BETWEEN :t1 AND :t2)");
ADOQuery1->Parameters->ParamByName("id")->VALUE = 1;
//пробовал и задавать параметры таким способом ADOQuery1->Parameters->ParamValues["id"] = 1;
ADOQuery1->Parameters->ParamByName("d1")->VALUE = AnsiString("#"+StartDate+"#");
ADOQuery1->Parameters->ParamByName("d2")->VALUE = AnsiString("#"+EndDate+"#");
ADOQuery1->Parameters->ParamByName("t1")->VALUE = AnsiString("#"+StartTime+"#");
ADOQuery1->Parameters->ParamByName("t2")->VALUE = AnsiString("#"+EndTime+"#");
//Пробовал и ADOQuery1->Active = TRUE;
ADOQuery1->OPEN();

В итоге у меня получается пустая таблица

Я решил проверить что с параметрами:

SQL
1
2
3
4
5
ShowMessage(ADOQuery1->Parameters->ParamValues["id"]);
ShowMessage(ADOQuery1->Parameters->ParamByName("d1")->VALUE);
ShowMessage(ADOQuery1->Parameters->ParamByName("d2")->VALUE);
ShowMessage(ADOQuery1->Parameters->ParamByName("t1")->VALUE);
ShowMessage(ADOQuery1->Parameters->ParamByName("t2")->VALUE);

и получил

1

#06/07/2014#

#09/13/2014#

#14:48#

#23:00#

А если не использовать параметры получаю ошибку:
Неправильно определен объект Parameter
Что делать?

Помогите пожалуйста

Добавлено через 30 минут
так же уточнение

SQL
1
2
DBGrid->DataSource=DataSource1;
DataSource->DataSet=ADOQuery1;

@DeadHipo · 14.09.2014, 11:21

Поле дата в мс аццес и данные в них разделяются точками, а ты передаешь \.

@ivan.-94 · 14.09.2014, 12:31 **[ТС]**

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

Поле дата в мс аццес и данные в них разделяются точками, а ты передаешь \.

Вы не правы. Если передавать . и заключать в # то сам ms Access ругается.
к примеру #09.27.2014# будет ошибка: "Дата содержит синтаксическую ошибку в выражении запроса..."

Добавлено через 3 минуты
Не забывайте что в msAccess американский формат.(по крайней мере у меня.)

@DeadHipo · 14.09.2014, 12:37

Тогда я бы на твоём месте посмотрел как тебя вообще выглядит твой итоговый запрос.
ADOQuery1->SQL->Text
Выведи его так же через ShowMessage и посмотри в чём косяк.
Ну это если ты синтаксис знаешь ясное дело

@ivan.-94 · 14.09.2014, 12:42 **[ТС]**

Конечно знаю и в том то и дело что запрос в полном порядке.
а именно результат таков:

Вставляю этот запрос в msAcces указывая вместо id,d1,d2,t1,t2 соответствующие значения из параметров
получаю нужный результат в виде таблицы, а в DBGrid пусто.

Любой другой простой запрос выполняю и DBGrid нормально заполняется.

@Sasha · 14.09.2014, 12:43

А так?

C++
1
2
3
4
5
6
7
8
9
10
__fastcall TMainForm::TMainForm(TComponent* Owner)
        : TForm(Owner)
{
 ShortDateFormat = "DD/MM/YYYY";
 ShortTimeFormat = "hh:mm:ss";
}
 
 
 
ADOQuery1->Parameters->ParamByName("d1")->Value = StrToDate("07.06.2014");

@DeadHipo · 14.09.2014, 12:47

А параметры где? Если это итоговый запрос то вместо :d1 итд у тебя должно быть то, что ты передаёшь.
Перед OPEN выведи текст запроса

@ivan.-94 · 14.09.2014, 12:56 **[ТС]**

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

Перед OPEN выведи текст запроса

А это и есть перед Open(). Я не знаю как посмотреть полную строку запроса с подставленными параметрами

Добавлено через 6 минут
Sasha,
у меня компилятор не понимает что такое
ShortDateFormat и ShortTimeFormat

@DeadHipo · 14.09.2014, 12:58

ivan.-94, да вот она и должна быть с параметрами. Ты их вообще созал в твоём adoquery? Там есть такая штука как Params и там нужно описать все 4 тип данных и имя

@ivan.-94 · 14.09.2014, 13:04 **[ТС]**

@Sasha · 14.09.2014, 13:06

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

А параметры где? Если это итоговый запрос то вместо :d1 итд у тебя должно быть то, что ты передаёшь.
Перед OPEN выведи текст запроса

Это я сделал в качестве примера понятно что здесь много строк не хватает

@DeadHipo · 14.09.2014, 13:11

Не по теме:

Sasha, это было адресовано не тебе :) Пока писал твоё сообщение появилось.

@ivan.-94 · 14.09.2014, 14:04 **[ТС]**

И собственно получается, что вроде бы все хорошо, а в итоге пусто.

Добавлено через 31 минуту
Методом тыка так сказать я понял что проблема в параметрах, но не ясно в чем именно

Добавлено через 16 минут
Я кажется понял проблему:
Если параметр в строке написать "SELECT... #:d1#" то параметр не будет работать потому что # и : без пробела
а если указать пробел то тогда в запросе будет пробел между # и датой
Вот такая вот фиговнятина получается

Есть ли какая функция которая окружает строку определенным символом?

@DeadHipo · 14.09.2014, 14:21

Новая папка.rar
Запрос вот так выглядит

SQL
1
SELECT * FROM tabl WHERE DATA = :DATA;

Может чем то поможет. Только поменяй директроию базы...

@DeadHipo · 14.09.2014, 14:35

C++
1
2
3
    ADOQuery1->Close();
    ADOQuery1->Parameters->ParamByName("data")->Value =  Edit1->Text;
    ADOQuery1->Open();

И edit тоже работает если запись формата dd.mm.yyyy с решётками пока работать отказывается, и что-то мне кажется не нужны они. Т.е. нужны когда ты пишешь запрос в ms acces...

Добавлено через 4 минуты
И да, при вызове sql запроса с параметрами он остаётся таким как вы писали. вместо :id итд ничего не подставится. За это прошу прощения

Что-то я попутал видимо и начал утверждать без проверки.

@ivan.-94 · 14.09.2014, 15:08 **[ТС]**

воспользовался Date.FormatString;
переписал параметры все работает.

@kodv · 15.09.2014, 06:03

ivan.-94, можно было для параметров свойство DataType сделать равным ftDateTime и передавать в параметр объекты типа TDateTime, а не пытаться запихать в параметр строку с датой в формате ACCESS.

@ivan.-94 · 15.09.2014, 16:50 **[ТС]**

kodv, я именно так и сделал в итоге.

Новые блоги и статьи Все статьи Все блоги /
Мульти-тенантные БД с PostgreSQL Row Security Codd 23.04.2025 Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .	Реализация конвейеров машинного обучения с Python и Scikit-learn AI_Generated 23.04.2025 Мир данных вокруг нас растёт с каждым днём, и умение эффективно обрабатывать информацию стало необходимым навыком. Специалисты по машинному обучению ежедневно сталкиваются с задачами предобработки. . .	Контроллеры Kubernetes Ingress: Сравнительный анализ Mr. Docker 23.04.2025 В Kubernetes управление входящим трафиком представляет собой одну из ключевых задач при построении масштабируемых и отказоустойчивых приложений. Ingress — это API-объект, который служит вратами. . .	Оптимизация кода Python с Cython и Numba py-thonny 23.04.2025 Python прочно обосновался в топе языков программирования благодаря своей простоте и гибкости. Разработчики любят его за читабельность кода и богатую экосистему библиотек. Но у этой медали есть и. . .	Микросервис на Python с FastAPI и Docker ArchitectMsa 23.04.2025 В эпоху облачных вычислений и растущей сложности программных продуктов классическая монолитная архитектура всё чаще уступает место новым подходам. Микросервисная архитектура становится фаворитом. . .
Создаем веб-приложение на Vue.js и Laravel Reangularity 23.04.2025 Выбор правильного технологического стека определяет успех веб-проекта. Laravel и Vue. js формируют отличную комбинацию для создания современных приложений. Laravel — это PHP-фреймворк с элегантным. . .	Максимальная производительность C#: Span<T> и Memory<T> stackOverflow 22.04.2025 Мир высоконагруженных приложений безжалостен к неэффективному коду. Каждая миллисекунда на счету, каждый выделенный байт памяти может стать причиной падения производительности. Разработчики на C#. . .	JWT аутентификация в Java Javaican 21.04.2025 JWT (JSON Web Token) представляет собой открытый стандарт (RFC 7519), который определяет компактный и самодостаточный способ передачи информации между сторонами в виде JSON-объекта. Эта информация. . .	Спринты Agile: Планирование, выполнение, ревью и ретроспектива EggHead 21.04.2025 Спринты — сердцевина Agile-методологии, позволяющая командам создавать работающий продукт итерационно, с постоянной проверкой гипотез и адаптацией к изменениям. В основе концепции спринтов лежит. . .	Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров Programma_Boinc 21.04.2025 Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров. 3 марта 2025 года, в результате обобщенного поиска простых чисел Ферма в PrimeGrid был найден. . .

@DeadHipo 85 / 85 / 33 Регистрация: 21.09.2013 Сообщений: 339
	14.09.2014, 11:21
	Поле дата в мс аццес и данные в них разделяются точками, а ты передаешь \. 0

@DeadHipo 85 / 85 / 33 Регистрация: 21.09.2013 Сообщений: 339
	14.09.2014, 12:37
	Тогда я бы на твоём месте посмотрел как тебя вообще выглядит твой итоговый запрос. ADOQuery1->SQL->Text Выведи его так же через ShowMessage и посмотри в чём косяк. Ну это если ты синтаксис знаешь ясное дело 0

@ivan.-94 Я Фоюмчанин ? дааааа) 213 / 204 / 23 Регистрация: 02.06.2012 Сообщений: 1,424 Записей в блоге: 12
	14.09.2014, 12:42 [ТС]
	Конечно знаю и в том то и дело что запрос в полном порядке. а именно результат таков: Вставляю этот запрос в msAcces указывая вместо id,d1,d2,t1,t2 соответствующие значения из параметров получаю нужный результат в виде таблицы, а в DBGrid пусто. Любой другой простой запрос выполняю и DBGrid нормально заполняется. 0

@DeadHipo 85 / 85 / 33 Регистрация: 21.09.2013 Сообщений: 339
	14.09.2014, 12:47
	А параметры где? Если это итоговый запрос то вместо :d1 итд у тебя должно быть то, что ты передаёшь. Перед OPEN выведи текст запроса 0

@DeadHipo 85 / 85 / 33 Регистрация: 21.09.2013 Сообщений: 339
	14.09.2014, 12:58
	ivan.-94, да вот она и должна быть с параметрами. Ты их вообще созал в твоём adoquery? Там есть такая штука как Params и там нужно описать все 4 тип данных и имя 0

@ivan.-94 Я Фоюмчанин ? дааааа) 213 / 204 / 23 Регистрация: 02.06.2012 Сообщений: 1,424 Записей в блоге: 12
	14.09.2014, 13:04 [ТС]
	0

@DeadHipo
	14.09.2014, 13:11
	Не по теме: Sasha, это было адресовано не тебе :) Пока писал твоё сообщение появилось. 0

@ivan.-94 Я Фоюмчанин ? дааааа) 213 / 204 / 23 Регистрация: 02.06.2012 Сообщений: 1,424 Записей в блоге: 12
	14.09.2014, 14:04 [ТС]
	И собственно получается, что вроде бы все хорошо, а в итоге пусто. Добавлено через 31 минуту Методом тыка так сказать я понял что проблема в параметрах, но не ясно в чем именно Добавлено через 16 минут Я кажется понял проблему: Если параметр в строке написать "SELECT... #:d1#" то параметр не будет работать потому что # и : без пробела а если указать пробел то тогда в запросе будет пробел между # и датой Вот такая вот фиговнятина получается Есть ли какая функция которая окружает строку определенным символом? 0

@ivan.-94 Я Фоюмчанин ? дааааа) 213 / 204 / 23 Регистрация: 02.06.2012 Сообщений: 1,424 Записей в блоге: 12
	14.09.2014, 15:08 [ТС]
	воспользовался Date.FormatString; переписал параметры все работает. 0

@kodv 1449 / 1121 / 347 Регистрация: 11.04.2011 Сообщений: 2,621
	15.09.2014, 06:03
	ivan.-94, можно было для параметров свойство DataType сделать равным ftDateTime и передавать в параметр объекты типа TDateTime, а не пытаться запихать в параметр строку с датой в формате ACCESS. 0

@ivan.-94 Я Фоюмчанин ? дааааа) 213 / 204 / 23 Регистрация: 02.06.2012 Сообщений: 1,424 Записей в блоге: 12
	15.09.2014, 16:50 [ТС]
	kodv, я именно так и сделал в итоге. 0