VPF::Zeos + MySQL + TZStoredProc - Форум программистов

Vas

Дата 18.1.2012, 08:17 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 830
Регистрация: 29.6.2005
Где: Stavropol region

Репутация: 23
Всего: 28

Zeos 7.0.0 alpha
Delphi 7
MySQL 5.0

Все прекрасно работает, проблем не возникало, пока не дошел до использования хранимых процедур, написал в мускуле, все как положено, выполнение

Код


call storeproc(бла.. бла.. бла, param);

select @param;

проходит на ура, все возвращается. Но выполнить ХП через TZStoredProc никак не получается, получаю в ответ 'Unsupported operation'.
В инете пока ничего внятного не нашел, если Zeos не поддерживает хранимые процедуры MySQL, то как же выполнять их. Кто как выходит из положения или может использует другие компоненты, желательно Free.

--------------------

И опыт, сын ошибок трудных, И гений, парадоксов друг, И случай, бог изобретатель. ... (А.С. Пушкин)

Akella

Дата 18.1.2012, 12:39 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

а если что-то вроде select список возвращаемых параметров from procedure(список входящих параметров)

Добавлено через 1 минуту и 49 секунд
или execute procedure(список параметров)

Добавлено через 3 минуты и 53 секунды
http://www.sql.ru/forum/actualutils.aspx?a...amp;msg=2757279

Цитата

Zeos (2004 год) не поддерживает хранимые процедуры MySQL (2005 год).

Может до сих пор нет поддержки?

Vas

Дата 18.1.2012, 14:18 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 830
Регистрация: 29.6.2005
Где: Stavropol region

Репутация: 23
Всего: 28

Цитата(Akella @ 18.1.2012, 12:39

)

Может до сих пор нет поддержки?

Ага, вот что разработчик отвечает

Цитата

Mysql stored procedures are not supported by the StoredProc component yet.

Вот пара интересных ссылок
http://zeos.firmos.at/viewtopic.php?t=1006...toredproc+mysql
http://zeos.firmos.at/viewtopic.php?t=459

Итак, а теперь перейдем в принципе к решению. Так как я с MySQL начал работать недавно, в связи с этим, после оракуля, тяжело понимать как процедура может возвращать набор данных, что-то типа курсора получается, но в тоже время курсор не объявляется, но не важно, так вот если у вас процедура возвращает набор данных, то все в принципе просто

Код


  with ZQuery1 do
    try
      SQL.Text:='call  whs.fetch_subtree(''office'', ''id'', ''id_parent'', 4, 0,  false, @g)';
      ZQuery1.Open;
    except
      on E:Exception do
        ShowMessage(E.Message);
    end;

после выполнения Open, в DBGrid увидим возвращенные записи, в нашем случае id всех подчиеннных подразделений, начиная с 4 id (но не суть).
Но если 6 параметр нашей процедуры поставить в True, то мы дожны получить теже id, только переданные в виде строки в параметр @g
Вот как это происходит в мускуле

Код


mysql> call whs.fetch_subtree('office', 'id', 'id_parent', 4, 0,  true, @g);
Query OK, 0 rows affected (0.00 sec)
mysql> select @g
    -> ;
+------------------+
| @g               |
+------------------+
| 4,7,8,9,10,11,13 |
+------------------+
1 row in set (0.00 sec)

Как оказывается с выходными параметрами у Zeos тоже проблема, поэтому решено было действовать аналогично самому мускулю

Код


  with ZQuery1 do
    try
      SQL.Text:='call  whs.fetch_subtree(''office'', ''id'', ''id_parent'', 4, 0,  true, @g)';
      ZQuery1.ExecSQL;
      SQL.Text:='select @g';
      ZQuery1.Open;
    except
      on E:Exception do
        ShowMessage(E.Message);
    end;

В результате выполнения получим нужный нам результат.

И самое важное все это работает, только при установленном свойстве ZConnection CLIENT_MULTI_STATEMENTS=1

Вот собственно пока все, у кого есть какие дополнения пишем, не стесняемся.

Добавлено через 2 минуты и 55 секунд
Все манипуляции проводились на компонентах ZEOSDBO-7.0.0-alpha

--------------------

И опыт, сын ошибок трудных, И гений, парадоксов друг, И случай, бог изобретатель. ... (А.С. Пушкин)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »