Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Существует ли запрос ? / 9 сообщений из 9, страница 1 из 1
28.01.2004, 14:56
    #32390906
LA
LA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Существует ли запрос ?
Привет всем !!! Такой вопрос: как программным способом проверить, есть ли запрос. Вариан с перебором всех объектов не подходит !!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.01.2004, 14:59
    #32390916
Sfagnum
Sfagnum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Существует ли запрос ?
попробуй его удалить, если ошибка - не было его, иначе - уже нету. :)

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.01.2004, 15:03
    #32390927
LA
LA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Существует ли запрос ?
...а может есть функция exists ..? ..способ с удаление не очень корректен !
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.01.2004, 15:05
    #32390939
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Существует ли запрос ?
Не удаление, а просто попробовать опросить какое-нибудь свойство.

on error resume next
s=currentdb.querydefs(s).name
msgbox iif(err,"no","yes")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.01.2004, 09:24
    #32393086
LA
LA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Существует ли запрос ?
..решила написать свою функцию, которая все же перебором будет искать нужный запрос. В общем, текст ниже...но тут проблема..после отработки функции идет ошибка...если поставить ловушку на ошибку, то прога вообще виснет !

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Function Exists_QueryDef(QueryDefName As String) As Boolean

    For i =  1  To CurrentDb.QueryDefs.count
              If CurrentDb.QueryDefs(i).name= QueryDefName Then
                   Exists_QueryDef = True
                   Exit Function
              Else
                   Exists_QueryDef = False
             End If
   Next i
End Function

..подскажите...в чем проблема. Буду признательна за рекомендации !!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.01.2004, 09:33
    #32393102
LA
LA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Существует ли запрос ?
..ошибку нашла сама...нужно юзать
Код: plaintext
1.
    For i =  1  To CurrentDb.QueryDefs.count- 1

..но все равно..всем спасибо !!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.01.2004, 09:34
    #32393105
Alexander G
Alexander G
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Существует ли запрос ?
Код: plaintext
1.
2.
3.
4.
5.
6.
Function Exists_QueryDef(QueryDefName As String) As Boolean
    If DCount( "name" ,  "MsysObjects" ,  "[name]='" & QueryDefName & "'" ) >  0  Then
        Exists_QueryDef = True
    Else
        Exists_QueryDef = False
    End If
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.01.2004, 09:38
    #32393107
Alexander G
Alexander G
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Существует ли запрос ?
про тип то и забыл
Код: plaintext
If DCount( "name" ,  "MsysObjects" ,  "[name]='" & QueryDefName & "' AND [type]=5 ") >  0  Then
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.01.2004, 00:46
    #32394347
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Существует ли запрос ?
Важно! Не For i = 1, а For i = 0.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Существует ли запрос ? / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 349ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1676916]:
 0ms
get settings:
 9ms
get forum list:
 9ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 63ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 24ms
get tp. blocked users:
 1ms
others: 229ms
total:  349ms
x
x
Закрыть


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