Избавиться от UDF / Firebird, InterBase

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Firebird, InterBase [игнор отключен] [закрыт для гостей] / Избавиться от UDF

10 сообщений из 10, страница 1 из 1

Избавиться от UDF

#39013650

Ruslang

Гость

Есть udf dll-ка с одной единственной функцией:

Код: pascal

1.
2.
3.
4.

function NOOT(var Flag: Integer): smallint; cdecl; export;
begin
  Result :=smallint((Flag and $0400)=$0400);
end;

А вот запрос где эта функция используется:
авторselect naim, count(*) from evl e, spr s where NOOT(e.flags)=1 and e.id=s.id group by naim

Чтобы программа заработала на новом компьютере, приходится таскать с собой эту dll-ку и закидывать ее в папку Firebird_2_5/UDF, что совсем неудобно.
Как можно избавиться от этой функции и перенести ее в SQL-запрос?

PS. Firebird 2.5

...

Рейтинг:

0 / 0

22.07.2015, 16:51

| Ответить | Цитировать | Написать

Избавиться от UDF

#39013656

Мимопроходящий

Участник

Откуда: бурятский тундрюк, эсквайр

Сообщения: 33 443

Рейтинг: 0 / 0

используй встроенную (SDF) функцию BIN_AND
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

22.07.2015, 16:56

| Ответить | Цитировать | Написать

Избавиться от UDF

#39013680

Ruslang

Гость

Мимопроходящий , так?

Код: plsql

select naim, count(*) from evl e, spr s where (BIN_AND(e.flags,1024)=1024) and e.id=s.id group by naim

...

Рейтинг:

0 / 0

22.07.2015, 17:08

| Ответить | Цитировать | Написать

Избавиться от UDF

#39013701

Мимопроходящий

Участник

Откуда: бурятский тундрюк, эсквайр

Сообщения: 33 443

Рейтинг: 0 / 0

Hello, Ruslang!
You wrote on 22 июля 2015 г. 17:15:53:

Ruslangтак?типа того.
шестнадцатеричные литералы тоже можешь использовать, если тебе так удобнее.
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

22.07.2015, 17:16

| Ответить | Цитировать | Написать

Избавиться от UDF

#39013705

Ivan_Pisarevsky

Участник

Откуда: НН

Сообщения: 9 563

Рейтинг: 0 / 0

Ruslangтак?
[SRC plsql][/SRC]данные же у тебя выполни 2 запроса и проверь идентичность наборов. Например можно исполнить их как вложенные и потом сджойнить.

...

Рейтинг:

0 / 0

22.07.2015, 17:17

| Ответить | Цитировать | Написать

Избавиться от UDF

#39013709

Ruslang

Гость

Мимопроходящий , а как их использовать? IBExpert ругается на знак доллара $0400.
И еще вопрос bin_and в Firebird версии 2.1 есть?

...

Рейтинг:

0 / 0

22.07.2015, 17:18

| Ответить | Цитировать | Написать

Избавиться от UDF

#39013719

Ivan_Pisarevsky

Участник

Откуда: НН

Сообщения: 9 563

Рейтинг: 0 / 0

Ruslangbin_and в Firebird версии 2.1 есть?да.

...

Рейтинг:

0 / 0

22.07.2015, 17:21

| Ответить | Цитировать | Написать

Избавиться от UDF

#39013730

Мимопроходящий

Участник

Откуда: бурятский тундрюк, эсквайр

Сообщения: 33 443

Рейтинг: 0 / 0

Hello, Ruslang!
You wrote on 22 июля 2015 г. 17:24:09:

Ruslang> IBExpert ругается на знак доллара $0400.0x0400
Ruslang> И еще вопрос bin_and в Firebird версии 2.1 есть?да
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

22.07.2015, 17:24

| Ответить | Цитировать | Написать

Избавиться от UDF

#39013742

Ivan_Pisarevsky

Участник

Откуда: НН

Сообщения: 9 563

Рейтинг: 0 / 0

запусти для проверки нечто подобное и погляди насколько оно одинаково

Код: sql

1.
2.
3.
4.
5.

select * from 
(select naim m1 , count(*) c1 from evl e, spr s where NOOT(e.flags)=1 and e.id=s.id group by naim) a1
join
(select naim m2, count(*) c2 from evl e, spr s where (BIN_AND(e.flags,1024)=1024) and e.id=s.id group by naim) a2
on a1.m1 = a2.m2 and a1.c1 = a2.c2

код я не проверял.

...

Рейтинг:

0 / 0

22.07.2015, 17:30

| Ответить | Цитировать | Написать

Избавиться от UDF

#39014149

Ruslang

Гость

Ivan_Pisarevskyзапусти для проверки нечто подобное и погляди насколько оно одинаково

О, отлично, не догадался бы так проверить. Сравнил, данные идентичны.

Ivan_Pisarevsky , Мимопроходящий спасибо, вы мне очень помогли.

...

Рейтинг:

0 / 0

23.07.2015, 08:52

| Ответить | Цитировать | Написать

10 сообщений из 10, страница 1 из 1

Форумы / Firebird, InterBase [игнор отключен] [закрыт для гостей] / Избавиться от UDF

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=40&tid=1562706]:	0ms
get settings:	11ms
get forum list:	15ms
check forum access:	4ms
check topic access:	4ms
track hit:	48ms
get topic data:	13ms
get forum data:	3ms
get page messages:	47ms
get tp. blocked users:	2ms
others:	261ms

total:	408ms