Скопировать данные из запроса в объект, из объекта вывести в listbox VBA

@artemed · Регистрация: 16.10.2012

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

Здравствуйте!
Подскажите пожалуйста
Как можно в vba скопировать данные выводимые в запросе, обработать их (отфильтровать нулевые значения в вычисляемом поле запроса и сгруппированным по полям), а затем вывести в ListBox?

Дело в том, что у меня стоит запрос на источнике строк в listbox

SQL
1
2
3
SELECT Товары.Код, Вид.вид, Производитель.производитель, Товары.т_наименование, -SUM([ОперацияИмпКаб].[метраж]*([ОперацияИмпКаб].[окаб_тип]=2))+SUM([ОперацияИмпКаб].[метраж]*([ОперацияИмпКаб].[окаб_тип]=1)) AS Остаток
FROM (Производитель INNER JOIN (Вид INNER JOIN Товары ON Вид.Код = Товары.т_вид) ON Производитель.Код = Товары.т_производитель) INNER JOIN ОперацияИмпКаб ON Товары.Код = ОперацияИмпКаб.товар_код
GROUP BY Товары.Код, Вид.вид, Производитель.производитель, Товары.т_наименование;

Но т.к. в нем присутствует группировка по полям, не удается поставить условие >0 на вычисляемое поле Остатки, что бы отфильтровать записи где Остатки = 0

listbox.RemoveItem в цикле тоже не работает, потому что задан listbox.RowSourceType табли и запросы
пробовал в vba запрос прописать в listbox.RowSource тоже не помогает, требует указать RowSourceType - список значений.

Значит нужно как-то выгрузить значения из запроса в объект, отфильтровать нулевые Остатки и закинуть в listbox. Как это можно сделать, подскажите люди добрые

выкладываю своё творение

@artemed · 15.12.2015, 00:36 **[ТС]**

форма в которой находится listbox(СписокИмпКабОтгр) ПриемОтгрузИмпКаб вкладка Отгрузка

Добавлено через 1 минуту
упс не то выложил, голова уже не варит

@artemed · 15.12.2015, 00:38 **[ТС]**

вот то

@texnik-san · 15.12.2015, 02:25

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

Но т.к. в нем присутствует группировка по полям, не удается поставить условие >0 на вычисляемое поле Остатки, что бы отфильтровать записи где Остатки = 0

Что за ерунда? В вашей версии Access ключевое слово HAVING в SQL отменили?

SQL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
SELECT Товары.Код, Вид.вид, Производитель.производитель,
 Товары.т_наименование,
 -SUM([ОперацияИмпКаб].[метраж]
*([ОперацияИмпКаб].[окаб_тип]=2))
+SUM([ОперацияИмпКаб].[метраж]
*([ОперацияИмпКаб].[окаб_тип]=1)) AS Остаток
 
FROM (Производитель
 INNER JOIN (Вид
 INNER JOIN Товары
   ON Вид.Код = Товары.т_вид)
   ON Производитель.Код = Товары.т_производитель)
 INNER JOIN ОперацияИмпКаб
   ON Товары.Код = ОперацияИмпКаб.товар_код
GROUP BY Товары.Код, Вид.вид,
 Производитель.производитель, Товары.т_наименование
HAVING -SUM([ОперацияИмпКаб].[метраж]
 *([ОперацияИмпКаб].[окаб_тип]=2))
 +SUM([ОперацияИмпКаб].[метраж]
 *([ОперацияИмпКаб].[окаб_тип]=1))<>0;

Только с вашими данными пришлось поставить не >0, а <>0 (потому что единственное ненулевое значение было отрицательным).

@artemed · 15.12.2015, 13:51 **[ТС]**

Увау, круто, спасибо огромное!!! Я и не знал про этот Having

Добавлено через 11 минут
а почему отрицательные значения получаются в Остатке, это явно не из-за минуса впереди SUM, я пробовал и так

SUM([ОперацияИмпКаб].[метраж]*([ОперацияИмпКаб].[окаб_тип]=1))-SUM([ОперацияИмпКаб].[метраж]*([ОперацияИмпКаб].[окаб_тип]=2))

просто хочется понять

@texnik-san · 15.12.2015, 14:01

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

а почему отрицательные значения получаются в Остатке

Потому что сумма метража по операции 1 больше суммы метража по операции 2. Может, вы в номерах операций запутались, приход с расходом перепутали? Попробуйте для ясности так:

SQL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
SELECT Товары.Код, Вид.вид, Производитель.производитель, Товары.т_наименование, 
-SUM([ОперацияИмпКаб].[метраж]*([ОперацияИмпКаб].[окаб_тип]=1)) AS Приход,
-SUM([ОперацияИмпКаб].[метраж]*([ОперацияИмпКаб].[окаб_тип]=2)) AS Расход,
Приход-Расход AS Остаток
FROM (Производитель 
  INNER JOIN (Вид 
     INNER JOIN Товары 
     ON Вид.Код = Товары.т_вид) 
  ON Производитель.Код = Товары.т_производитель) 
  INNER JOIN ОперацияИмпКаб 
  ON Товары.Код = ОперацияИмпКаб.товар_код
GROUP BY Товары.Код, Вид.вид, Производитель.производитель, Товары.т_наименование
HAVING SUM([ОперацияИмпКаб].[метраж]
 *([ОперацияИмпКаб].[окаб_тип]=1))<>SUM([ОперацияИмпКаб].[метраж]
 *([ОперацияИмпКаб].[окаб_тип]=2));

@artemed · 15.12.2015, 14:33 **[ТС]**

да нет, ничего я не перепутал, слишком мало в таблице данных чтобы что-то путать, теперь Остаток, Приход и Расход положительные, но у вас в запросе перед SUM минус стоит, где Приход и Расход вычисляется

Добавлено через 4 минуты
весь метраж в таблице ведь положительный

@texnik-san · 15.12.2015, 14:46

artemed, вы ваши формулы что - скопировали откуда-то, вообще не понимая, что и как они считают?

Выражение ([ОперацияИмпКаб].[окаб_тип]=1) - логическое, может принимать два значения: False = 0 и True = -1.

Что будет, если положительный метраж умножить на -1?

Добавлено через 1 минуту
В общем, вы или учебников почитайте, либо если уже начали бездумно копировать - то продолжайте. Копируйте запрос и не спорьте.

@artemed · 15.12.2015, 15:41 **[ТС]**

теперь всё понятно, как хитро придумали, что True = -1
большое человеческое спасибо texnik-san!

Новые блоги и статьи Все статьи Все блоги /
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .

@artemed 129 / 0 / 1 Регистрация: 16.10.2012 Сообщений: 53
	15.12.2015, 00:36 [ТС]
	форма в которой находится listbox(СписокИмпКабОтгр) ПриемОтгрузИмпКаб вкладка Отгрузка Добавлено через 1 минуту упс не то выложил, голова уже не варит 0

@artemed 129 / 0 / 1 Регистрация: 16.10.2012 Сообщений: 53
	15.12.2015, 13:51 [ТС]
	Увау, круто, спасибо огромное!!! Я и не знал про этот Having Добавлено через 11 минут а почему отрицательные значения получаются в Остатке, это явно не из-за минуса впереди SUM, я пробовал и так SUM([ОперацияИмпКаб].[метраж]([ОперацияИмпКаб].[окаб_тип]=1))-SUM([ОперацияИмпКаб].[метраж]([ОперацияИмпКаб].[окаб_тип]=2)) просто хочется понять 0

@artemed 129 / 0 / 1 Регистрация: 16.10.2012 Сообщений: 53
	15.12.2015, 14:33 [ТС]
	да нет, ничего я не перепутал, слишком мало в таблице данных чтобы что-то путать, теперь Остаток, Приход и Расход положительные, но у вас в запросе перед SUM минус стоит, где Приход и Расход вычисляется Добавлено через 4 минуты весь метраж в таблице ведь положительный 0

@texnik-san шапоклякистка 8-го дня 3681 / 2241 / 391 Регистрация: 26.06.2015 Сообщений: 4,647 Записей в блоге: 1
	15.12.2015, 14:46
	artemed, вы ваши формулы что - скопировали откуда-то, вообще не понимая, что и как они считают? Выражение ([ОперацияИмпКаб].[окаб_тип]=1) - логическое, может принимать два значения: False = 0 и True = -1. Что будет, если положительный метраж умножить на -1? Добавлено через 1 минуту В общем, вы или учебников почитайте, либо если уже начали бездумно копировать - то продолжайте. Копируйте запрос и не спорьте. 1

@artemed 129 / 0 / 1 Регистрация: 16.10.2012 Сообщений: 53
	15.12.2015, 15:41 [ТС]
	теперь всё понятно, как хитро придумали, что True = -1 большое человеческое спасибо texnik-san! 0

Опции темы

Скопировать данные из запроса в объект, из объекта вывести в listbox VBA

Решение