Запрос в процедуре требует параметры

@Verazs · Регистрация: 30.05.2017

Студворк — интернет-сервис помощи студентам

Здраствуйте !
Открываю в процедуре запрос

Visual Basic
1
Set rst1 = db.OpenRecordset("qrtmaxizmer1", DB_OPEN_DYNASET)

, а он требует параметры ....Как правильно прописать эти параметры?
Этот запрос SQL

SQL
1
2
3
4
 SELECT tblChooseProces.id, tblChooseProces.idNmetod, MAX(tblChooseProces.idmetod) AS [Max-idmetod]
FROM tblChooseProces
GROUP BY tblChooseProces.id, tblChooseProces.idNmetod
HAVING (((tblChooseProces.id)=Forms!Form1!frmDS.Form!id) AND ((tblChooseProces.idNmetod)=Forms!Form1!frmDS.Form!idizmer1));

@shraike · 30.01.2019, 13:14

Попробуйте так

Visual Basic
1
2
3
4
5
dim st as string
....
st= "SELECT......ваш запрос"
....
set rst1=db.openrecordset(st, dbOpenDynaset)

@ltv_1953 · 30.01.2019, 14:09

Сообщение от Verazs

, а он требует параметры

Написать, какие параметры, что не позволяет?

SQL
1
2
3
4
SELECT id, idNmetod, MAX(idmetod) AS [Max-idmetod]
FROM tblChooseProces
GROUP BY id,idNmetod
WHERE id=Forms!Form1!frmDS.Form!id AND idNmetod=Forms!Form1!frmDS.Form!idizmer1;

А формы то открыты?

@shraike · 30.01.2019, 15:10

Я не знаю почему, но у меня очень часто запрос, который прекрасно работает сам по себе ни в какую не открывается в программе через Recordset.
Как и у Verazs идет сообщение - "слишком мало параметров, требуется больше...."
Иногда проблема решалась открытием с параметром dbOpenTable.
Решил проблему через копирование SQL запроса в текстовую переменную, что и привел в примере.

shanemac51 · 30.01.2019, 15:15

Сообщение от shraike

Иногда проблема решалась открытием с параметром dbOpenTable.

а иногда в поле, по которому идет выборка залезли кавычка или амперсент

например надо выбрать по наименованию
---фирму ооо "РОГА И КОПЫТА"
-- фирму Мас'Дональд

@Панург · 30.01.2019, 16:57

Сообщение от Verazs

а он требует параметры ....Как правильно прописать эти параметры?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
...
Dim rst1 As DAO.Recordset
Dim qry As DAO.QueryDef, prm As DAO.Parameter
 
 
If Not CurrentProject.AllForms("Form1").IsLoaded Then Exit Sub '?
 
Set qry = CurrentDb.QueryDefs("qrtmaxizmer1")
    For Each prm In qry.Parameters
        prm.Value = Eval(prm.Name)
    Next
 
Set rst1 = qry.OpenRecordset
...

@Verazs · 08.02.2019, 14:56 **[ТС]**

Проблему решила включением нужных библиотек и прописала в модуле параметры на нужные поля

@shraike · 08.02.2019, 15:56

Я попробовал пример Панурга - замечательно работает.

@maks249 · 05.04.2019, 12:42

Verazs,
Скажите, а какие библиотеки вы включили?

@shraike · 05.04.2019, 12:47

Ничего дополнительно не включал. Стандартные настройки Офис.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

@shraike 2 / 2 / 0 Регистрация: 24.11.2015 Сообщений: 23
	30.01.2019, 15:10
	Я не знаю почему, но у меня очень часто запрос, который прекрасно работает сам по себе ни в какую не открывается в программе через Recordset. Как и у Verazs идет сообщение - "слишком мало параметров, требуется больше...." Иногда проблема решалась открытием с параметром dbOpenTable. Решил проблему через копирование SQL запроса в текстовую переменную, что и привел в примере. 0

@Verazs 1 / 1 / 0 Регистрация: 30.05.2017 Сообщений: 13
	08.02.2019, 14:56 [ТС]
	Проблему решила включением нужных библиотек и прописала в модуле параметры на нужные поля 1

@shraike 2 / 2 / 0 Регистрация: 24.11.2015 Сообщений: 23
	08.02.2019, 15:56
	Я попробовал пример Панурга - замечательно работает. 0

@maks249 0 / 0 / 0 Регистрация: 08.11.2018 Сообщений: 7
	05.04.2019, 12:42
	Verazs, Скажите, а какие библиотеки вы включили? 0

@shraike 2 / 2 / 0 Регистрация: 24.11.2015 Сообщений: 23
	05.04.2019, 12:47
	Ничего дополнительно не включал. Стандартные настройки Офис. 0