A. Создание запросов

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

B. Удаление запроса

     Иногда при разработке базы данных Вам необходимо будет удалить запрос из программы. В этом примере показывается,  как можно удалить запрос из базы данных. StrQueryName – это переменная, которая содержит имя запроса.

С. Проверка знаний

     Теперь Вы научились создавать таблицы и запросы SQL, используя средства программирования в базе данных Access.

     Для закрепления материала и проверки ваших знаний нажмите кнопку [Проверка N4], для продолжения учебы и изучения импорта из внешних файлов нажмите кнопку Вперед>

08.06.2000 Виктор Конюков, mailto:LiderAccess@bigfoot.com

Public Function funCreateQueries() As Boolean

Dim dbs As Database, sSQL As String

    On Error GoTo 999 'Переходим по ошибке

    funCreateQueries = False  'Возвращаем результат при ошибке

   

    subDeleteQuery "ЗапросСписокКалькулятора" 'Удяляем старый запрос

    subDeleteQuery "ЗапросУдалитьСписок" 'Удяляем старый запрос

       

    Set 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 'Очищаем поток от ошибок

Public Sub subDeleteQuery(strQueryName As String)

    On Error GoTo 999 'Включаем обработчик ошибок

    appAccess.DoCmd.DeleteObject acQuery, strQueryName  'Удаляем запрос

    Exit Sub 'Выходим из программы

999:

    Err.Clear 'Очищаем поток от ошибок

---

---