powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / запросы
6 сообщений из 6, страница 1 из 1
запросы
    #32113160
mad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Добрый день.

1. Как бы в Access выполнить не один SQL-запрос, а пакет SQL-запросов?
В базу, например, несколько таблиц создать и понаписать туда всякого ;)

2. Как в SQL-запросе Access комментарии писать?

Спасибо.
...
Рейтинг: 0 / 0
запросы
    #32113166
Julius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1.
1.1. Через ADO recordset, см. метод NextRecordset
1.2. Просто в виде программы на VBA
1.3. Создать макрос с несколькими командами "Выполнить запрос"

2.В тексте запроса - никак, в окне базы данных - правая кнопка мыши на объекте "Запрос", из контекстного меню команда "Свойства". Если там написать комментарий, его можно будет видеть в соответсвующей колонке табличного представления окна БД.
...
Рейтинг: 0 / 0
запросы
    #32113169
mad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а чтобы эти команды еще и транзакцию составляли?
т.е. при первой неудачной команде, транзакция откатывалась.
...
Рейтинг: 0 / 0
запросы
    #32113175
Julius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Тогда надо программно начинать транзакцию (метод BeginTrans или что-то там (см. хелп)) и откатывать по ошибке в VBA.
...
Рейтинг: 0 / 0
запросы
    #32113630
acteck19
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Set cn4 = New ADODB.Connection
cn4.Provider = "Microsoft.Jet.OLEDB.4.0"
cn4.Open spath(), "admin", ""
cn4.BeginTrans
cn4.Execute "Delete from tbl_moneyPOs where mdate = #" + (Me.TBdata) + "#", lRecordsAffected1
cn4.Execute "Delete from tbl_PaperPOS where pdate = #" + (Me.TBdata) + "#", lRecordsAffected2
cn4.Execute "Delete from tbl_BrokPOS where bdata = #" + (Me.TBdata) + "#", lRecordsAffected3
cn4.Execute "Update tbl_sd set sd_status =0 where datadeal =#" + (Me.TBdata) + "#", lRecordsAffected4
iReturn = MsgBox,Мол будет удалено тот-то, там то там то _
, vbYesNo + vbExclamation)
If iReturn = vbYes Then
cn4.CommitTrans
Else
cn4.RollbackTrans
End If
cn4.Close
Set cn4 = Nothing
...
Рейтинг: 0 / 0
запросы
    #32114067
Suslik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Через DAO, кстати, это тоже работает.
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / запросы
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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