• Как продвинуть сайт на первые места?
    Вы создали или только планируете создать свой сайт, но не знаете, как продвигать? Продвижение сайта – это не просто процесс, а целый комплекс мероприятий, направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.
    Ускорение продвижения
    Если вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги.
  • Сервис онлайн-записи на собственном Telegram-боте
    Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое расписание, но и напоминать клиентам о визитах тоже. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
    Для новых пользователей первый месяц бесплатно.
    Чат-бот для мастеров и специалистов, который упрощает ведение записей:
    Сам записывает клиентов и напоминает им о визите;
    Персонализирует скидки, чаевые, кэшбэк и предоплаты;
    Увеличивает доходимость и помогает больше зарабатывать;


Иллюстрированный самоучитель по Microsoft Access 2002

Выполнение транзакций

Транзакцией называется операция обмена данными между клиентом и сервером. Методы объекта Workspace, использующиеся для выполнения транзакций, представлены в табл. 16.7.

Таблица 16.7. Методы объекта Workspace для выполнения транзакций.

Метод Описание
BeginTrans Обозначает начало транзакции. Транзакции могут быть вложенными
CommitTrans Обозначает конец транзакции. В этот момент все изменения сохраняются в источнике без возможности их отмены
RollBack Завершение транзакции и отмена результата ее выполнения. Записи в источнике возвращаются в прежнее состояние, отмеченное командой BeginTrans

Все базы данных, открытые в рабочей области, имеют общую область действия транзакций. Это значит, что действие методов BeginTrans, CommitTrans и RollBack объекта Workspace распространяется на все базы данных в семействе Databases объекта Workspace.

Рассмотрим пример программы на VBA с использованием механизма выполнения транзакций (программа 16.11). В приложении "Игра в доминирование" механизм транзакций не используется.

Программа 16.11. Применение механизма транзакций

Sub ResetCount()
Dim ws As Workspace
Dim db As Database
Dim rs As Recordset
Dim flnTrans As Boolean
On Error GoTo errHandler;..
flnTrans = False 'Транзакция еще не началась
Set ws = DBEngine.Workspaces(0)
Set db = CurrentDb
Set rs = db.OpenRecordset("Игроки", dbOpenTable)
ws.BeginTrans 'Начало транзакции
flnTrans = True 'Транзакция началась
rs.MoveFirst
Do Until rs.EOF
rs.Edit
rs!Счет = 0
rs.Update
rs.MoveNext
Loop If
MsgBox("Сохранить сделанные изменения?", vbQuestion + vbYesNo, "Вопрос") = vbYes Then
ws.CommitTrans 'Сохранить изменения 
Else
ws.Rollback 'Отменить изменения
End If
exitHandle: rs.Close
Set db = Nothing
Set ws = Nothing
Exit Sub errHandler:
    MsgBox "Ошибка!"
'Если ошибка возникла в процессе выполнения транзакции,
'отменяем сделанные изменения
If flnTrans Then
ws.Rollback
End If
Resume exitHandle
End Sub
Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.