ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Ошибка при создании Stored Function в Mysql через MyDac
11 сообщений из 11, страница 1 из 1
Ошибка при создании Stored Function в Mysql через MyDac
    #39565565
Jonnik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jonnik
Гость
Есть код создания функции в Mysql. Он работает, если его например выполнить через редактор Sqlyog для Mysql. Нет ни ошибок не предупреждений.

Код: plsql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
DROP FUNCTION IF EXISTS `CalcDayTimeSheet`;

DELIMITER $$ 
  

CREATE  FUNCTION `CalcDayTimeSheet`(IDUser INT, TextDate VARCHAR(25)) RETURNS TIME     
BEGIN      
DECLARE NumberHours TIME;     
SET NumberHours = 0;         
SET NumberHours = (SELECT SEC_TO_TIME(IF(MIN(DateWork)=MAX(DateWork), 600, TIMESTAMPDIFF(SECOND, MIN(DateWork), MAX(DateWork)))) FROM (  
SELECT DateBegin AS DateWork          
FROM ItemsTexCards          
WHERE DATE_FORMAT(DateBegin, "%Y-%c-%e")=TextDate AND IDMade=IDUser           
UNION ALL          
SELECT DateEnd  AS DateWork           
FROM ItemsTexCards           
WHERE DATE_FORMAT(DateEnd, "%Y-%c-%e")=TextDate AND IDMade=IDUser          
) i_am_derevided_table);     
RETURN NumberHours;     
END$$  
DELIMITER ;



Когда я этот код пытаюсь выполнить в XE8 через MyQuery, то выдает ошибку. Типа ему, что то не нравится начиная с DELIMITER $$ .
Вот ошибка
Код: pascal
1.
2.
3.
4.
5.
6.
7.
---------------------------
Debugger Exception Notification
---------------------------
Project TListCompanies.exe raised exception class EMySqlException with message '
#42000You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'DELIMITER $$  
 CREATE  FUNCTION `CalcDayTimeSheet`(IDUser INT, TextDate VARCHA' at line 1'.
---------------------------



Сам код

Код: pascal
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.
27.
28.
29.
30.
31.
32.
with MyQuery do      // DEFINER=`' + LSA.NDBLogin + '`@`%`  DM.MyStoredProc1
    try
      sql.text:='DROP FUNCTION IF EXISTS `CalcDayTimeSheet`;  ' + #13
      +' DELIMITER $$  ' + #13

   //   +' USE `' + LSA.NDBName + '`$$  '
      +' CREATE  FUNCTION `CalcDayTimeSheet`(IDUser INT, TextDate VARCHAR(25)) RETURNS TIME   '
      +'  BEGIN  '

      +'    DECLARE NumberHours TIME; '

      +'    SET NumberHours = 0; '

      +'        SET NumberHours = (SELECT SEC_TO_TIME(IF(MIN(DateWork)=MAX(DateWork), 600, TIMESTAMPDIFF(SECOND, MIN(DateWork), MAX(DateWork)))) FROM ( '
      +'        SELECT DateBegin AS DateWork  '
      +'        FROM ItemsTexCards  '
      +'        WHERE DATE_FORMAT(DateBegin, "%Y-%c-%e")=TextDate AND IDMade=IDUser   '
      +'        UNION ALL  '
      +'        SELECT DateEnd  AS DateWork   '
      +'        FROM ItemsTexCards   '
      +'        WHERE DATE_FORMAT(DateEnd, "%Y-%c-%e")=TextDate AND IDMade=IDUser  '
      +'        ) i_am_derevided_table); '

      +'    RETURN NumberHours;   ' + #13
      +'  END$$ ' + #13

      +' DELIMITER ; ';

      Execute;
    finally
      Free;
    end;



В чем может быть проблема ?
...
Рейтинг: 0 / 0
07.12.2017, 09:31
| Ответить | Цитировать | Написать  
Ошибка при создании Stored Function в Mysql через MyDac
    #39565573
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
TMyScript?
...
Рейтинг: 0 / 0
07.12.2017, 09:37
| Ответить | Цитировать | Написать  
Ошибка при создании Stored Function в Mysql через MyDac
    #39565581
Jonnik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jonnik
Гость
wadmanTMyScript?

Никогда этой штукой не пользовался и может, что то не так делаю. Но результат такой.

Код: pascal
1.
2.
3.
4.
5.
6.
---------------------------
Debugger Exception Notification
---------------------------
Project TListCompanies.exe raised exception class EMySqlException with message '
#42000You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'DELIMITER' at line 3'.
---------------------------



Код: pascal
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.
27.
28.
29.
30.
31.
 with DM.MyScript1 do      // DEFINER=`' + LSA.NDBLogin + '`@`%`  DM.MyStoredProc1
    try
      sql.text:='DROP FUNCTION IF EXISTS `CalcDayTimeSheet`;  ' + #13
      +' DELIMITER $$  ' + #13

   //   +' USE `' + LSA.NDBName + '`$$  '
      +' CREATE  FUNCTION `CalcDayTimeSheet`(IDUser INT, TextDate VARCHAR(25)) RETURNS TIME   '
      +'  BEGIN  '

      +'    DECLARE NumberHours TIME; '

      +'    SET NumberHours = 0; '

      +'        SET NumberHours = (SELECT SEC_TO_TIME(IF(MIN(DateWork)=MAX(DateWork), 600, TIMESTAMPDIFF(SECOND, MIN(DateWork), MAX(DateWork)))) FROM ( '
      +'        SELECT DateBegin AS DateWork  '
      +'        FROM ItemsTexCards  '
      +'        WHERE DATE_FORMAT(DateBegin, "%Y-%c-%e")=TextDate AND IDMade=IDUser   '
      +'        UNION ALL  '
      +'        SELECT DateEnd  AS DateWork   '
      +'        FROM ItemsTexCards   '
      +'        WHERE DATE_FORMAT(DateEnd, "%Y-%c-%e")=TextDate AND IDMade=IDUser  '
      +'        ) i_am_derevided_table); '

      +'    RETURN NumberHours;   ' + #13
      +'  END$$ ' + #13

      +' DELIMITER ; ';
      Execute;
    finally
     // Free;
    end;



У этого компанента еще есть свойство DELIMITER и оно у меня равно ";" Может его надо менять или процедуру надо переписать ?
...
Рейтинг: 0 / 0
07.12.2017, 09:51
| Ответить | Цитировать | Написать  
Ошибка при создании Stored Function в Mysql через MyDac
    #39565598
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
JonnikМожет его надо менять или процедуру надо переписать ?
Попробуй указать свой delimiter и убрать из скрипта манипуляции с ним.
...
Рейтинг: 0 / 0
07.12.2017, 10:16
| Ответить | Цитировать | Написать  
Ошибка при создании Stored Function в Mysql через MyDac
    #39565646
Jonnik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jonnik
Гость
wadmanJonnikМожет его надо менять или процедуру надо переписать ?
Попробуй указать свой delimiter и убрать из скрипта манипуляции с ним.

Пробую так. Ошибок нет теперь. Но и функция не создается. В чем может быть проблема ?

Код: pascal
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.
27.
28.
29.
30.
31.
 with DM.MyScript1 do     
    try
      Delimiter := '$$';
      sql.text:='DROP FUNCTION IF EXISTS `CalcDayTimeSheet`;  ' + #13

      +' CREATE  FUNCTION `CalcDayTimeSheet`(IDUser INT, TextDate VARCHAR(25)) RETURNS TIME   '
      +'  BEGIN  '

      +'    DECLARE NumberHours TIME; '

      +'    SET NumberHours = 0; '

      +'        SET NumberHours = (SELECT SEC_TO_TIME(IF(MIN(DateWork)=MAX(DateWork), 600, TIMESTAMPDIFF(SECOND, MIN(DateWork), MAX(DateWork)))) FROM ( '
      +'        SELECT DateBegin AS DateWork  '
      +'        FROM ItemsTexCards  '
      +'        WHERE DATE_FORMAT(DateBegin, "%Y-%c-%e")=TextDate AND IDMade=IDUser   '
      +'        UNION ALL  '
      +'        SELECT DateEnd  AS DateWork   '
      +'        FROM ItemsTexCards   '
      +'        WHERE DATE_FORMAT(DateEnd, "%Y-%c-%e")=TextDate AND IDMade=IDUser  '
      +'        ) i_am_derevided_table); '

      +'    RETURN NumberHours;   ' + #13
      +'  END$$' + #13

      +' DELIMITER ;';

      Execute;
    finally
     // Free;
    end;
...
Рейтинг: 0 / 0
07.12.2017, 11:12
| Ответить | Цитировать | Написать  
Ошибка при создании Stored Function в Mysql через MyDac
    #39565672
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
В транзакции?

П.С. Не кажется ли, что между drop и create должен быть указанный в свойствах delimiter, а не точка с запятой?
...
Рейтинг: 0 / 0
07.12.2017, 11:33
| Ответить | Цитировать | Написать  
Ошибка при создании Stored Function в Mysql через MyDac
    #39565703
Jonnik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jonnik
Гость
wadmanВ транзакции?

П.С. Не кажется ли, что между drop и create должен быть указанный в свойствах delimiter, а не точка с запятой?

Я тут не использую транзакцию.

Сделал так. Т.е. поставил $$ и теперь ошибка на нем

Код: pascal
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.
27.
28.
29.
30.
with DM.MyScript1 do      // DEFINER=`' + LSA.NDBLogin + '`@`%`  DM.MyStoredProc1
    try
      Delimiter := '$$';
      sql.text:='DROP FUNCTION IF EXISTS `CalcDayTimeSheet` $$' + #13

      +' CREATE  FUNCTION `CalcDayTimeSheet`(IDUser INT, TextDate VARCHAR(25)) RETURNS TIME   '
      +'  BEGIN  '

      +'    DECLARE NumberHours TIME; '

      +'    SET NumberHours = 0; '

      +'        SET NumberHours = (SELECT SEC_TO_TIME(IF(MIN(DateWork)=MAX(DateWork), 600, TIMESTAMPDIFF(SECOND, MIN(DateWork), MAX(DateWork)))) FROM ( '
      +'        SELECT DateBegin AS DateWork  '
      +'        FROM ItemsTexCards  '
      +'        WHERE DATE_FORMAT(DateBegin, "%Y-%c-%e")=TextDate AND IDMade=IDUser   '
      +'        UNION ALL  '
      +'        SELECT DateEnd  AS DateWork   '
      +'        FROM ItemsTexCards   '
      +'        WHERE DATE_FORMAT(DateEnd, "%Y-%c-%e")=TextDate AND IDMade=IDUser  '
      +'        ) i_am_derevided_table); '

      +'    RETURN NumberHours;   ' + #13
      +'  END$$' + #13

      +' DELIMITER ;';
      Execute;
    finally
     // Free;
    end;



И ошибка в третей строке теперь. В тексте это тут
Код: pascal
1.
+'  END$$' + #13

Там просто тест запроса по другому выглядит. В общем какая то жесть.

Код: pascal
1.
2.
3.
4.
5.
6.
---------------------------
Debugger Exception Notification
---------------------------
Project TListCompanies.exe raised exception class EMySqlException with message '
#42000You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'DELIMITER' at line 3'.
---------------------------
...
Рейтинг: 0 / 0
07.12.2017, 11:53
| Ответить | Цитировать | Написать  
Ошибка при создании Stored Function в Mysql через MyDac
    #39565714
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
Дак убери из скрипта объявление разделителя... Им сам компонент управляет через своё свойство.
...
Рейтинг: 0 / 0
07.12.2017, 12:03
| Ответить | Цитировать | Написать  
Ошибка при создании Stored Function в Mysql через MyDac
    #39565741
Jonnik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jonnik
Гость
wadmanДак убери из скрипта объявление разделителя... Им сам компонент управляет через своё свойство.

Делал я уже по разному. Ему все не нравится (((
Эту функцию можно записать без DELIMITER ? Если можно, то как?

Код: plsql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
DROP FUNCTION IF EXISTS `CalcDayTimeSheet`;

DELIMITER $$ 
  

CREATE  FUNCTION `CalcDayTimeSheet`(IDUser INT, TextDate VARCHAR(25)) RETURNS TIME     
BEGIN      
DECLARE NumberHours TIME;     
SET NumberHours = 0;         
SET NumberHours = (SELECT SEC_TO_TIME(IF(MIN(DateWork)=MAX(DateWork), 600, TIMESTAMPDIFF(SECOND, MIN(DateWork), MAX(DateWork)))) FROM (  
SELECT DateBegin AS DateWork          
FROM ItemsTexCards          
WHERE DATE_FORMAT(DateBegin, "%Y-%c-%e")=TextDate AND IDMade=IDUser           
UNION ALL          
SELECT DateEnd  AS DateWork           
FROM ItemsTexCards           
WHERE DATE_FORMAT(DateEnd, "%Y-%c-%e")=TextDate AND IDMade=IDUser          
) i_am_derevided_table);     
RETURN NumberHours;     
END$$  
DELIMITER ;
...
Рейтинг: 0 / 0
07.12.2017, 12:27
| Ответить | Цитировать | Написать  
Ошибка при создании Stored Function в Mysql через MyDac
    #39565763
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
JonnikЕсли можно, то как?
Убрать из скрипта все слова/конструкции DELIMITER .
...
Рейтинг: 0 / 0
07.12.2017, 12:45
| Ответить | Цитировать | Написать  
Ошибка при создании Stored Function в Mysql через MyDac
    #39565784
Jonnik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jonnik
Гость
wadmanJonnikЕсли можно, то как?
Убрать из скрипта все слова/конструкции DELIMITER .

В общем DELIMITER по умолчанию оставил. Убрал все слова DELIMITER из запроса и символы $$
В программе все это работает, а в Sqlyog такой запрос не работает. Поэтому я не мог найти правильный вариант.
Большое спасибо.
...
Рейтинг: 0 / 0
07.12.2017, 13:01
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Ошибка при создании Stored Function в Mysql через MyDac
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39565703&tid=2041462]:
 0ms
get settings:
 6ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 281ms
get topic data:
 13ms
get forum data:
 2ms
get page messages:
 51ms
get tp. blocked users:
 1ms
others: 197ms
total:  572ms
созд. / загр.: 572ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]