пятница, 25 декабря 2015 г.

Microsoft Access. Работа с SQL запросами из VBA

Запросы SQL к базе данных являются важным этапом проектирования. Практически нет ни одного случая, чтобы разработчики их не использовали.

Они нужны для фильтрации и сортировки данных, для редактирования и удаления записей. Часто используют запросы и в коде программы. Поэтому изучите эти простые примеры для работы с записями базы данных через VBA

В этом примере мы создадим 2 запроса SQL и сохраним их в базе данных. Первый запрос будет создан для выборки некоторых значений из таблицы, а второй для удаления значений из списка калькулятора.


 

На этой форме в Access 2016 показано, как можно выбрать запрос и его изменить. Для этого используйте иконку Конструктор запросов.



Public Function funCreateQueries() As Boolean

    Dim dbs As Database, sSQL As String
    On Error GoTo 999 'Переходим по ошибке
    funCreateQueries = False  'Возвращаем результат при ошибке
    subDeleteQuery "ЗапросСписокКалькулятора" 'Удяляем старый запрос
    subDeleteQuery "ЗапросУдалитьСписок" 'Удяляем старый запрос
    dbs = appAccess.CurrentDb 'Выбираем базу данных
    With dbs
        sSQL = "SELECT Выражение, Итог FROM Калькулятор ORDER BY " & _
                       "Пункт DESC;"
        .CreateQueryDef("ЗапросСписокКалькулятора", sSQL) 'запрос на выборку
        sSQL = "DELETE Калькулятор.* FROM Калькулятор;"
        .CreateQueryDef("ЗапросУдалитьСписок", sSQL) 'запрос на удаление
    End With
    funCreateQueries = True 'Возвращаем результат
    Exit Function 'Выходим из программы
999:
    MsgBox Err.Description 'Сообщаем об ошибке
    Err.Clear() 'Очищаем поток от ошибок
End Function

ОГЛАВЛЕНИЕ

ССЫЛКИ ПО ТЕМЕ

Загрузить исходники по теме (скоро …)

Комментариев нет: