Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Передать параметр запросу и запустить его... SOS / 6 сообщений из 6, страница 1 из 1
07.08.2006, 16:29
    #33903584
yk555
yk555
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Передать параметр запросу и запустить его... SOS
Есть запрос с параметрами... нужно передать в него параметр...
точнее три параметра и запустить его...

точнее запустить отчет на него... Вот....
как сделать??? очень надо... иначе я попал ....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.08.2006, 18:26
    #33903964
nagoHaK
nagoHaK
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Передать параметр запросу и запустить его... SOS
Что за запрос и куда запрос (Access, MSSQL)?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2006, 09:03
    #33906999
yk555
yk555
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Передать параметр запросу и запустить его... SOS
nagoHaKЧто за запрос и куда запрос (Access, MSSQL)?
Access
Перекрестный запрос для отчета...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2006, 10:12
    #33907154
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Передать параметр запросу и запустить его... SOS
Вы работаете с чистым Accessом или через VB? Хотите получить полный, грамотный ответ - задавайте соответствующий вопрос. Почему мы должны вытягивать из вас информацию по крупицам.

1. Если параметры для запроса вводите с формы, то, соответственно, в запросе параметры будут выглядеть [Forms]![Форма1]![Поле2] и при открытии отчета будут отобраны записи удовлетворяющие условиями значения которых введены в форме.

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

Код: plaintext
    DoCmd.OpenReport "Report1", acViewPreview, , "ID=1"

3. Можно фильтровать записи отчета при его открытии, используя свойства отчета Filter и FilterOn.

4. Можешь менять свойство SQL запроса, на котором основан отчет.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
   Dim db as DAO.Database 
   Dim qdf as DAO.QueryDef 

   Set db = CurrentDb() 
   Set qdf = db.QueryDefs("Query1") 

   qdf.SQL = "SELECT ... WHERE Field1 = " & lngValue

   Set qdf = Nothing 
   Set db = Nothing 

   DoCmd.OpenReport "Report1", acViewPreview
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2006, 10:13
    #33907159
yk555
yk555
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Передать параметр запросу и запустить его... SOS
Dim db1 As DAO.Database
Dim rs1 As DAO.Recordset
Dim qdf1 As DAO.QueryDef
Set db1 = CurrentDb()
Set qdf1 = db1.QueryDefs("qwer_2")
qdf1.Parameters("Cntr") = 1

БЛИН КАК ЗАПУСТИТЬ ТО???????
ИЛИ КАК ПЕРЕДАТЬ ЧЕРЕЗ ОТЧЕТ ЭТОТ ПАРАМЕТР... ???
' qdf1.Parameters.Refresh


' Set rs1 = qdf1.OpenRecordset

' DoCmd.OpenQuery "qwer_2"



qdf1.Close
db1.Close
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2006, 10:28
    #33907202
yk555
yk555
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Передать параметр запросу и запустить его... SOS
AshtonВы работаете с чистым Accessом или через VB? Хотите получить полный, грамотный ответ - задавайте соответствующий вопрос. Почему мы должны вытягивать из вас информацию по крупицам.

1. Если параметры для запроса вводите с формы, то, соответственно, в запросе параметры будут выглядеть [Forms]![Форма1]![Поле2] и при открытии отчета будут отобраны записи удовлетворяющие условиями значения которых введены в форме.

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

Код: plaintext
    DoCmd.OpenReport "Report1", acViewPreview, , "ID=1"

3. Можно фильтровать записи отчета при его открытии, используя свойства отчета Filter и FilterOn.

4. Можешь менять свойство SQL запроса, на котором основан отчет.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
   Dim db as DAO.Database 
   Dim qdf as DAO.QueryDef 

   Set db = CurrentDb() 
   Set qdf = db.QueryDefs("Query1") 

   qdf.SQL = "SELECT ... WHERE Field1 = " & lngValue

   Set qdf = Nothing 
   Set db = Nothing 

   DoCmd.OpenReport "Report1", acViewPreview


Спасибо... бум разбираться...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Передать параметр запросу и запустить его... SOS / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 495ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2165464]:
 0ms
get settings:
 10ms
get forum list:
 17ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 178ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 231ms
total:  495ms
x
x
Закрыть


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