запрос сложный select

@nikooolay · Регистрация: 20.11.2009

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

нужно сделать выборку из таблицы с отбором по ранному кол-ву условий (завият от положения флажков в форме) (см файл)

SQL

1
2
3

SELECT отдел_кадров.Код_сотрудника, отдел_кадров.фио, отдел_кадров.зарплата, отдел_кадров.проффесия, отдел_кадров.зарплата, отдел_кадров.дата_рождения
FROM отдел_кадров
WHERE ????

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

@БурундукЪ · 23.12.2009, 15:51

а ты генери запрос в ВБА

а затем присваивай его рекордсету формы вывода результатов

@nikooolay · 23.12.2009, 21:51 **[ТС]**

я в этом совсем новичок

при таком запросе в VBА должны отображаться результаты запроса ?

Visual Basic

Private Sub Кнопка61_Click()
strSQL = "SELECT отдел_кадров.Код_сотрудника, отдел_кадров.фио, отдел_кадров.зарплата, отдел_кадров.проффесия, отдел_кадров.зарплата, отдел_кадров.дата_рождения" _
  & "FROM отдел_кадров" _
  & "WHERE ((отдел_кадров.Код_сотрудника)=1);"
  
End Sub

@Елена · 24.12.2009, 06:18

скорее всего нет, надо использовать DoCmd. Вам посоветовали использовать код VBA для организации запросов с помощью оператора Case. Если надо задавать много сочетаний разных флажков, можно организовать задание какой-то переменной для определенных сочетаний флажков с помощью оператора If.
Например:

PureBasic

Dim A As String 
If ((Me.Flag1.Value=True) And (Me.Flag2=True)) Then A=33 
End If 
Me.Поле1.Value=А

Затем с помощью оператора Case составить несколько задач при определнных значениях переменной А или поля формы

@БурундукЪ · 24.12.2009, 12:27

Сообщение от Елена_

надо использовать DoCmd

дадада. а если точнее, то DoCmd.RunSQL

Сообщение от Елена_

Если надо задавать много сочетаний разных флажков, можно организовать задание какой-то переменной для определенных сочетаний флажков с помощью оператора If.

этот вариант хорош, но я бы посоветовал его доработать. т.е.

Visual Basic

dim flgAND as Boolean, A as string
flgAND = False ' не обязательная, но желательная строка
A="SELECT отдел_кадров.Код_сотрудника, отдел_кадров.фио, " & _
"отдел_кадров.зарплата, отдел_кадров.проффесия, отдел_кадров.зарплата," & _ 
"отдел_кадров.дата_рождения FROM отдел_кадров WHERE "
IF Me.FlagFIO.Value THEN A=A & " отдел_кадров.фио='"& me.field_fio &"'": flgAND = Me.FlagFIO.Value
IF Me.FlagProf.Value THEN A=A & iif(flgAND," AND","") &" отдел_кадров.проффесия='"& _
me.field_Prof &"'": flgAND = Me.FlagProf.Value
'....
IF Me.FlagDR.Value THEN A=A & iif(flgAND," AND","") &" отдел_кадров.дата_рождения='" & _
me.field_DR &"';": flgAND = Me.FlagProf.Value
if not flgAND then A=left(A, len(A)-6)

Добавлено через 25 минут

Не по теме:

кстати, слово проффесия пишется так профессия
эт у нас только Янукович неправильно писал, что он проффесор,
правда в 2004 году еще

@nikooolay · 24.12.2009, 19:57 **[ТС]**

про читал код, но понял только одного
DoCmd что это и с чем его едят

@Елена · 25.12.2009, 05:57

Сообщение от CyberБурундукЪ

DoCmd.RunSQL

запускает на выполнение Ваш запрос. Наберите в VBA DoCmd и поставьте точку - выпадет меню с возможными методами, листайте, смотрите, пользуйтесь клавишей F1 (справка).

@БурундукЪ · 25.12.2009, 11:43

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

DoCmd что это и с чем его едят

воткактотак

Объект DoCmd — это "рабочая лошадка" программирования VBA в Access. Этот объект позволяет программным образом выполнять макрокоманды Access — те действия (actions), которые можно просмотреть (на русском языке) в окне конструктора макрокоманд. Действия — это самые распространенные операции, которые обычно приходится выполнять в Access программным способом (они перечислены ниже).

У объекта DoCmd нет свойств — только методы. Для целей унификации в последних версиях Access методы DoCmd "переезжают" в объект Application, но для целей совместимости со старыми приложениями они оставлены и в DoCmd. Microsoft рекомендует по возможности пользоваться одноименными методами объекта Application.

@4e4el · 16.01.2010, 21:16

у меня похожая проблема
нужно сделать сложный запрос по форме с многими условиями
я вот могу составить sql запрос
а как вывести на экран запрос на выборку не могу понять
нужно чтобы по моему запросу открылось окно как будтно выбрали какойто запрос из списка запросов в бд

@Елена · 16.01.2010, 21:29

по-моему не так. Вы задаете условия на форме каким образом: ставите галочки возле каких-то флажков или в полях со списком задаете текст? Если выбор осуществляется галочками возле флажков, то в коде VBA надо прописать с помощью оператoров IF или CASE что будет происходить, если флаг получил значение TRUE Например,

SQL

1	IF флаг1.Value=TRUE THEN DoCmd.OpenQuery "имя запроса"

..Синтаксис проверьте при помощи клавиши F1

@4e4el · 16.01.2010, 22:12

имелось в виду, чтобы запрос в бд делать динамически, а не прописывать их вручную
просто любой запрос представляет из себя строку скюэль запроса
вот мне нужно менять эту строку

@БурундукЪ · 17.01.2010, 11:21

Сообщение от 4e4el

вот мне нужно менять эту строку

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

@4e4el · 17.01.2010, 11:57

вот как я нашел

PureBasic

Set dbsCurrent = CurrentDb
    Set qryTest = dbsCurrent.QueryDefs("test")
    qryTest.SQL = SQL
    DoCmd.OpenQuery "test"

@Uncle_Smith · 19.01.2010, 13:44

Добрый день!
А у меня такой вопрос: в БД есть запрос, который требует ввода параметра (стоит условие "введите дату"). Возможно ли прописать этотже запрос на VBA, так, чтобы параметр (дата) брался из поля на форме?

@Елена · 19.01.2010, 18:55

пишите на SQL, указывайте в условии путь к полю формы:

SQL

1	WHERE (Имя таблицы.Имя столбца=forms![имя Вашей формы]![имя поля]);

@Uncle_Smith · 19.01.2010, 18:58

Елена_, спасибо за совет! Я уже решил было так и сделать, только не знаю точный синтаксис SQL запроса на VBA. Если вам не трудно, напишите, пожалуйста, как должна выглядеть инструкция запроса на VBA. Я пробовал вариант с DoCmd Run SQL, но что-то не заработало так =)
Заранее спасибо!

@Елена · 19.01.2010, 19:35

можно так :

PureBasic

1	DoCmd.OpenQuery "ИмяЗапроса"

- запрос создаете хранимый, т.е. объект Вашей базы и потом к нему обращаетесь
можно так:

PureBasic

1	DoCmd.RunSQL "INSERT INTO таблица SELECT таблица.ИмяСтолбца FROM таблица", -1

@Uncle_Smith · 19.01.2010, 19:40

Спасибо, оказывается я делал втрой вариант с ошибкой =). И последнее уточнение, можно ли, обращаясь к хранимому запросу (1-й вариант), задавать параметр в поле на форме? Т.е. не вводить его в диалоговом окне, а к примеру, сослаться на значение поля?

@Елена · 19.01.2010, 19:46

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

можно ли, обращаясь к хранимому запросу (1-й вариант), задавать параметр в поле на форме? Т.е. не вводить его в диалоговом окне, а к примеру, сослаться на значение поля?

конечно, об этом я и писала в первом примере. и здесь указала пример пути к полю формы

Сообщение от Елена_

WHERE (Имя таблицы.Имя столбца=forms![имя Вашей формы]![имя поля]);

@Uncle_Smith · 19.01.2010, 19:48

Вопросов больше не имею! Спасибо большое за помощь!

@Uncle_Smith 0 / 0 / 0 Регистрация: 19.01.2010 Сообщений: 7
	19.01.2010, 13:44	14
	Добрый день! А у меня такой вопрос: в БД есть запрос, который требует ввода параметра (стоит условие "введите дату"). Возможно ли прописать этотже запрос на VBA, так, чтобы параметр (дата) брался из поля на форме? 0

@БурундукЪ 10065 / 2622 / 84 Регистрация: 17.02.2009 Сообщений: 10,364
	23.12.2009, 15:51	2
	а ты генери запрос в ВБА а затем присваивай его рекордсету формы вывода результатов 0

@nikooolay 15 / 15 / 2 Регистрация: 20.11.2009 Сообщений: 452
	24.12.2009, 19:57 [ТС]	6
	про читал код, но понял только одного DoCmd что это и с чем его едят 0

@Елена 2454 / 797 / 24 Регистрация: 18.08.2009 Сообщений: 1,697
	25.12.2009, 05:57	7
	Сообщение от CyberБурундукЪ DoCmd.RunSQL запускает на выполнение Ваш запрос. Наберите в VBA DoCmd и поставьте точку - выпадет меню с возможными методами, листайте, смотрите, пользуйтесь клавишей F1 (справка). 1

@БурундукЪ 10065 / 2622 / 84 Регистрация: 17.02.2009 Сообщений: 10,364
	25.12.2009, 11:43	8
	Сообщение от nikooolay DoCmd что это и с чем его едят воткактотак Объект DoCmd — это "рабочая лошадка" программирования VBA в Access. Этот объект позволяет программным образом выполнять макрокоманды Access — те действия (actions), которые можно просмотреть (на русском языке) в окне конструктора макрокоманд. Действия — это самые распространенные операции, которые обычно приходится выполнять в Access программным способом (они перечислены ниже). У объекта DoCmd нет свойств — только методы. Для целей унификации в последних версиях Access методы DoCmd "переезжают" в объект Application, но для целей совместимости со старыми приложениями они оставлены и в DoCmd. Microsoft рекомендует по возможности пользоваться одноименными методами объекта Application. 0

@4e4el 0 / 0 / 0 Регистрация: 16.01.2010 Сообщений: 3
	16.01.2010, 21:16	9
	у меня похожая проблема нужно сделать сложный запрос по форме с многими условиями я вот могу составить sql запрос а как вывести на экран запрос на выборку не могу понять нужно чтобы по моему запросу открылось окно как будтно выбрали какойто запрос из списка запросов в бд 0

@4e4el 0 / 0 / 0 Регистрация: 16.01.2010 Сообщений: 3
	16.01.2010, 22:12	11
	имелось в виду, чтобы запрос в бд делать динамически, а не прописывать их вручную просто любой запрос представляет из себя строку скюэль запроса вот мне нужно менять эту строку 0

@БурундукЪ 10065 / 2622 / 84 Регистрация: 17.02.2009 Сообщений: 10,364
	17.01.2010, 11:21	12
	Сообщение от 4e4el вот мне нужно менять эту строку ну так и работай с ним как с обычной строкой. кстати,в этом разделе оч много примеров по этой теме 1

@Uncle_Smith 0 / 0 / 0 Регистрация: 19.01.2010 Сообщений: 7
	19.01.2010, 18:58	16
	Елена_, спасибо за совет! Я уже решил было так и сделать, только не знаю точный синтаксис SQL запроса на VBA. Если вам не трудно, напишите, пожалуйста, как должна выглядеть инструкция запроса на VBA. Я пробовал вариант с DoCmd Run SQL, но что-то не заработало так =) Заранее спасибо! 0

@Uncle_Smith 0 / 0 / 0 Регистрация: 19.01.2010 Сообщений: 7
	19.01.2010, 19:40	18
	Спасибо, оказывается я делал втрой вариант с ошибкой =). И последнее уточнение, можно ли, обращаясь к хранимому запросу (1-й вариант), задавать параметр в поле на форме? Т.е. не вводить его в диалоговом окне, а к примеру, сослаться на значение поля? 0

@Елена 2454 / 797 / 24 Регистрация: 18.08.2009 Сообщений: 1,697
	19.01.2010, 19:46	19
	Сообщение от Uncle_Smith можно ли, обращаясь к хранимому запросу (1-й вариант), задавать параметр в поле на форме? Т.е. не вводить его в диалоговом окне, а к примеру, сослаться на значение поля? конечно, об этом я и писала в первом примере. и здесь указала пример пути к полю формы Сообщение от Елена_ WHERE (Имя таблицы.Имя столбца=forms![имя Вашей формы]![имя поля]); 1

@Uncle_Smith 0 / 0 / 0 Регистрация: 19.01.2010 Сообщений: 7
	19.01.2010, 19:48	20
	Вопросов больше не имею! Спасибо большое за помощь! 0