ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как передать параметр открываемому отчету Access?
9 сообщений из 9, страница 1 из 1
Как передать параметр открываемому отчету Access?
    #39469887
Verbovsky Innokenty
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Verbovsky Innokenty
Гость
База - MSSQL SERVER 2012
клиент - VB6
Для отчетов использую проект Access 2007 .adp
Отчет имеет источником записей хранимую процедуру с параметром.
Что-то меня переклинило, никак не придумаю, как передать параметр

Код: vbnet
1.
2.
3.
4.
5.
6.
Set gAccessApp = CreateObject("Access.Application")
    With gAccessApp
        .OpenAccessProject App.Path & "\db.adp", False
        .CurrentProject.OpenConnection "Provider=SQLOLEDB.1;Password=..."
        .DoCmd.OutputTo acOutputReport, "rpt", acFormatPDF, App.Path & "\rpt.pdf"
    End With


прововал так:

Код: vbnet
1.
2.
    gAccessApp.DoCmd.OpenReport "rpt", acViewDesign
    gAccessApp.Reports("rpt").RecordSource = "dbo.sp_rpt " & Parameter



не понимает (
...
Рейтинг: 0 / 0
10.06.2017, 08:37
| Ответить | Цитировать | Написать  
Как передать параметр открываемому отчету Access?
    #39469900
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Verbovsky Innokenty,

https://msdn.microsoft.com/ru-ru/library/office/ff192676.aspx
Обратите внимание на "where condition"

Код: vbnet
1.
gAccessApp.DoCmd.OpenReport "rpt", acViewDesign,,"Id=" & Id
...
Рейтинг: 0 / 0
10.06.2017, 09:39
| Ответить | Цитировать | Написать  
Как передать параметр открываемому отчету Access?
    #39469908
Verbovsky Innokenty
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Verbovsky Innokenty
Гость
big-duke,

Спасибо, но не помогло. Access выдает диалоговое окно с запросом на значение параметра (
...
Рейтинг: 0 / 0
10.06.2017, 10:03
| Ответить | Цитировать | Написать  
Как передать параметр открываемому отчету Access?
    #39471253
Фотография Focha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Focha
Участник
Verbovsky Innokentybig-duke,

Спасибо, но не помогло. Access выдает диалоговое окно с запросом на значение параметра (
Как вариант через глобальную функцию.
...
Рейтинг: 0 / 0
14.06.2017, 08:27
| Ответить | Цитировать | Написать  
Как передать параметр открываемому отчету Access?
    #39471559
Verbovsky Innokenty
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Verbovsky Innokenty
Гость
Focha, спасибо, но не совсем понятно как это и что это меняет

Пока решил заменить процедуру на представление и менять RecordSource = "SELECT * FROM view WHERE ID =" & ID
...
Рейтинг: 0 / 0
14.06.2017, 14:56
| Ответить | Цитировать | Написать  
Как передать параметр открываемому отчету Access?
    #39473124
Фотография Focha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Focha
Участник
Verbovsky InnokentyFocha, спасибо, но не совсем понятно как это и что это меняет

Пока решил заменить процедуру на представление и менять RecordSource = "SELECT * FROM view WHERE ID =" & ID


Код: vbnet
1.
2.
3.
Public Function id() As String
id = 12
End Function




Код: sql
1.
2.
3.
SELECT *
FROM test
WHERE id=id();
...
Рейтинг: 0 / 0
16.06.2017, 13:40
| Ответить | Цитировать | Написать  
Как передать параметр открываемому отчету Access?
    #39473125
Фотография Focha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Focha
Участник
Код: vbnet
1.
2.
3.
Public Function id() As Double 'я же число возвращаю
id = 12
End Function
...
Рейтинг: 0 / 0
16.06.2017, 13:41
| Ответить | Цитировать | Написать  
Как передать параметр открываемому отчету Access?
    #39473170
Verbovsky Innokenty
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Verbovsky Innokenty
Гость
Focha
Код: sql
1.
2.
3.
SELECT *
FROM test
WHERE id=id();


Не, не то. Мне надо передать параметр хранимой процедуре, а не SQL-инструкцию создать. Ну да ладно, смог процедуру во "вьюшку" переделать
...
Рейтинг: 0 / 0
16.06.2017, 14:35
| Ответить | Цитировать | Написать  
Как передать параметр открываемому отчету Access?
    #39483262
Verbovsky Innokenty
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Verbovsky Innokenty
Гость
Если вдруг кому интересно, победил следующим образом:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Set gAccessApp = CreateObject("Access.Application")
    With gAccessApp
        .OpenAccessProject App.Path & "\db.adp", False
        .CurrentProject.OpenConnection "Provider=SQLOLEDB.1;Password=..."
        .DoCmd.OpenReport "rpt", acViewDesign
        .Reports("rpt").InputParameters = "@ID int=" & ID & ", d Date='20170701'"
        .DoCmd.OutputTo acOutputReport, "rpt", acFormatPDF, App.Path & "\rpt.pdf"
    End With
...
Рейтинг: 0 / 0
05.07.2017, 15:59
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как передать параметр открываемому отчету Access?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=15&tid=2155245]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 25ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 2ms
others: 12ms
total:  122ms
созд. / загр.: 122ms
x
x
Закрыть


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