ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / querydefs
20 сообщений из 20, страница 1 из 1
querydefs
    #32651052
Nikolay Gerasimov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nikolay Gerasimov
Гость
Подскажите пожалуйста, какое отличие в написание модулей с querydefs в проектах mdb и adp?
Решил перевести свой проект из mdb в adp и вот спотыкнулся. выдается ошибка на 4 сточке приведенного ниже кода....
Запрос1 создан как представление.
??????
Dim dbsCurrent 'As Database
Dim qryTest 'As QueryDef

Set dbsCurrent = CurrentDb
Set qryTest = dbsCurrent.QueryDefs("Запрос1")
...
Рейтинг: 0 / 0
16.08.2004, 14:51:45
| Ответить | Цитировать | Написать  
querydefs
    #32651129
Фотография kedzo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kedzo
Участник
Код: plaintext
1.
2.
3.
4.
5.
Dim obj As Object
    
    
    For Each obj In CurrentData.AllQueries
        Debug.Print obj.Name
    Next
...
Рейтинг: 0 / 0
16.08.2004, 15:23:26
| Ответить | Цитировать | Написать  
querydefs
    #32657055
Nikolay Gerasimov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nikolay Gerasimov
Гость
kedzo
Код: plaintext
1.
2.
3.
4.
5.
Dim obj As Object
    
    
    For Each obj In CurrentData.AllQueries
        Debug.Print obj.Name
    Next

Простите неопытного.... имею следующее....
Public Sub Set_Query_VIP(ByVal datN As Date, ByVal datK As Date)
Dim dbsCurrent 'As Database
Dim qryTest 'As QueryDef

Set dbsCurrent = CurrentDb
Set qryTest = dbsCurrent.QueryDefs("Запрос1")

qryTest.SQL = "SELECT ......;"
dbsCurrent.Close
Next
End Sub
Как правильно написать????
...
Рейтинг: 0 / 0
19.08.2004, 15:09:39
| Ответить | Цитировать | Написать  
querydefs
    #32657083
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serge Gavrilov
Участник
авторSet dbsCurrent = CurrentDb

Что такое CurrentDb в ADP?
...
Рейтинг: 0 / 0
19.08.2004, 15:16:57
| Ответить | Цитировать | Написать  
querydefs
    #32657098
Nikolay Gerasimov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nikolay Gerasimov
Гость
Serge Gavrilov авторSet dbsCurrent = CurrentDb

Что такое CurrentDb в ADP?
Вообще это мои первые шаги в освоении adp. Нормального Help'a нет.
Вот и спрашиваю знатаков этого дела....
...
Рейтинг: 0 / 0
19.08.2004, 15:20:25
| Ответить | Цитировать | Написать  
querydefs
    #32657112
ищ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ищ
Гость
если вы понимаете разницу
между самосвалом и молоковозом, то разница
между mdb и adp тоже есть: не все детали подходят друг другу.
многое придется переписать.
имея глубокий опыт по переписыванию,
могу сказать, что 90% кода придется переписать и 50 % форм подправить
...
Рейтинг: 0 / 0
19.08.2004, 15:23:02
| Ответить | Цитировать | Написать  
querydefs
    #32657176
Nikolay Gerasimov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nikolay Gerasimov
Гость
ищесли вы понимаете разницу
между самосвалом и молоковозом, то разница
между mdb и adp тоже есть: не все детали подходят друг другу.
многое придется переписать.
имея глубокий опыт по переписыванию,
могу сказать, что 90% кода придется переписать и 50 % форм подправить
Это я уже понял. И все же.....
...
Рейтинг: 0 / 0
19.08.2004, 15:42:03
| Ответить | Цитировать | Написать  
querydefs
    #32657189
ищ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ищ
Гость
в чем состоит ваш вопрос?
...
Рейтинг: 0 / 0
19.08.2004, 15:46:35
| Ответить | Цитировать | Написать  
querydefs
    #32657207
Nikolay Gerasimov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nikolay Gerasimov
Гость
для начала необходимо преобразовать динамические запросы написанные для mdb под adp. Было следующее:
Dim dbsCurrent 'As Database
Dim qryTest 'As QueryDef

Set dbsCurrent = CurrentDb
Set qryTest = dbsCurrent.QueryDefs("Запрос1")
Идет ругань на 4 -й строке.
???
...
Рейтинг: 0 / 0
19.08.2004, 15:51:00
| Ответить | Цитировать | Написать  
querydefs
    #32657213
ищ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ищ
Гость
зачем тебе нужен qryTest ?
...
Рейтинг: 0 / 0
19.08.2004, 15:51:53
| Ответить | Цитировать | Написать  
querydefs
    #32657227
Nikolay Gerasimov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nikolay Gerasimov
Гость
ищзачем тебе нужен qryTest ?
а как тогда?
...
Рейтинг: 0 / 0
19.08.2004, 15:58:39
| Ответить | Цитировать | Написать  
querydefs
    #32657239
ищ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ищ
Гость
блин, да что же я не могу от тебя ничего добиться?
я пока не могу ничего предложить, т.к. не знаю, зачем тебе нужен qryTest.
...
Рейтинг: 0 / 0
19.08.2004, 16:02:26
| Ответить | Цитировать | Написать  
querydefs
    #32657291
Nikolay Gerasimov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nikolay Gerasimov
Гость
ищблин, да что же я не могу от тебя ничего добиться?
я пока не могу ничего предложить, т.к. не знаю, зачем тебе нужен qryTest.
Что-то мы друг друга понять не можем.
qryTest строил в mdb динамический запрос для выборки данных из таблиц (скажем нужно собрать и обработать данные таблицы за определенный период времени, но сегодня этот период один, завтра другой и т.д. Он не описывается никакими законами). Далее эти данные выводились либо в отчетах, либо в excel. Не знаю это вы хотели от меня услышать?
...
Рейтинг: 0 / 0
19.08.2004, 16:20:47
| Ответить | Цитировать | Написать  
querydefs
    #32657327
ищ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ищ
Гость
"скажем нужно собрать и обработать данные таблицы за определенный период времени"

надо писать не "скажем", а конкретно, что ты хочешь получить
...
Рейтинг: 0 / 0
19.08.2004, 16:32:55
| Ответить | Цитировать | Написать  
querydefs
    #32657386
Nikolay Gerasimov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nikolay Gerasimov
Гость
ищ"скажем нужно собрать и обработать данные таблицы за определенный период времени"

надо писать не "скажем", а конкретно, что ты хочешь получить
А это играет большую роль?
У меня таких построителей штук 7 будет и все разные. Для начала определим по периоду времени....
...
Рейтинг: 0 / 0
19.08.2004, 16:51:09
| Ответить | Цитировать | Написать  
querydefs
    #32657415
ищ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ищ
Гость
у меня уже нет желания с вами общаться.
я вас спрашиваю, что вам нужно, вы мне льете воду
надеюсь такой ответ вас удовлетворит?
в adp нет понятия QueryDefs
...
Рейтинг: 0 / 0
19.08.2004, 17:00:41
| Ответить | Цитировать | Написать  
querydefs
    #32657445
lsnk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lsnk
Гость
2 ищ не злитесь :) надо было сразу сказать что в adp нет QueryDefs...
2 Nikolay Gerasimov копайте в сторону процедур или накрайняк представлений...(в mssql нет запросов, есть только процедуры, представления и пользовательские функции. вот с этим и работайте)
...
Рейтинг: 0 / 0
19.08.2004, 17:08:00
| Ответить | Цитировать | Написать  
querydefs
    #32657457
lsnk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lsnk
Гость
Немного поправлюсь - нет запросов я имел в виду "сохраненных" запросов как в акцесе. На вба для adp надо пользовать адо а не дао.
...
Рейтинг: 0 / 0
19.08.2004, 17:12:14
| Ответить | Цитировать | Написать  
querydefs
    #32657477
Nikolay Gerasimov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nikolay Gerasimov
Гость
Ну теперь все стало ясно.
...
Рейтинг: 0 / 0
19.08.2004, 17:22:18
| Ответить | Цитировать | Написать  
querydefs
    #32657486
иш
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
иш
Гость
вам должно было стало ясно после прочтения справки и посмотрев учебную базу Northwind, поставляемую с офисом
...
Рейтинг: 0 / 0
19.08.2004, 17:25:12
| Ответить | Цитировать | Написать  
20 сообщений из 20, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / querydefs
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32651129&tid=1672329]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 40ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 204ms
total:  329ms
созд. / загр.: 329ms
x
x
Закрыть


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