vba access запрос с параметрами
Как послать запрос к базе на VBA Access
Данный урок посвящен SQL запросам к базе данных на VBA Access. Мы рассмотрим, как на VBA осуществляется запросы INSERT, UPDATE, DELETE к базе данных, а также научимся получать конкретное значение из запроса SELECT.
Те, кто программируют на VBA Access и работая при этом с базой данных SQL сервера, очень часто сталкиваются с такой простой и нужной задачей как посыл SQL запроса к базе данных, будь то INSERT, UPDATE или простой SQL запрос SELECT. А так как мы начинающие программисты мы тоже должны уметь это делать, поэтому сегодня займемся именно этим.
Мы уже затрагивали тему получения данных с SQL сервера, где как раз на VBA писали код для получения этих данных, например в статье про Выгрузку данных в текстовый файл из MSSql 2008 или также немного затрагивали в материале Выгрузка данных из Access в шаблон Word и Excel, но так или иначе там мы рассматривали это поверхностно, а сегодня предлагаю поговорить об этом чуть более подробней.
Примечание! Все примеры ниже рассмотрены с использованием ADP проекта Access 2003 и базы данных MSSql 2008. Если Вы не знаете что вообще такое ADP проект то это мы рассматривали в материале Как создать и настроить ADP проект Access
Исходные данные для примеров
Допустим, у нас есть таблица test_table, которая будет содержать номера и названия месяцев в году (запросы выполнены с использованием Management Studio)
Как я уже сказал, мы будем использовать ADP проект, настроенный на работу с MS SQL 2008, в котором я создал тестовую форму и добавил кнопку start с подписью «Выполнить», которая нам понадобится для тестирования нашего кода, т.е. весь код мы будем писать в обработчике события «Нажатие кнопки».
Запросы к базе INSERT, UPDATE, DELETE на VBA
Чтобы долго не тянуть сразу приступим, допустим, нам нужно добавить строку в нашу тестовую таблицу (код прокомментирован)/
В данном случае запрос выполняется с использованием текущих параметров подключения к базе данных. Можем проверить, данные добавились или нет.
Как видим, данные вставились.
Для того чтобы удалить одну строку пишем вот такой код.
Если мы проверим, то увидим, что нужная строка удалилась.
Для обновления данных записываем в переменную sql_query запрос update, надеюсь, смысл понятен.
Запрос SELECT к базе на VBA
Здесь дела обстоят чуть интересней, чем с остальными конструкциями SQL.
Первое, допустим, нам нужно получить все данные из таблицы, и, к примеру, мы их обработаем и выведем в сообщении, а Вы, конечно же, можете использовать их для других целей, для этого мы пишем вот такой код
Здесь мы уже используем циклы VBA Access для того чтобы перебрать все значения в нашем наборе записей.
Но, достаточно часто бывает необходимо получить не все значения из набора записей, а всего лишь одно, например, название месяца по его коду. И для этого использовать цикл как-то накладно, поэтому мы можем просто написать запрос, который вернет всего одно значение и обращаться именно к нему, например, получим название месяца по коду 5
Для универсальности здесь мы уже обратились не по имени ячейки, а по ее индексу, т.е. 0, а это самое первое значение в Recordset, в итоге мы получили значение «Май».
Как видите, все достаточно просто. Если Вам достаточно часто требуется получать конкретное значение из базы (как в последнем примере), то рекомендую вывести весь код в отдельную функцию (Как написать функцию на VBA Access 2003) с одним входящим параметром, например, код месяца (если рассматривать наш пример) и просто, где необходимо вывести это значение, вызывать нужную нам функцию с нужным параметром и все, этим мы значительно уменьшим код VBA и улучшим восприятие нашей программы.
Заметка! Если Вас интересует SQL и T-SQL, рекомендую посмотреть мои видеокурсы по T-SQL, с помощью которых Вы «с нуля» научитесь работать с SQL и программировать с использованием языка T-SQL в Microsoft SQL Server.
Присвоение параметру запроса значения через VBA
Здравствуйте!
Помогите пожалуйста, как написать код, присваивающий параметру запроса на выборку новое значение.
Добавлено через 30 минут
Я имею ввиду, передать параметру новое значение не из поля, а из переменной
Помощь в написании контрольных, курсовых и дипломных работ здесь.
Присвоение переменной значения из запроса
Доброго времени суток! Пожалуйста помогите я не программист, но приходится. Может ли кто.
Присвоение параметру action формы значения переменной из PHP
Всем доброго времени суток, подскажите такой момент, знаний не хватает: есть некая html страница в.
Ошибка указания значения параметру запроса
Доброго времени суток. Нужно задать значение параметру запроса: procedure.
Присвоение полю значения, полученного из запроса на выборку
Здравствуйте. В стартовой форме выбирается язык и нажимается кнопка для перехода на Форму2.
Другой вариант когда вместо параметра в запросе используют публичную пользовательскую функцию. Тогда функции передают значение переменной (или переменная глобальная), а функция отдает ее значение в запросе. Этот вариант широко применяется.
Третий вариант это присвоение свойству запроса SQL готового значения sql-выражения с уже подставленным значением переменной. Также часто используется в разработках.
Другой вариант когда вместо параметра в запросе используют публичную пользовательскую функцию. Тогда функции передают значение переменной (или переменная глобальная), а функция отдает ее значение в запросе. Этот вариант широко применяется.
Третий вариант это присвоение свойству запроса SQL готового значения sql-выражения с уже подставленным значением переменной. Также часто используется в разработках.
У меня запрос сохранённый и в нём уже есть параметр, который вписан в определённый столбец запроса, чтобы его фильтровать. Наименование параметра: «Код данных», но у Вас в коде VBA не вижу места куда вписывать наименование параметра. Может быть вместо нолика сюда: «3 qdf.parameters(0)=переменная»
Добавлено через 14 минут
у меня в конце кода ещё строка
Использование параметров в запросах, формах и отчетах
Если вам необходимо, чтобы запрос в Access при запуске каждый раз предлагал ввести параметры, создайте запрос с параметрами.
Вы также можете создать форму для ввода значений, позволяющих ограничить количество возвращаемых записей в запросах, формах и отчетах. В этой статье рассказывается, как с помощью форм сделать проще и удобнее работу с параметрами в запросах, формах и отчетах.
В этой статье
Обзор
С помощью условий в запросе с параметрами в Access можно ограничить набор записей, возвращаемых запросом. Функциональности диалоговых окон в запросе с параметрами может оказаться недостаточно. В этом случае можно создать форму, которая лучше подойдет для ввода параметров в вашей ситуации. В этой статье рассказывается, как настроить форму для ввода параметров запросов и отчетов. Здесь предполагается, что вы уже знакомы с принципами создания запросов и определения параметров в них. Прежде чем продолжать, ознакомьтесь как минимум с процедурой создания запроса на выборку.
В этой статье приведены примеры использования параметров в запросах. Она не содержит полной справочной информации о настройке условий.
Дополнительные сведения о создании запроса на выборку см. в статье Создание простого запроса на выборку.
Дополнительные сведения о запросах в целом см. в статье Знакомство с запросами.
Дополнительные сведения о создании параметров в запросах см. в статье Использование параметров для ввода данных при выполнении запроса.
Дополнительные сведения о настройке условий в запросах см. в статье Примеры условий запроса.
Использование параметров в запросах
Использовать в запросе параметр не сложнее, чем создать запрос на основе условий. Запрос можно настроить таким образом, чтобы предлагалось ввести определенное значение, такое как артикул товара, или несколько значений, например две даты. Для каждого параметра запрос выводит отдельное диалоговое окно, в котором предлагается ввести значение.
Добавление параметра в запрос
Создайте запрос на выборку и откройте его в конструкторе.
В строке Условия поля, для которого вы хотите применить параметр, введите в квадратных скобках текст, который должен отображаться в соответствующем диалоговом окне. Пример:
При выполнении запроса с параметрами этот текст отобразится в диалоговом окне без квадратных скобок.
При запросе параметров также можно использовать выражения. Пример:
Between [Дата начала] And [Дата окончания]
Примечание: Для каждого параметра выводится отдельное диалоговое окно. Во втором примере появляется два окна: одно для даты начала, второе — для даты окончания.
Повторите шаг 2 для каждого поля, для которого хотите добавить параметры.
С помощью описанных выше действий можно добавить параметр в запрос любого из следующих типов: выборка, добавление, создание таблицы и обновление, а также перекрестный запрос.
Кроме того, с помощью перечисленных ниже действий можно добавить параметр в запрос на объединение.
Откройте запрос на объединение в режиме SQL.
Добавьте предложение WHERE, содержащее каждое поле, для которого требуется ввести параметр.
Если предложение WHERE уже существует, убедитесь в том, что поля, для которых нужно ввести параметры, уже есть в этом предложении; в противном случае добавьте их.
Вместо условия в предложении WHERE используйте запрос параметра.
Указание типов данных для параметра
Вы также можете указать, данные какого типа разрешается вводить в качестве значения параметра. Тип данных можно настроить для любого параметра, но особенно важно сделать это для числовых и денежных данных, а также значений даты и времени. Когда для параметра указан тип данных, пользователи получают более осмысленные сообщения об ошибках в случае ввода значений неправильного типа (например, текста вместо денежных величин).
Примечание: Если параметр настроен для ввода текстовых данных, любое введенное значение будет распознаваться как текст, а сообщение об ошибке не будет выводиться.
Чтобы задать тип данных для параметра в запросе, выполните указанные ниже действия.
Когда запрос открыт в конструкторе, на вкладке Конструктор в группе Показать или скрыть нажмите кнопку Параметры.
В диалоговом окне Параметры запроса в столбце Параметр введите текст запроса на ввод значения для каждого параметра, для которого требуется указать тип данных. Убедитесь, что каждый из параметров соответствует запросу, который используется в строке Условие отбора в бланке запроса.
В столбце Тип данных выберите тип данных для каждого параметра.
Создание формы для ввода параметров
Хотя в запросах с параметрами есть встроенные диалоговые окна для ввода значений, они предлагают лишь простейшие функции. В то же время форма для ввода параметров поддерживает перечисленные ниже дополнительные возможности.
Использование элементов управления для ввода данных определенных типов, например календарей для дат.
Сохранение введенных параметров для использования в других запросах.
Списки и поля со списками для ввода параметров, позволяющие выбирать значения из заранее заданных наборов.
Элементы управления для выполнения других функций, таких как открытие запроса или обновление данных в нем.
В приведенном ниже видео демонстрируется создание простой формы для ввода параметров запроса вместо стандартных диалоговых окон.
Создание формы для ввода параметров для отчета
Реализовать этот сценарий можно несколькими способами, но мы рассмотрим вариант, в котором активно используются макросы. Создать форму для сбора параметров отчета можно с помощью описанной ниже последовательности действий.
Шаг 1. Создайте форму для ввода значений
На вкладке Создание в группе Формы нажмите кнопку Конструктор форм.
В режиме конструктора нажмите F4, чтобы открыть страницу свойств, и задайте свойства формы, как показано в таблице ниже.
Введите имя, которое будет отображаться в строке заголовка формы.
Режим по умолчанию
Режим сводной таблицы
Режим сводной диаграммы
Для каждого параметра, который будет вводиться с помощью формы, на вкладке Конструктор в группе Элементы управления нажмите кнопку Поле.
Задайте для полей свойства, как показано в таблице ниже.
Введите имя, описывающее параметр, например ДатаНачала.
Выберите формат, который соответствует типу данных поля параметра. Например, для поля даты выберите вариант Полный формат даты.
Сохраните форму и задайте для нее название, например frmCriteria.
Шаг 2. Создайте блок кода, проверяющий, загружена ли форма параметров
На вкладке Создание в группе Макросы и код нажмите кнопку Модуль.
В редакторе Visual Basic откроется новый модуль.
Вставьте в редакторе следующий код:
Сохраните модуль под уникальным именем и закройте редактор Visual Basic.
Шаг 3. Создайте макрос, управляющий работой формы и отчета
С помощью функций в макроса Access можно определить все необходимые действия, которые необходимо предпринять в одном макросе. Мы создадим четыре вуа макроса — «Открыть диалоговое окно», «Закрыть диалоговое окно», «ОК» и «Отмена» — для управления задачами, необходимыми для выполнения этой процедуры. С помощью приведенного ниже снимка экрана создайте новый макрос со следующими макросами и макросами. В данном примере наша форма параметров называется frmCriteria. Настройте макрос в соответствие с именем созданной ранее формы. Кроме того, для просмотра всех макроса необходимо нажать кнопку «Показать все действия» на вкладке «Конструктор».
Сохраните и закройте макрос. Задайте для макроса имя, например Макрос диапазона дат.
Шаг 4. Добавьте на форму кнопки «ОК» и «Отмена»
Снова откройте форму параметров, которую создали в режиме конструктора.
На вкладке Конструктор в группе Элементы управления отмените выбор параметра Использовать мастера.
На вкладке Конструктор в группе Элементы управления щелкните Кнопка.
Расположите курсор под полями на форме и мышью создайте кнопку ОК.
Если окно свойств не отображается, откройте его, нажав клавишу F4.
Задайте для кнопки ОК свойства согласно приведенной ниже таблице.
Введите имя макроса, например Макрос диапазона дат.ОК.
Создайте кнопку Отмена и задайте для нее свойства, как показано в таблице ниже.
Введите имя макроса, например Макрос диапазона данных.Отмена.
Сохраните и закройте форму.
Шаг 5. Используйте значения из формы в качестве условий запроса
Откройте запрос, который создали в режиме конструктора.
Введите условия для данных. Используйте объект Forms, имя формы и имя элемент управления:
Например, в базе данных Access (ACCDB или MDB) для формы frmCriteria можно задать следующее выражение, ссылающееся на элементы управления «Дата начала» и «Дата окончания» в запросе:
Between [Формы]![frmCriteria]![Дата начала] And [Формы]![frmCriteria]![Дата окончания]
Шаг 6. Добавьте макрокоманды в события отчета
Откройте нужный отчет в режиме конструктора.
Если окно свойств не отображается, откройте его, нажав клавишу F4.
Убедитесь, что для свойства Источник записей в отчете используется запрос с параметрами, который мы создали.
Задайте два дополнительных свойства отчета, как показано в таблице ниже.
Введите имя макроса, например Макрос диапазона дат.Открыть диалоговое окно.
Введите имя макроса, например Макрос диапазона дат.Закрыть диалоговое окно.
При открытии отчета Access будет выполнять команды, содержащиеся во вложенном макросе «Открыть диалоговое окно» объекта «Макрос диапазона дат». И аналогично: при закрытии отчета Access будет выполнять команды, содержащиеся во вложенном макросе «Закрыть диалоговое окно» объекта «Макрос диапазона дат».
Сохраните и закройте отчет.
Шаг 7. Проверьте форму в действии
Теперь, когда все объекты Access созданы, можно проверить, как они работают. Откройте отчет в режиме отчета или представлении для печати и обратите внимание, что перед показом отчета Access отображает форму ввода параметров в диалоговом режиме. Введите необходимые условия в созданные вами текстовые поля и нажмите кнопку ОК на форме. После этого Access скроет форму (вывод на экран — «Нет») и отобразит отчет, содержащий только те данные, которые соответствуют вашим условиям. Это произойдет благодаря тому, что запрос с параметрами, на котором основан отчет, использует значения в элементах управления на скрытой форме. Когда вы закроете отчет, Access также закроет форму параметров.
Использование параметров для ввода данных при выполнении запроса
Чтобы настроить в запросе к базе данных рабочего стола Access ввод условий при его выполнении, создайте запрос с параметрами. Это даст возможность использовать запрос повторно, не открывая его в Конструктор для изменения условий.
Примечание: Эта статья не относится к веб-приложениям Access.
Терминология
Прежде чем перейти к описанной ниже пошаговой процедуре, полезно ознакомиться с несколькими терминами.
Параметр. Параметр — это часть сведений, предоставляемых запросу при его выполнении. Параметры можно использовать отдельно или в составе длинных выражений для формирования условия запроса. Параметры можно добавить в запрос любого из следующих типов:
на создание таблицы;
Условия. Условия — это «фильтры», добавляемые в запрос для указания элементов, которые он должен возвратить.
Дополнительные сведения об указанных выше типах запросов см. в статье Знакомство с запросами.
Создание запроса с параметрами
Создание параметра аналогично добавлению обычного условия в запрос:
Создайте запрос на выборку и откройте его в конструкторе.
В строке «Условия» поля, к которым вы хотите применить параметр, введите текст, который вы хотите отобразить в поле параметра, в квадратных скобках. Например: [Введите дату начала:]
Повторите шаг 2 для каждого поля, в которое необходимо добавить параметры.
При запуске запроса текст отображается без квадратных скобок.
Введите нужное значение и нажмите кнопку ОК.
В условии можно использовать несколько параметров. Например, выражение Between [Введите дату начала:] And [Введите дату окончания:] при выполнении запроса создаст два поля.
Указание типов данных для параметра
Можно настроить параметр так, чтобы он принимал только определенный тип данных. Это особенно важно для числовых и денежных данных, а также данных даты и времени, так как в таком случае пользователи получат более содержательное сообщение об ошибке при вводе неправильного типа данных, например при вводе текста вместо денежного значения.
Примечание: Если параметр настроен на прием текстовых данных, любое введенное значение будет распознаваться как текст, а сообщение об ошибке не будет выводиться.
Чтобы задать тип данных для параметра в запросе, выполните указанные ниже действия.
Когда запрос открыт в конструкторе, на вкладке Конструктор в группе Показать или скрыть нажмите кнопку Параметры.
В диалоговом окне Параметры запроса в столбце Параметр введите текст запроса на ввод каждого из параметров, для которых требуется указать тип данных. Проверьте, соответствуют ли параметры запросам на ввод, указанным в строке Условия в бланке запроса.
В столбце Тип данных выберите тип данных для каждого параметра.
Добавление параметра в запрос на объединение
Так как запрос на объединение нельзя просмотреть в бланке запроса, действия с ним будут немного отличаться.
Откройте запрос на объединение в режиме SQL.
Добавьте к нему предложение WHERE, содержащее поля, в которые нужно добавить параметры.
Если предложение WHERE уже существует, проверьте, включены ли в него все поля, в которые нужно добавить параметры. Если нет, добавьте недостающие поля.
Введите запрос параметра в предложение WHERE, например WHERE [StartDate] = [Введите дату начала:].
Имейте в виду, что во все разделы запроса необходимо добавить одинаковые фильтры. На рисунке выше запрос содержит два раздела (разделенные ключевым словом UNION), поэтому параметр нужно добавить дважды. Но при выполнении запроса ввод данных запрашивается только один раз (предполагается, что во всех разделах указан одинаковый запрос).
Объединение параметров с помощью подстановочных знаков для большей гибкости
Как и в случае обычных условий, вы можете объединить параметры с помощью ключевого слова Like и подстановочных знаков для поиска соответствий в более широком диапазоне элементов. Предположим, что нужно запросить страну или регион и при этом сопоставить их со значениями, которые содержат строку параметра. Для этого выполните указанные ниже действия.
Создайте запрос на выборку и откройте его в конструкторе.
В строке Условия поля, в которое нужно добавить параметр, введите Like «*»&[, текст сообщения, а затем ]&»*».
При запуске запроса с параметрами запрос появляется в диалоговом окне без квадратных скобок и без ключевого слова Like или
поддиаметров: 
После ввода параметра запрос возвратит значения, содержащие строку параметра. Например, строка параметра us возвратит элементы, в которых поле параметра имеет значение «Австралия» или «Австрия».
Дополнительные сведения о подстановочных знаках см. в статье Использование подстановочных знаков в качестве условий.
Возврат элементов, не соответствующих параметру
Вместо возврата элементов, соответствующих параметру, можно создать запрос, возвращающий элементы, которые ему не соответствуют. Например, может потребоваться запросить год и возвратить элементы со значением года, большим чем указанное. Для этого введите оператор сравнения слева от запроса параметра в квадратных скобках, например >[Введите год:].
Видео: использование параметров в запросах
Использовать в запросе параметр не сложнее, чем создать запрос на основе условий. Запрос можно настроить таким образом, чтобы предлагалось ввести определенное значение, такое как артикул товара, или несколько значений, например две даты. Для каждого параметра запрос выводит отдельное диалоговое окно, в котором предлагается ввести значение.
В этом видео подробнее рассказывается о создании параметров в запросах.