Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не получается получить доступ к данным запроса Ну и чё Сан Саныч? / 22 сообщений из 22, страница 1 из 1
01.10.2003, 14:26
    #32280786
TJivich
TJivich
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается получить доступ к данным запроса Ну и чё Сан Саныч?
Не получается получить доступ к данным запроса

Dim obj1 As AccessObject, dbs As Object, obj2 As AccessObjectProperties
Set dbs = Application.CurrentData
For Each obj1 In dbs.AllQueries
MsgBox obj1.Name
For Each obj2 In obj1.Properties
MsgBox obj2.Count
Next obj2
Next obj1

На пятой строчке появляется фигня
"Введённое выражение содержит хреновую ссылку на объект, который закрыт или не существует"
Ничего не понимаю - Запрос сам есть и главное выводит его название как видите MsgBox, а пропертис
никак
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2003, 14:26
    #32280787
TJivich
TJivich
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается получить доступ к данным запроса Ну и чё Сан Саныч?
Не получается получить доступ к данным запроса
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
    Dim obj1 As AccessObject, dbs As Object, obj2 As AccessObjectProperties
    Set dbs = Application.CurrentData
    For Each obj1 In dbs.AllQueries
        MsgBox obj1.Name
        For Each obj2 In obj1.Properties
            MsgBox obj2.Count
        Next obj2
    Next obj1


На пятой строчке появляется фигня
"Введённое выражение содержит хреновую ссылку на объект, который закрыт или не существует"
Ничего не понимаю - Запрос сам есть и главное выводит его название как видите MsgBox, а пропертис
никак
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2003, 14:34
    #32280799
SergeySV
SergeySV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается получить доступ к данным запроса Ну и чё Сан Саныч?
Погодь, а какие у него совойства-то?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2003, 14:57
    #32280843
Shark
Shark
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается получить доступ к данным запроса Ну и чё Сан Саныч?
А кто тебе сказал, что у каждой проперти есть каунт? Каунт есть у пропертиса

Это чушь:
For Each obj2 In obj1.Properties
MsgBox obj2.Count
Next obj2
Это не чушь
MsgBox obj1.Properteis.count
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2003, 14:59
    #32280847
Shark
Shark
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается получить доступ к данным запроса Ну и чё Сан Саныч?
Кажись лажу написал не подумав.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2003, 15:02
    #32280856
Shark
Shark
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается получить доступ к данным запроса Ну и чё Сан Саныч?
Не, не лажу :-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2003, 15:14
    #32280878
Лифчик
Лифчик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается получить доступ к данным запроса Ну и чё Сан Саныч?
obj2 должно быть просто Property (DAO.Property) т.е. элемент, а не коллекция
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2003, 15:21
    #32280888
SergeySV
SergeySV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается получить доступ к данным запроса Ну и чё Сан Саныч?
Да нет, это дело не меняет, я тоже попробовал для гарантии... ИМХО дело вроде в том, что у Query просто вообще нет Properties, пустая у нее коллекция
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2003, 15:26
    #32280893
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается получить доступ к данным запроса Ну и чё Сан Саныч?
Давайте перейдем в основной экземпляр топика:\r
\r
/topic/51521
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2003, 15:26
    #32280894
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается получить доступ к данным запроса Ну и чё Сан Саныч?
См. еще пару замечаний во втором экземпляре топика:\r
\r
/topic/51520
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2003, 15:29
    #32280902
АлексейК
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается получить доступ к данным запроса Ну и чё Сан Саныч?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
    Dim obj1 As AccessObject, dbs As Object, obj2 As AccessObjectProperties
    Set dbs = Application.CurrentData
    For Each obj1 In dbs.AllQueries
Debug.Print obj1.NAME
Debug.Print obj1.DateCreated
Debug.Print obj1.DateModified
Debug.Print obj1.IsLoaded
    Next obj1


а что надо?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2003, 16:35
    #32281029
TJivich
TJivich
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается получить доступ к данным запроса Ну и чё Сан Саныч?
Код: plaintext
        MsgBox obj1.Properties.Count


Видите строку - он и от этого пятиться.

Может Вы вообще другой вариант предложите.
Мне просто надо получить доступ к определённому полю и его значениям и усё
Вообще странно может у меня Access глюкнутый, а вроде обычный 2000
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2003, 16:40
    #32281039
АлексейК
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается получить доступ к данным запроса Ну и чё Сан Саныч?
тебе нужно извлечь значение определенной записи из таблицы или запроса ?????
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2003, 17:10
    #32281074
TJivich
TJivich
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается получить доступ к данным запроса Ну и чё Сан Саныч?
Именно так.
И всёёё?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2003, 17:18
    #32281080
SergeySV
SergeySV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается получить доступ к данным запроса Ну и чё Сан Саныч?
2TJivich:
Вообщем тебе намекают, что AllQueries("НазваниеЗапроса").Properties является ПУСТОЙ коллекцией, там ничего нет (поэтому и .Count и For Each obj2 In obj1.Properties выдают ошибку), а все доступные свойства, например:
Код: plaintext
1.
2.
3.
4.
Debug.Print obj1.NAME
Debug.Print obj1.DateCreated
Debug.Print obj1.DateModified
Debug.Print obj1.IsLoaded

содержаться сразу, как свойства этого объекта, а не через объект-коллекцию Properties

Так что ты в итоге хочешь конкретно получить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2003, 17:24
    #32281086
Хам трамвайный
Хам трамвайный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается получить доступ к данным запроса Ну и чё Сан Саныч?
я в осадке
от топика
начал за упокой
а закончил за здравие.
мне бы так научиться
задавать вопросы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2003, 17:32
    #32281093
SergeySV
SergeySV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается получить доступ к данным запроса Ну и чё Сан Саныч?
А потом пришел лесник и всех разогнал :)
Долго тебя че-то не было...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2003, 17:38
    #32281099
Хам трамвайный
Хам трамвайный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается получить доступ к данным запроса Ну и чё Сан Саныч?
расшалилися детишки
и девчонки и мальчишки.
ТЖивич малость загружает
смуту, хаос поднимает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2003, 17:38
    #32281100
АлексейК
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается получить доступ к данным запроса Ну и чё Сан Саныч?
набери в справке или в поиске в форуме слово Recordset

или Dlookup
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2003, 20:05
    #32281249
TJivich
TJivich
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается получить доступ к данным запроса Ну и чё Сан Саныч?
Стихоплётишь ты прикольно
Хам трамвайный
Спору нет
Чё припёрся ты на тусу,
Подгружаешь ты людей?
Гонишь бучу на тиджея
Не позволю посрамлять...

Все претензии пожалуйста шлите на ё-маил: igoryokg@mail.ru
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2003, 21:37
    #32281287
Темный
Темный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается получить доступ к данным запроса Ну и чё Сан Саныч?
Recordset - your choice.
RTFM.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.10.2003, 08:53
    #32281409
Shark
Shark
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не получается получить доступ к данным запроса Ну и чё Сан Саныч?
Данные из таблицы можно получить так
Dim rst1 as Dao.Recordset
Set rst1=CurrentDB.OpenRecordset("Select * From Таблица1")
While Not Rst1.EOF
Debug.Print Rst1!Поле1
Rst1.MoveNext
WEnd
Set rst1=Nothing
и так
Debug.Print Dlookup("Поле1","Таблица1","Поле2='Маруся'")
Есть еще DMin,DMax и прочие всякие DCount

Ну ты даешь, блин. В том смысле, что здорово книжки читаешь и вопросы задаешь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не получается получить доступ к данным запроса Ну и чё Сан Саныч? / 22 сообщений из 22, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 536ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1679115]:
 0ms
get settings:
 8ms
get forum list:
 25ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 154ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 83ms
get tp. blocked users:
 1ms
others: 243ms
total:  536ms
x
x
Закрыть


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