ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Перевести с TSQL на VB
6 сообщений из 6, страница 1 из 1
Перевести с TSQL на VB
    #34965096
P-a-i-n-k-i-l-l-e-r
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
P-a-i-n-k-i-l-l-e-r
Участник
Добрый день!
Помогите, пожалуйста, перевести функцию с сиквела на визуал бейсик.

вот текст функции


create FUNCTION [dbo].[SALDO] (@ACCNT_CODE Char(10), @DATE_START smalldatetime)
RETURNS MONEY AS
BEGIN
DECLARE @@SALDO AS MONEY

BEGIN
SET @@SALDO = (SELECT sum(AMOUNT)

FROM OBOROT_36
WHERE TRANS_DATE < @DATE_START
AND ACCNT_CODE = @ACCNT_CODE
)
END
RETURN @@SALDO
END
...
Рейтинг: 0 / 0
26.11.2007, 13:45
| Ответить | Цитировать | Написать  
Перевести с TSQL на VB
    #34965140
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
А на олбанский не перевести? TSQL предназначен для работы с базами, VB для работы с системой. Области их применения никак не пересекаются.

Разве что по смыслу перевести:
Код: plaintext
1.
2.
3.
4.
5.
6.
Function SALDO(ACCNT_CODE as String *  10 , DATE_START as Date) as Currency
Dim cn as New ADODB.Connection
Dim rs as ADODB.Recorset
    cn.Open строка_соединения
    set rs = cn.Execute("SELECT sum(AMOUNT) FROM OBOROT_36 WHERE TRANS_DATE < '" & Format(DATE_START, "yyyy-mm-dd") & "' AND ACCNT_CODE = '" & ACCNT_CODE & "'")
    If not rs.EOF Then SALDO = rs( 0 ).Value
End Function
...
Рейтинг: 0 / 0
26.11.2007, 13:56
| Ответить | Цитировать | Написать  
Перевести с TSQL на VB
    #34965153
P-a-i-n-k-i-l-l-e-r
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
P-a-i-n-k-i-l-l-e-r
Участник
Да вот пересекаются в такой замечательной проге как кристал репорт. Но и за это спасибо, хоть посмотрю и покувыряю
...
Рейтинг: 0 / 0
26.11.2007, 13:58
| Ответить | Цитировать | Написать  
Перевести с TSQL на VB
    #34965953
P-a-i-n-k-i-l-l-e-r
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
P-a-i-n-k-i-l-l-e-r
Участник
может я неправильно вопрос задал? Но суть была в том, что бы в кристал репорте 11 написать такую функцию, есть 2 варианта, либо на вб либо на кристловском языке писать, ни того ни другого толком незнаю, хелп такой что для того чтоб только считался, весь переизлазил. Выше указанную фукнцию подставлял, ругается
" A variable type (for example,'String') is missing"


и если можно построчно 2,3 и 4 строчки прокомментировать, что они делают
...
Рейтинг: 0 / 0
26.11.2007, 17:04
| Ответить | Цитировать | Написать  
Перевести с TSQL на VB
    #34966188
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
P-a-i-n-k-i-l-l-e-rможет я неправильно вопрос задал? Но суть была в том, что бы в кристал репорте 11 написать такую функцию,ТАКУЮ - никак абсолютно.
CR обращается к базе один и только один раз - прочитает исходные таблицы, а потом делает группировки, сортировки, наложение собственных фильтров и тд. Но после чтения исходного резалтсета ты уже никак не заставишь CR повторно пойти в базу и запросить там еще что-то.
Результат функции должен быть членом исходного резалтсета.
Что-то в духе:
select account, date_start, Saldo(account, date_start) as MySaldo from sometable Если твоя СУБД не умеет вызывать UDF из селекта, то пиши хранимую процедуру с использованием временных таблиц.
Как это конкретно сделать - смотри документацию на свою СУБД.
И в любом случае - вопросы по Crystal Reports надо задавать в форуме "Отчетные системы"
...
Рейтинг: 0 / 0
26.11.2007, 18:05
| Ответить | Цитировать | Написать  
Перевести с TSQL на VB
    #34966281
P-a-i-n-k-i-l-l-e-r
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
P-a-i-n-k-i-l-l-e-r
Участник
И в любом случае - вопросы по Crystal Reports надо задавать в форуме "Отчетные системы"


Прошу не пинать сильно, но на том форуме очень глухо, обратился где есть какое-то оживление. Спасибо и за это, с миру по нитке выужу наверное то что нужно
...
Рейтинг: 0 / 0
26.11.2007, 18:25
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Перевести с TSQL на VB
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=34965140&tid=2163026]:
 0ms
get settings:
 9ms
get forum list:
 21ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 73ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 60ms
get tp. blocked users:
 1ms
others: 216ms
total:  400ms
созд. / загр.: 400ms
x
x
Закрыть


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