Форма- Выполнить SQL запрос по нажатию кнопки

@Ailisa · Регистрация: 23.03.2013

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

Привет.

Помогите, пожалуйста. Пытаюсь сделать форму, в которой надо самому писать код SQL и тут возникла проблема - как правильно сделать, что бы после нажатия кнопки, выполнялся запрос. То есть в окошке формы пишется запрос и после нажатия кнопки, он должен выполнится. Помогите, пожалуйста. Заранее спасибо.

[]https://cloclo15.datacloudmail.ru/view//Bla/%D1%84%D0%BE%D1%80%D0%BC%D0%B0.PNG[/]

@Вячеслав Я · 21.05.2014, 17:16

Ailisa, попробуйте на событии нажатии кнопки написать me.requery

@Ailisa · 21.05.2014, 17:29 **[ТС]**

Вячеслав Я, это будет в visual basic?

@Вячеслав Я · 21.05.2014, 17:36

в теории могу сказать, что это код vba, если не ошибаюсь это не бейсик. пока не видел, чтобы кнопка работала с sql. запросы согласен - на sql.

mobile · 22.05.2014, 00:16

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

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

Код на выполнение запроса, SQL-текст которого находится в поле формы, таков

Visual Basic
1
Docmd.OpenQuery Me.ИмяПоляФормыСТекстомЗапроса

Эту команду надо написать в модуле формы, в процедуре события клика кнопки

@Ailisa · 22.05.2014, 16:02 **[ТС]**

Спасибки

Добавлено через 4 часа 48 минут
Docmd.OpenQuery Me.Quvery должно быть так? я правильно поняла?

Добавлено через 16 минут
У меня не получается. Если я форме пишу сам запрос, а потом нажимаю его выполнить, то выдает ошибку, что не может найти объект и я не понимаю, что я делаю не так

mobile · 22.05.2014, 16:45

Понял.
Пусть у Вас есть сохраненный запрос с именем qTemp. Тогда на кнопке код, меняющий sql запроса

Visual Basic
1
2
Currentdb.Querydefs("qTemp")=Me.Quvery 'Это если поле с скл называется [Quvery]
Docmd.OpenQuery "qTemp"

А можно создать запрос. Но надо задать имя, которого еще нет в списке запросов, иначе будет ошибка

Visual Basic
1
2
3
4
5
Dim qdf As QueryDef
Set qdf = New QueryDef
qdf.name = "qTemp"
qdf.sql = Me.Quvery 'Это если поле в форме с скл запроса называется [Quvery]
DoCmd.OpenQuery qdf.name

@Ailisa · 22.05.2014, 22:57 **[ТС]**

Я вот пыталась сделать по второму методу, но он выдает ошибку, что не может найти такой объект qdf.name = "qTemp".

Я ведь правильно поняла, что нужно указывать имя запроса, которого еще нет?

Добавлено через 6 минут
ой DoCmd.OpenQuery qdf.Name на эту строчку, выдает ошибку, что не может найти

mobile · 22.05.2014, 23:07

Да, да, забыл добавить вновь образованный запрос в коллекцию QueryDefs :-)

Visual Basic
1
2
3
4
5
6
Dim qdf As QueryDef
Set qdf = New QueryDef
qdf.name = "qTemp"
db.QueryDefs.Append qdf 'Добавить запрос в коллекцию QueryDefs
qdf.sql = Me.Quvery 
DoCmd.OpenQuery qdf.name

@Ailisa · 22.05.2014, 23:37 **[ТС]**

Спасибки

А тут библиотеку не надо никакую подключать?

У меня снова возникает ошибка, теперь на строчку db.QueryDefs.Append qdf выдает: object required
Ему чего-то не хватает или я ошибаюсь?

mobile · 22.05.2014, 23:51

Черт! Вместо db напишите Currentdb :-)

@Ailisa · 23.05.2014, 00:06 **[ТС]**

Спасибки, огромное

Все заработало

@Пытливый · 23.05.2014, 00:21

Для начала, какой запрос вам нужно выполнить?
Есть запросы на получение данных, а есть на их модификацию. В первом случае это набор записей, во втором случае ничего. Предположим у вас запрос на выборку, тогда неясно что вы хотите делать с результатом такого запроса?
Вот скажем простейший способ выполнения запроса по нажатию кнопки:

Visual Basic
1
2
3
4
5
Private Sub Command0_Click()
 Dim RS As Recordset
 
 Set RS = CurrentDb.OpenRecordset("select * from Table1")
End Sub

Запрос выполнится, мы получим все записи из таблицы Table1, но что дальше с ними делать?

Новые блоги и статьи Все статьи Все блоги /
WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .

Форма- Выполнить SQL запрос по нажатию кнопки

Решение

Решение

@Ailisa 1 / 1 / 0 Регистрация: 23.03.2013 Сообщений: 45

	Форма- Выполнить SQL запрос по нажатию кнопки 21.05.2014, 17:04. Показов 9090. Ответов 12 Метки нет (Все метки) Привет. Помогите, пожалуйста. Пытаюсь сделать форму, в которой надо самому писать код SQL и тут возникла проблема - как правильно сделать, что бы после нажатия кнопки, выполнялся запрос. То есть в окошке формы пишется запрос и после нажатия кнопки, он должен выполнится. Помогите, пожалуйста. Заранее спасибо. []https://cloclo15.datacloudmail.ru/view//Bla/%D1%84%D0%BE%D1%80%D0%BC%D0%B0.PNG[/] 0

@Вячеслав Я 2835 / 1377 / 215 Регистрация: 13.05.2011 Сообщений: 4,219
	21.05.2014, 17:16
	Ailisa, попробуйте на событии нажатии кнопки написать me.requery 0

@Ailisa 1 / 1 / 0 Регистрация: 23.03.2013 Сообщений: 45
	21.05.2014, 17:29 [ТС]
	Вячеслав Я, это будет в visual basic? 0

@Вячеслав Я 2835 / 1377 / 215 Регистрация: 13.05.2011 Сообщений: 4,219
	21.05.2014, 17:36
	Сообщение было отмечено Ailisa как решение Решение в теории могу сказать, что это код vba, если не ошибаюсь это не бейсик. пока не видел, чтобы кнопка работала с sql. запросы согласен - на sql. 1

@Ailisa 1 / 1 / 0 Регистрация: 23.03.2013 Сообщений: 45
	22.05.2014, 16:02 [ТС]
	Спасибки Добавлено через 4 часа 48 минут Docmd.OpenQuery Me.Quvery должно быть так? я правильно поняла? Добавлено через 16 минут У меня не получается. Если я форме пишу сам запрос, а потом нажимаю его выполнить, то выдает ошибку, что не может найти объект и я не понимаю, что я делаю не так 0

@Ailisa 1 / 1 / 0 Регистрация: 23.03.2013 Сообщений: 45
	22.05.2014, 22:57 [ТС]
	Я вот пыталась сделать по второму методу, но он выдает ошибку, что не может найти такой объект qdf.name = "qTemp". Я ведь правильно поняла, что нужно указывать имя запроса, которого еще нет? Добавлено через 6 минут ой DoCmd.OpenQuery qdf.Name на эту строчку, выдает ошибку, что не может найти 0

@Ailisa 1 / 1 / 0 Регистрация: 23.03.2013 Сообщений: 45
	22.05.2014, 23:37 [ТС]
	Спасибки А тут библиотеку не надо никакую подключать? У меня снова возникает ошибка, теперь на строчку db.QueryDefs.Append qdf выдает: object required Ему чего-то не хватает или я ошибаюсь? 0

mobile 26825 / 14505 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	22.05.2014, 23:51
	Черт! Вместо db напишите Currentdb :-) 1

@Ailisa 1 / 1 / 0 Регистрация: 23.03.2013 Сообщений: 45
	23.05.2014, 00:06 [ТС]
	Спасибки, огромное Все заработало 0