Запрос с параметром

@Кротяка · Регистрация: 20.12.2010

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

Подскажите, как составить запрос с параметром в VFP таким образом, чтобы пользователь мог сам вводить этот параметр (с выскакивающим окошком, по типу того, как это делается в Access через квадратные скобки)? Вот как я пытаюсь, но VFP ругается:

SQL

SELECT YEAR(Тпроживание.д_заезда) AS год,;
FROM ;
отель!тпроживание ;
WHERE  YEAR(Тпроживание.д_заезда) = ?Введите_год;

@sks1904 · 23.12.2014, 07:20

создайте форму с полем ввода, а, например в кнопке, уже напишите ваш запрос в который подставьте значение из поля ввода

@Кротяка · 24.12.2014, 00:06 **[ТС]**

sks1904, т.е. нельзя вызвать окно для ввода параметра при выполнении непосредственно самого запроса , как в MS Access?

@sks1904 · 24.12.2014, 06:57

напишите это окно и вызовите его
Фокс не аксесс, он намного больше дает возможностей, но вместе с возможностями придется и попотеть в понимании работы и написании программ.

@Кротяка · 29.12.2014, 12:55 **[ТС]**

sks1904, а можете подсказать, как это сделать? или кинуть ссылку на литературу в крайнем случае?

@sks1904 · 30.12.2014, 06:52

создаете форму
кидаете на форму textbox и commandbutton
в кнопке в методе "click" пишете код:

Код

local lcStr, lcYear
lcYear = alltrim(str(thisform.textbox1.Value,10,0))
lcStr = "SELECT YEAR(Тпроживание.д_заезда) AS год, FROM отель!тпроживание " + ;
"WHERE  YEAR(Тпроживание.д_заезда) = " + lcYear
&lcStr

не проверял, но как-то так сработать должно

@sks1904 185 / 179 / 28 Регистрация: 26.05.2011 Сообщений: 854
	23.12.2014, 07:20	2
	создайте форму с полем ввода, а, например в кнопке, уже напишите ваш запрос в который подставьте значение из поля ввода 0

@Кротяка 7 / 7 / 1 Регистрация: 20.12.2010 Сообщений: 392
	24.12.2014, 00:06 [ТС]	3
	sks1904, т.е. нельзя вызвать окно для ввода параметра при выполнении непосредственно самого запроса , как в MS Access? 0

@sks1904 185 / 179 / 28 Регистрация: 26.05.2011 Сообщений: 854
	24.12.2014, 06:57	4
	напишите это окно и вызовите его Фокс не аксесс, он намного больше дает возможностей, но вместе с возможностями придется и попотеть в понимании работы и написании программ. 1

@Кротяка 7 / 7 / 1 Регистрация: 20.12.2010 Сообщений: 392
	29.12.2014, 12:55 [ТС]	5
	sks1904, а можете подсказать, как это сделать? или кинуть ссылку на литературу в крайнем случае? 0

@sks1904 185 / 179 / 28 Регистрация: 26.05.2011 Сообщений: 854
	30.12.2014, 06:52	6
	создаете форму кидаете на форму textbox и commandbutton в кнопке в методе "click" пишете код: Код local lcStr, lcYear lcYear = alltrim(str(thisform.textbox1.Value,10,0)) lcStr = "SELECT YEAR(Тпроживание.д_заезда) AS год, FROM отель!тпроживание " + ; "WHERE YEAR(Тпроживание.д_заезда) = " + lcYear &lcStr не проверял, но как-то так сработать должно 1