ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Программно создать запрос в mdb. Как?
8 сообщений из 8, страница 1 из 1
Программно создать запрос в mdb. Как?
    #32759985
Мудрый клён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мудрый клён
Участник
...
Рейтинг: 0 / 0
28.10.2004, 18:16:12
| Ответить | Цитировать | Написать  
Программно создать запрос в mdb. Как?
    #32760000
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
смотри в хелпе
CreateQueryDef
...
Рейтинг: 0 / 0
28.10.2004, 18:25:37
| Ответить | Цитировать | Написать  
Программно создать запрос в mdb. Как?
    #32760044
Мудрый клён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мудрый клён
Участник
sasha_1смотри в хелпе
CreateQueryDef

А с помощью ADO никак нельзя?
...
Рейтинг: 0 / 0
28.10.2004, 18:44:10
| Ответить | Цитировать | Написать  
Программно создать запрос в mdb. Как?
    #32760076
Iskander68
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Iskander68
Участник
Пример из учебника:

Private Sub cmdSelectBook_Click()
Dim cnCurrent As ADODB.Connection
Dim rsOrder As ADODB.Recordset

'Setup an error trap
On Error GoTo Error_Handler

'Get the current connection
Set cnCurrent = CurrentProject.Connection

'Open a recordset based on the OrdersHold table
'Open the recordset as dynamic and with optimistic locking
Set rsOrder = New ADODB.Recordset
rsOrder.Open "SELECT * FROM OrdersHold", cnCurrent, adOpenDynamic,
adLockOptimistic

'Add a new record to the temp table OrdersHold
With rsOrder
.AddNew
!CustomerID = cboCustomers.Value
!BookID = lstAvailableBooks.Value
.Update
End With

'Clean up
rsOrder.Close
cnCurrent.Close
Set rsOrder = Nothing
Set cnCurrent = Nothing

'Requery the list box to show the new book that was selected
lstSelectedBooks.Requery
Exit Sub
Error_Handler:
'Display any errors to the user
MsgBox "An error occurred selecting books."
Exit Sub
End Sub

--
Regards
Alexander Artamonov

Posted via ActualForum NNTP Server 1.1
...
Рейтинг: 0 / 0
28.10.2004, 19:03:55
| Ответить | Цитировать | Написать  
Программно создать запрос в mdb. Как?
    #32760085
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
Мудрый клён sasha_1смотри в хелпе
CreateQueryDef

А с помощью ADO никак нельзя?
ADOX -вестимо
MyCat - adox Catalog
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Public Function XQCr(MyCat As Object, querName As String, querSql As String) As Boolean
' создание + удаление запроса:querName- имя оного + querSql - текст ошибка из Err...
Dim MyCom As ADODB.Command
XQCr = True
On Error Resume Next
MyCat.Views.Delete querName
Err.Clear
Set MyCom = New ADODB.Command
MyCom.CommandText = querSql
MyCat.Views.Append querName, MyCom
Set MyCom = Nothing
If Err.Number <>  0  Then XQCr = False
End Function
...
Рейтинг: 0 / 0
28.10.2004, 19:08:13
| Ответить | Цитировать | Написать  
Программно создать запрос в mdb. Как?
    #32760106
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victosha
Участник
через АДО непараметрические - Create View, парааметрические - Create Procedure

типа CurrentProject.Connection.Execute "Create View трам-пам-пам"

А2002 и то и другое видно как запросы

в А2000 - "процедуры" на странице запросов не отображаются
(если не вру...)

F1

авторИнструкция CREATE VIEW
Создает новое представление.


--------------------------------------------------------------------------------

Примечание. Ядро базы данных Microsoft Jet не поддерживает использование инструкции CREATE VIEW или любой другой инструкции языка определения данных (DDL) с базами данных, несовместимыми со стандартом Microsoft Jet.


--------------------------------------------------------------------------------

Синтаксис
CREATE VIEW представление [(поле_1[, поле_2[, ...]])] AS инструкцияSelect

Ниже перечислены аргументы инструкции CREATE VIEW:

Элемент Описание
представление Имя создаваемого представления.
поле_1, поле_2 Имена полей для соответствующих полей, указанных в инструкцииSelect.
инструкцияSelect Инструкция SQL SELECT. Для получения более подробных сведений смотрите описание инструкции SELECT.


Дополнительные сведения
В качестве инструкции SELECT, определяющей данное представление, нельзя использовать инструкцию SELECT INTO.

Инструкция SELECT, определяющая данное представление, не должна содержать каких-либо параметров.

Имя представления не должно совпадать с именем существующей таблицы.

Если запрос, определенный с помощью данной инструкции SELECT, является обновляемым, то и представление является обновляемым. В противном случае представление доступно только для чтения.

Если какие-либо два поля запроса, определенного с помощью данной инструкции SELECT, имеют одно и то же имя, то определение данного представления должно включать список полей, в котором для каждого поля запроса было бы указано уникальное имя.


(с выражением лица)
...
Рейтинг: 0 / 0
28.10.2004, 19:20:41
| Ответить | Цитировать | Написать  
Программно создать запрос в mdb. Как?
    #32760468
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marvan
Участник
рекомендую остановиться на CreateQueryDef, т.к. с Views.Append могут возникнуть нехорошие заморочки. Точно не скажу какие, одно помню - пол дня головой об стол бился. Кажется ADOX.Catalog видел не все запросы.
...
Рейтинг: 0 / 0
29.10.2004, 10:14:23
| Ответить | Цитировать | Написать  
Программно создать запрос в mdb. Как?
    #32760485
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
marvanрекомендую остановиться на CreateQueryDef, т.к. с Views.Append могут возникнуть нехорошие заморочки. Точно не скажу какие, одно помню - пол дня головой об стол бился. Кажется ADOX.Catalog видел не все запросы.
согласен - ADOX капризна - DAO надёжней
...
Рейтинг: 0 / 0
29.10.2004, 10:21:22
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Программно создать запрос в mdb. Как?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32760468&tid=1670688]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 41ms
get topic data:
 6ms
get forum data:
 3ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 199ms
total:  303ms
созд. / загр.: 303ms
x
x
Закрыть


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