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

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

 

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

End Function


Страница сайта http://test.interface.ru
Оригинал находится по адресу http://test.interface.ru/home.asp?artId=10052