ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Результат скалярной UDF в поле формы
13 сообщений из 13, страница 1 из 1
Результат скалярной UDF в поле формы
    #32753594
Guest01
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Guest01
Гость
ADP2002+SQL2000
Функция:
ALTER FUNCTION dbo.МояФункция
(@Код int,
@Дата smalldatetime)
RETURNS decimal (10,4)
AS
BEGIN
RETURN ( SELECT TOP 1 Ставка
FROM dbo.МояТаблица
WHERE (КодВидСубконто = @Код) AND (Дата <= @Дата)
ORDER BY Дата DESC )
END
Подскажите, как получить результат функции в вычисляемом поле формы.
...
Рейтинг: 0 / 0
25.10.2004, 18:08:15
| Ответить | Цитировать | Написать  
Результат скалярной UDF в поле формы
    #32753623
incold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
incold
Участник
А форма с источником данных?
...
Рейтинг: 0 / 0
25.10.2004, 18:17:12
| Ответить | Цитировать | Написать  
Результат скалярной UDF в поле формы
    #32753628
Guest01
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Guest01
Гость
Да.
...
Рейтинг: 0 / 0
25.10.2004, 18:18:16
| Ответить | Цитировать | Написать  
Результат скалярной UDF в поле формы
    #32753646
incold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
incold
Участник
Варианты:
- добавить в источник формы поле=результат функции
- сделать храним.процедуру = функции, сделать вызов этой процедуры на VBA с возвратом значения через рекордсет
...
Рейтинг: 0 / 0
25.10.2004, 18:28:33
| Ответить | Цитировать | Написать  
Результат скалярной UDF в поле формы
    #32753647
ищ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ищ
Гость
currentproject.Connection.Execute("select dbo.MyFunction(1,13694,13202)")(0)
...
Рейтинг: 0 / 0
25.10.2004, 18:29:21
| Ответить | Цитировать | Написать  
Результат скалярной UDF в поле формы
    #32753658
Guest01
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Guest01
Гость
Предложенный второй пункт как раз и пытаюсь обойти - дублирование кода.
Первый пункт пробовал - в поле ":ИМЯ?". Буду провоать еще 1 вариант,
возможно аргументы плохо передал.

Спасибо.
...
Рейтинг: 0 / 0
25.10.2004, 18:34:45
| Ответить | Цитировать | Написать  
Результат скалярной UDF в поле формы
    #32753661
incold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
incold
Участник
авторПервый пункт пробовал - в поле ":ИМЯ?".

select dbo.myfunction(myfield) as myfield
...
Рейтинг: 0 / 0
25.10.2004, 18:36:24
| Ответить | Цитировать | Написать  
Результат скалярной UDF в поле формы
    #32753669
Guest01
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Guest01
Гость
Всем спасибо.
Завтра буду шаманить. Результат сообщу.
...
Рейтинг: 0 / 0
25.10.2004, 18:39:05
| Ответить | Цитировать | Написать  
Результат скалярной UDF в поле формы
    #32754457
Guest01
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Guest01
Гость
Вышло через VBA функцию:

Public Function MyFunction(Дата As String, Код As Integer)
Dim cnn As ADODB.Connection
Set cnn = CurrentProject.Connection
MyFunction = cnn.Execute("Select dbo.MyUDFFunction(" _
& Код & "," & Format(Дата, "'yyyymmdd'") & ")")(0)
cnn.Close
Set cnn = Nothing
End Function
...
Рейтинг: 0 / 0
26.10.2004, 12:02:57
| Ответить | Цитировать | Написать  
Результат скалярной UDF в поле формы
    #32754486
Alexey Sh
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexey Sh
Участник
Зачем писанины столько :)
Код: plaintext
1.
2.
CurrentProject.Connection..Execute("Select dbo.MyUDFFunction(" _
& Код & "," & Format(Дата, "'yyyymmdd'") & ")")( 0 )

да и cnn.Close несколько смущает
...
Рейтинг: 0 / 0
26.10.2004, 12:09:56
| Ответить | Цитировать | Написать  
Результат скалярной UDF в поле формы
    #32754496
Alexey Sh
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexey Sh
Участник
Сорри , точка лишняя
Код: plaintext
1.
2.
CurrentProject.Connection.Execute("Select dbo.MyUDFFunction(" & Код & "," & Format(Дата, "'yyyymmdd'") & ")")( 0 )
...
Рейтинг: 0 / 0
26.10.2004, 12:11:49
| Ответить | Цитировать | Написать  
Результат скалярной UDF в поле формы
    #32754516
Guest01
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Guest01
Гость
Люблю порядок.
Предпочитаю явно закрывать все ссылки.
...
Рейтинг: 0 / 0
26.10.2004, 12:16:27
| Ответить | Цитировать | Написать  
Результат скалярной UDF в поле формы
    #32754530
Alexey Sh
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexey Sh
Участник
явное "закрытие ссылки" (ументшение счётчика ссылок на объект, IUnknown::Release )есть
Код: plaintext
Set cnn = Nothing
а .Close есть несколько более серьёзное действие
...
Рейтинг: 0 / 0
26.10.2004, 12:19:27
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Результат скалярной UDF в поле формы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32753594&tid=1670819]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 109ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 2ms
others: 236ms
total:  426ms
созд. / загр.: 426ms
x
x
Закрыть


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