powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Отчёт
19 сообщений из 44, страница 2 из 2
Отчёт
    #32208837
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
я из Аксеса (2000 мдб)

Мдб там тоже есть:)
Но я и 2000 не увидел))))
...
Рейтинг: 0 / 0
Отчёт
    #32208862
Фотография TatianaT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
можно я тоже посмеюсь?

>с помощью глобальной переменной объявленной на уровне модуля можно практически так же как и с OpenArgs передать в отчёт всё что угодно, в том числе и результат выполнения ХП, в чём проблема-то теперь?


ну не работает так и всё
вот интересно , а Саныч свой совет проверял?
вдруг у меня руки кривые?
или смотрю в книгу а вижу... ну что вижу , а ничего не вижу?
я думаю что тут проблема в чём-то другом
вы ещё разок с начала прочитайте
ведь в QA возвращает записи
а в окошко запроса к серверу тоже должен?
...
Рейтинг: 0 / 0
Отчёт
    #32208870
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
> вот интересно , а Саныч свой совет проверял?

Он им постоянно пользуется. (Саныч советом, не наоборот.) :^)
...
Рейтинг: 0 / 0
Отчёт
    #32208879
Фотография TatianaT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
наверное таки ручки кривые
сделала так но ...
у меня не работает
отчёт при открытии орёт что записей не получил
...
Рейтинг: 0 / 0
Отчёт
    #32208885
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Смеяться можно сколько угодно - это полезно для здоровья, я например, ни над кем в этом топике не смеялся.

Тогда поставим вопрос по другому - вы строку подключения к серверу в запросе делаете? Полный текст запроса приведён или только часть?

Если работаете с хранимыми процедурами, лучше переходить на adp.
...
Рейтинг: 0 / 0
Отчёт
    #32208888
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
На всякий случай: я отвечал только на вопрос, как без OpenArgs передать что-то в отчет. На первоначальный вопрос этого топика я отвечать не берусь.
...
Рейтинг: 0 / 0
Отчёт
    #32208894
Фотография TatianaT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
строку подключения к серверу в запросе делаю
текст запроса приведён -Полный

перейти на адп не могу

ещё один момент
если это селект из хп прямо написать в окошко запроса ксерверу и вместо переменных написать константу(програмно собрать тело запроса) всё работает
вот так
Strsql = " "
Strsql = " SELECT SUM([tmp _plan_row].act_katif+[tmp _plan_row].act_merkazi+[tmp _plan_row].act_meshuklad+[tmp _plan_row].act_kfooim) AS Sumkatif," & vbCrLf
Strsql = Strsql & " SUM(0) AS Harig," & vbCrLf
Strsql = Strsql & " TRCKS.TRACK_ASMASHTA" & vbCrLf
Strsql = Strsql & " FROM PLAN_KOTERET INNER JOIN" & vbCrLf
Strsql = Strsql & " plan_tmp ON PLAN_KOTERET.PLAN_NUMBER = plan_tmp.plan_num INNER JOIN" & vbCrLf
Strsql = Strsql & " [tmp _plan_row] ON plan_tmp.id = [tmp _plan_row].plan_tmp_num FULL OUTER JOIN " & vbCrLf
Strsql = Strsql & " TRCKS ON plan_tmp.track = TRCKS.TRACK_ID " & vbCrLf
Strsql = Strsql & " WHERE (PLAN_KOTERET.PLAN_DATE >= CONVERT(DATETIME, '" & Format(Me!BeginPlanDTText, "mm/dd/yyyy") & "', 102)) AND " & vbCrLf
Strsql = Strsql & " (PLAN_KOTERET.PLAN_DATE <= CONVERT(DATETIME, '" & Format(Me!EndPlanDTText, "mm/dd/yyyy") & "', 102))" & vbCrLf
Strsql = Strsql & " GROUP BY TRCKS.TRACK_ASMASHTA" & vbCrLf
Strsql = Strsql & " Union All" & vbCrLf
Strsql = Strsql & " SELECT SUM(0) AS Sumkatif," & vbCrLf
Strsql = Strsql & " SUM(TRCKS.TRACK_NEFA) AS Harig," & vbCrLf
Strsql = Strsql & " TRCKS.TRACK_ASMASHTA" & vbCrLf
Strsql = Strsql & " FROM PLAN_KOTERET INNER JOIN" & vbCrLf
Strsql = Strsql & " plan_tmp ON PLAN_KOTERET.PLAN_NUMBER = plan_tmp.plan_num FULL OUTER JOIN" & vbCrLf
Strsql = Strsql & " TRCKS ON plan_tmp.track = TRCKS.TRACK_ID" & vbCrLf
Strsql = Strsql & " WHERE (PLAN_KOTERET.PLAN_DATE >=CONVERT(DATETIME, '" & Format(Me!BeginPlanDTText, "mm/dd/yyyy") & "', 102)) AND " & vbCrLf
Strsql = Strsql & " (PLAN_KOTERET.PLAN_DATE <= CONVERT(DATETIME, '" & Format(Me!EndPlanDTText, "mm/dd/yyyy") & "', 102)) AND"
Strsql = Strsql & " (plan_tmp.sevev = N'ç')" & vbCrLf
Strsql = Strsql & " GROUP BY TRCKS.TRACK_ASMASHTA" & vbCrLf
Strsql = Strsql & " ORDER BY TRCKS.TRACK_ASMASHTA"
Debug.Print Strsql
Call QueryExecute(Strsql, "Q_RepQuerySub1", 1, 0, True)

DoCmd.OpenReport "TrackLoadReport0", acViewPreview

"Q_RepQuerySub1" это имя запроса к серверу
а ф-я QueryExecute настраивает запрос (указываю стрку подк-я,возвращать ли записи, выполнять ли сейчас и т.д)

но хотелось бы так:

declare @Date1 datetime
declare @Date2 datetime
set @Date1='01/01/2003'
set @Date2='02/01/2003'
exec UP_RepSumMishtah @Date1, @Date2
...
Рейтинг: 0 / 0
Отчёт
    #32208908
вадя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
& vbCrLf
определенно лишние для исполняемого кода - только для красоты просмотра
...
Рейтинг: 0 / 0
Отчёт
    #32208911
Фотография TatianaT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а по существу вопроса?
...
Рейтинг: 0 / 0
Отчёт
    #32208920
Фотография TatianaT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
что-то я не пойму, те несчастные(вроде меня) которые в 2000 в мдб работают-
пользуются только акксесовскими запросами?
...
Рейтинг: 0 / 0
Отчёт
    #32208923
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Я постоянно пользуюсь Pass-Through Queries. Причем с динамически меняющимся SQL'ем.
...
Рейтинг: 0 / 0
Отчёт
    #32208929
Фотография TatianaT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
я тоже пользуюсь Pass-Through Queries с динамически меняющимся SQL'ем
а отчёты у тебя сидят не на хп а на таких запросах?
...
Рейтинг: 0 / 0
Отчёт
    #32208930
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Именно так. Я хп никогда не пользовался и тем ущербен.
...
Рейтинг: 0 / 0
Отчёт
    #32208934
вадя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
я бы хотел посмотреть результат
Debug.Print Strsql
...
Рейтинг: 0 / 0
Отчёт
    #32208939
Фотография TatianaT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вот результат из Debug.Print Strsql:

SELECT SUM([tmp _plan_row].act_katif+[tmp _plan_row].act_merkazi+[tmp _plan_row].act_meshuklad+[tmp _plan_row].act_kfooim) AS Sumkatif,
SUM(0) AS Harig,
TRCKS.TRACK_ASMASHTA
FROM PLAN_KOTERET INNER JOIN
plan_tmp ON PLAN_KOTERET.PLAN_NUMBER = plan_tmp.plan_num INNER JOIN
[tmp _plan_row] ON plan_tmp.id = [tmp _plan_row].plan_tmp_num FULL OUTER JOIN
TRCKS ON plan_tmp.track = TRCKS.TRACK_ID
WHERE (PLAN_KOTERET.PLAN_DATE >= CONVERT(DATETIME, '01/01/2003', 102)) AND
(PLAN_KOTERET.PLAN_DATE <= CONVERT(DATETIME, '02/01/2003', 102))
GROUP BY TRCKS.TRACK_ASMASHTA
Union All
SELECT SUM(0) AS Sumkatif,
SUM(TRCKS.TRACK_NEFA) AS Harig,
TRCKS.TRACK_ASMASHTA
FROM PLAN_KOTERET INNER JOIN
plan_tmp ON PLAN_KOTERET.PLAN_NUMBER = plan_tmp.plan_num FULL OUTER JOIN
TRCKS ON plan_tmp.track = TRCKS.TRACK_ID
WHERE (PLAN_KOTERET.PLAN_DATE >=CONVERT(DATETIME, '01/01/2003', 102)) AND
(PLAN_KOTERET.PLAN_DATE <= CONVERT(DATETIME, '02/01/2003', 102)) AND (plan_tmp.sevev = N'ç')
GROUP BY TRCKS.TRACK_ASMASHTA
ORDER BY TRCKS.TRACK_ASMASHTA
SELECT SUM([tmp _plan_row].act_katif+[tmp _plan_row].act_merkazi+[tmp _plan_row].act_meshuklad+[tmp _plan_row].act_kfooim) AS Sumkatif,
SUM(0) AS Harig,
TRCKS.TRACK_ASMASHTA
FROM PLAN_KOTERET INNER JOIN
plan_tmp ON PLAN_KOTERET.PLAN_NUMBER = plan_tmp.plan_num INNER JOIN
[tmp _plan_row] ON plan_tmp.id = [tmp _plan_row].plan_tmp_num FULL OUTER JOIN
TRCKS ON plan_tmp.track = TRCKS.TRACK_ID
WHERE (PLAN_KOTERET.PLAN_DATE >= CONVERT(DATETIME, '01/01/2003', 102)) AND
(PLAN_KOTERET.PLAN_DATE <= CONVERT(DATETIME, '02/01/2003', 102))
GROUP BY TRCKS.TRACK_ASMASHTA
Union All
SELECT SUM(0) AS Sumkatif,
SUM(TRCKS.TRACK_NEFA) AS Harig,
TRCKS.TRACK_ASMASHTA
FROM PLAN_KOTERET INNER JOIN
plan_tmp ON PLAN_KOTERET.PLAN_NUMBER = plan_tmp.plan_num FULL OUTER JOIN
TRCKS ON plan_tmp.track = TRCKS.TRACK_ID
WHERE (PLAN_KOTERET.PLAN_DATE >=CONVERT(DATETIME, '01/01/2003', 102)) AND
(PLAN_KOTERET.PLAN_DATE <= CONVERT(DATETIME, '02/01/2003', 102)) AND (plan_tmp.sevev = N'ç')
GROUP BY TRCKS.TRACK_ASMASHTA
ORDER BY TRCKS.TRACK_ASMASHTA
...
Рейтинг: 0 / 0
Отчёт
    #32208940
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Ой скока словей на иврите...
...
Рейтинг: 0 / 0
Отчёт
    #32208943
Фотография TatianaT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
я ж говорила что так у нас принято ивритские слова латинскими буквами
что делать
наследство такое
...
Рейтинг: 0 / 0
Отчёт
    #32208947
VIG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вадя,стало легче? :)
...
Рейтинг: 0 / 0
Отчёт
    #32209363
VAV_el
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Я в mdbшках делаю так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
'Код Access
Dim sqlstr As String
Dim db As Database
Set db = CurrentDb
Sqlstr = "name_proc ' " & date1 & " ', ' " & date2 & " ' "
db.QueryDefs(" Common ").SQL = sqlstr
Me.RecordSource = " Common"


‘Где Common запрос к серверу с настроенным подключением
‘Date1 и Date2 – параметры из формы



Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
 --А вот начало сп
 
CREATE     procedure Sizon 
    @d1 varchar( 10 ), @d2 varchar( 10 )
AS
begin
SET DATEFORMAT dmy
declare @DATE1 datetime,
	@DATE2 datetime,
set @DATE1 = @d1 
set @DATE2 = @d2
...
Рейтинг: 0 / 0
19 сообщений из 44, страница 2 из 2
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Отчёт
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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