Результат функции в условии запроса

@reddew · Регистрация: 11.09.2014

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

Добрый день, очень хочу разобраться для себя в чем проблема на форме?
есть функция (funSumStr), которая преобразует столбец в строку, например:

А

1

2

3

4

5

преобразуется в 1;2;3;4;5. Я пытаюсь использовать это функцию в условии отбора, то есть делаю

MySQL
1
2
3
select столбецB
from таблица
where таблица.столбецА in (funSumStr)

по-моему должно получится

MySQL
1
2
3
select столбецB
from таблица
where таблица.столбецА in (1;2;3;4;5)

но не получается... Подскажите как передать результат функции в запрос или как подправить саму функцию, чтобы запрос ее понимал? Базу прилагаю.

@boby104 · 27.08.2015, 18:19

может такой запрос лучше поможет

SQL
1
2
3
4
5
SELECT Code.code
FROM Code
WHERE Code.code IN (SELECT Fil.code
FROM Fil
WHERE Fil.slct=[ВведитеПараметр])

Параметр это -1 или 0

@reddew · 27.08.2015, 18:30 **[ТС]**

Дело в том, что в примере этот способ отрабатывает очень быстро, но на той базе которую использую я, все происходит так медленно что я вообще сомневаюсь, а происходит ли что-то... Но вот когда я четко перечисляю, то что мне нужно по такому принципу:

MySQL
1
2
3
select столбецB
from таблица
where таблица.столбецА in (1;2;3;4;5)

не проходит даже секунды, но стоит сделать вложенный запрос и акс зависает конкретно и на долго...

@boby104 · 27.08.2015, 18:38

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

Добавлено через 1 минуту
если не хотите использовать вложеный запрос
используйте связанные запрос по определенным полям - он будет быстрее

@reddew · 27.08.2015, 18:39 **[ТС]**

Ну я примерно так и подозревал, что передается 1;2;3;4;5 не 5 значений, а одно... А как-то можно это исправить? Я имею ввиду может функцию подправить:

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Option Compare Database
Option Explicit
 
Public Function funSumStr(ByVal id As Long) As String
On Error GoTo Err_
 
Dim rst As DAO.Recordset
 
    'открываем запрос на чтение (параметр - dbOpenSnapshot)
    Set rst = CurrentDb.OpenRecordset( _
        "SELECT fil.code " & _
        "FROM fil " & _
        "WHERE fil.slct=" & id, _
    dbOpenSnapshot)
    
    If rst.RecordCount > 0 Then 'проверяем, чтобы не пустой запрос
        'делаем прбег по строкам запроса и собираем ФИО и группу допуска в одну строку
        Do While Not rst.EOF
            funSumStr = funSumStr & "; " & Nz(rst!code, "")
            rst.MoveNext
        Loop
        
        'удаляем первую запятую и пробел вначале (отсекаем 2 символа от начала)
        funSumStr = Mid(funSumStr, 3)
        
        'закрываем запрос
        rst.Close
        Set rst = Nothing
    End If
    
Exit Function
    
Err_:
    Err.Clear
End Function

@boby104 · 27.08.2015, 18:45

примерно так

SQL
1
2
3
SELECT Code.code
FROM Fil INNER JOIN Code ON Fil.code = Code.code
WHERE Fil.slct=[введитепараметр]

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

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

может функцию подправить:

это ложный путь - ваша функция открывает рекорсет и сначала пробегает по его значениям - это все время.

на больших базах - это всегда дольше чем просто запрос

Добавлено через 2 минуты
такая или подобная функция может использоваться при формировании запроса в ВБА
когда конектятся разные части запроса в одну строку но по моему это все равно не лучший путь

mobile · 27.08.2015, 18:49

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

SQL
1
2
3
SELECT code.code
FROM code
WHERE eval(code.[code] & " In (" & funSumStr() & ")")

Ваша функция funSumStr изменена. Убрана ненужная проверка на "пустоту" рекордсета, удален параметр функции (???), вместо точки с запятой и пробела на выходе только запятая.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Public Function funSumStr() As String
On Error GoTo Err_
 
Dim rst As DAO.Recordset
 
    'открываем запрос на чтение (параметр - dbOpenSnapshot)
    Set rst = CurrentDb.OpenRecordset( _
        "SELECT fil.code " & _
        "FROM fil " & _
        "WHERE fil.slct", _
    dbOpenSnapshot)
    
    'делаем прбег по строкам запроса и собираем ФИО и группу допуска в одну строку
    Do While Not rst.EOF
        funSumStr = funSumStr & "," & Nz(rst!code, "")
        rst.MoveNext
    Loop
    
    'удаляем первую запятую и вначале (отсекаем 1 символ от начала)
    funSumStr = Mid(funSumStr, 2)
    
    'закрываем запрос
    rst.Close
    Set rst = Nothing
    
Exit Function
    
Err_:
    Err.Clear
End Function

На Кнопка2 в форме в процедуре выражение для обновления источника

Visual Basic
1
Me.qry.Form.RecordSource = Me.qry.Form.RecordSource

@boby104 · 27.08.2015, 18:53

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

удален параметр функции (???)

а как тогда выбрать те значение где выражение ЛОЖЬ?

mobile · 27.08.2015, 19:02

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

а как тогда выбрать те значение где выражение ЛОЖЬ?

Поле slct чекбокс, флажок. И может иметь только значения TRUE или FALSE. И незачем проверять труе на труе. Это лишняя проверка. Достаточно проверить сам чекбокс:

SQL
1
WHERE fil.slct

Вместо

SQL
1
WHERE fil.slct=TRUE

Новые блоги и статьи Все статьи Все блоги /
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 Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@boby104 1266 / 448 / 129 Регистрация: 21.03.2013 Сообщений: 1,210
	27.08.2015, 18:38
	конструкция in () предполагает что будут перечислены конкретные значения отбора а ваша функция передает туда одно значения типа стринг - в этом и состоит нестыковка типов выражений Добавлено через 1 минуту если не хотите использовать вложеный запрос используйте связанные запрос по определенным полям - он будет быстрее 1