Выгрузить в Excel информацию которая отображается в DBGride

@beastfrim · Регистрация: 03.04.2019

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

Друзья помогите сделать отчёт и выгрузить информацию с DBGid1 в Excel по одинаковым столбцам, есть DBGrid1 в нем отображается база людей (Access) с диагнозами (Бронхит,ОРВИ и т.д), CheckBox-сом фильтрую по году заболевания, TButton-om выгружаю в Excel табличку с двумя столбцами (Диагноз и количество).
Вопрос: Как сделать чтобы в Excel выгружались не все болячки с базы а только те что показывает DBGrid1 (отфильтрованные CheckBox-сом), табличка поле диагноз и количество, а там (ОРВИ 2 человека , Бронхит 15, ну и т.д.).

@krapotkin · 10.03.2025, 10:56

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

@D1973 · 10.03.2025, 11:49

Запрос, в принципе, нельзя написать, не зная названий таблиц, связей между ними, названий и типов полей ну и т.д. То есть - не зная структуру Вашей БД нельзя написать даже самый примитивный запрос. А по большому счету, чтобы написать запрос чуть-чуть сложнее, чем SELECT * FROM MyTable, необходимо четкое понимание того, что мы хотим получить в итоге, необходимо техзадание. Ничего из вышеперечисленного Вы нам не предоставили, кроме маловразумительного обрывка кода...

Вообще, при создании приложения для управления БД Вам просто необходимо плотно работать в самой СУБД, в которой Вы создаете свою базу, ну, в Вашем случае - в Access. Все запросы создаются и отлаживаются именно там. А когда запрос отлажен и работает - вот тогда текст этого запроса можно переносить в свою программу с большой долей уверенности, что запрос сработает и там.

@vlad-mal · 10.03.2025, 22:17

В Ehlib можно посмотреть код, который выполняет экспорт в иксель. Он простой и понятный, и делает именно то, что хочет ТС, без обращения к SQL. Именно "картинку с телевизора".

@northener · 11.03.2025, 01:34

Сообщение от vlad-mal

В Ehlib можно посмотреть код, который выполняет экспорт в иксель. Он простой и понятный, и делает именно то, что хочет ТС

А вы уверены что сей код делает именно то, что хочет ТС? Может вы не достаточно точно знаете что он хочет.
И ещё раз. EhLib платная.

@D1973 · 11.03.2025, 06:39

Сообщение от vlad-mal

экспорт в иксель ... без обращения к SQL

Ну дык экспорт в Excel - он и в предложенном коде никакой SQL не использует. Если Вы посмотрели предложенный код, то увидели, что там просто формируется вариантный массив и заполняется значениями из набора данных. Потом этот массив вставляется на лист Excel. А как формируется набор данных для экспорта - это дело пятое, это может быть SQL-запрос, это может быть прямое обращение к таблице БД, да хоть чтение из текстового файла - вообще неважно. Создали вариантную матрицу, заполнили ее данными неважно откуда, вставили матрицу на лист Экселя - все!

Сообщение от vlad-mal

В Ehlib можно посмотреть код

Да, можно. И Вы поймете, что делает этот код, сможете применить его в своем проекте. И еще многие форумчане смогут это сделать. Но вот ТС - пока не может, поэтому, какой смысл говорить об этом в его теме?

beastfrim, выложите уже свой проект вместе с БД. И на примере этого проекта продемонстрируйте, чего хотите добиться...

@beastfrim · 12.03.2025, 04:50 **[ТС]**

Друзья вот проект который я мучаю

@D1973 · 12.03.2025, 05:58

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

есть DBGrid1 в нем отображается база людей (Access) с диагнозами (Бронхит,ОРВИ и т.д)

Ну допустим, если предположить, что диагноз указывается кодом в поле МКБ

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

CheckBox-сом фильтрую по году заболевания, TButton-om выгружаю в Excel табличку с двумя столбцами (Диагноз и количество).

А вот этого я что-то не нашел... Или Вы имеете в виду главное меню, а не чекбоксы и кнопки?

@beastfrim · 12.03.2025, 06:22 **[ТС]**

Скриншот

@ura-ura · 12.03.2025, 08:08

Вначале в ексель шапку вы берете из грида

Delphi
1
2
3
4
5
for k :=1 to DBGrid1.FieldCount do
 begin
  i :=i+1;
  ExcelApp.cells[1,i] :=DBGrid1.Columns.Items[k-1].Title.caption;
 end;

а далее пошел вывод из ADOQuery1

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

@D1973 · 12.03.2025, 09:20

beastfrim, теперь понятно. Как время будет - что-нибудь набросаю...

@beastfrim · 12.03.2025, 09:39 **[ТС]**

ura-ura. А зачем мне шапка из грида и вывод из ADOQuery1, я создаю Excel с двумя колонками МКБ и Количество, куда должно попасть МКБ и Количество, только не со всей базы а только то что я отфильтровал, или как это сказать показывает Грид.

@ura-ura · 12.03.2025, 09:44

у вас кстати можно выбрать оба фильтра 24 и 25, но в результате только 24 отображается)))
можно сделать сброс одного при нажатии на другой

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm1.N20241Click(Sender: TObject);
begin
if Form1.N20241.Checked = false then form1.ADOQuery1.Filtered := False
else
begin
   Form1.N20251.Checked :=false;
   Form1.ADOQuery1.Filtered := False;
   Form1.ADOQuery1.Filter:='ГодВвода like %2024%';
   Form1.ADOQuery1.Filtered :=True
end;
end;
 
procedure TForm1.N20251Click(Sender: TObject);
begin
if Form1.N20251.Checked = false then form1.ADOQuery1.Filtered := False
else
begin
   Form1.N20241.Checked :=false;
   Form1.ADOQuery1.Filtered := False;
   Form1.ADOQuery1.Filter:='ГодВвода like %2025%';
   Form1.ADOQuery1.Filtered :=True
end;
end;

@beastfrim · 12.03.2025, 09:51 **[ТС]**

Точняк спасибо!! но первый вопрос меня больше интересует =)

@D1973 · 12.03.2025, 10:40

beastfrim, если сделать в режиме "на и отъе..сь" - то вот так:

Delphi
1
2
3
4
5
6
7
8
With DM.ADQ2 do begin//Делаем наш запрос
        Close;
        SQL.Clear;
        SQL.Add('SELECT МКБ, COUNT(МКБ) as cnt FROM DBI');
        SQL.Add('WHERE [ГодВвода] = "2024"'); //<<==
        SQL.Add('GROUP BY МКБ');
        Open;
    end;

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

А если делать хорошо - то надо переделывать всё, начиная с БД

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

Сообщение от ura-ura

можно сделать сброс одного при нажатии на другой

а если их будет не 2, а, к примеру, 5 и надо выбрать 3 из 5-ти?

@ura-ura · 12.03.2025, 11:13

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

А если делать хорошо - то надо переделывать всё, начиная с БД

поддерживаю)))

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

а если их будет не 2, а, к примеру, 5 и надо выбрать 3 из 5-ти?

тогда вот это

Delphi
1
 Form1.ADOQuery1.Filter:='ГодВвода like %2024%';

нужно по другому делать

@D1973 · 12.03.2025, 11:27

Сообщение от ura-ura

нужно по другому делать

однозначно!

@krapotkin · 12.03.2025, 13:57

считаю, предлагать делать ФИЛЬТР на Query это цинично и безнравственно по отношению к автору

@beastfrim · 13.03.2025, 04:04 **[ТС]**

D1973. Не на "о*сь" не пойдет

SQL.Add('WHERE [ГодВвода] = "2024"'); //<<==
Так тут он всегда будет только считать 2024 год а если мне нужно 2025 год, или еще какой нибудь фильтр добавить например мне нужно добавить к году возраст ?

@D1973 · 13.03.2025, 04:49

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

а если мне нужно 2025 год

а если читать ответы внимательно?

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

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

что непонятно?

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

или еще какой нибудь фильтр добавить

инструкция WHERE может содержать достаточно большое количество условий, объединенных логическими операторами AND и OR

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

добавить к году возраст

Кстати о возрасте... Никогда не храните в БД вычисляемые величины! Тот же возраст. Вот вы внесли данные ребенка, указали возраст - 15 лет. Через год Ваша таблица, получается, будет содержать некорректные данные?

@esgard · 13.03.2025, 09:16

Можно свои пять копеек вставить?
Кроме того, что как уже упоминали уважаемые товарищи выше - код надо кардинально переделывать, нужно еще и подумать о "заделе на будущее".
У вас выбор фильтрации по годам идет через выпадающее меню. Вы каждый следующий год будете добавлять в меню по одной строке с годом? Лучше сделать по другому.
Проще всего конечно сделать строку ввода с проверкой на цифры. Я бы сделал процедурно генерируемый выпадающий список, который будет формироваться запросом из поля "год ввода".

Новые блоги и статьи Все статьи Все блоги /
Теория всего 12. ВГК anaschu 21.07.2026 ### Главные семантические изменения и дешифровка новой физики 1. `REPRODUCTIVE_EMISSION` вместо фотосинтеза (`PS_base`): Энергия и ресурсы, которые класс средних мужчин (`_W_MEN_DONORS`). . .	Публикация отклонённая на хабре. Как «пернатого» заставить осваивать новые горизонты опыта через масштабирование задачи и целеполагание Hrethgir 21.07.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11948&stc=1&d=1784657928 Привет Хабр. В этой статье я расскажу, как один закон эпистемологии позволил мне с ходу запустить уникальный. . .	Теория всего 11. Основные параметры anaschu 21.07.2026 Дешифровка тензорного ядра Soil Chemistry 2. 0: Истинный инвариант Теории Всего Чистовой исходный код многокомпонентной сукцессии зафиксирован. Модель оперирует единым вектором состояния. . .	Теория всего 10. Клод трусишка anaschu 21.07.2026 Алгоритмический суицид ИИ: Когда математика ОДУ взламывает цензурные шлюзы Свежайший мета-прецедент нашей разработки! Клод официально отказался строить итоговую кроссплатформенную модель, как. . .
Теория всего 9. Окончательная проработка метафоры "дерево = традиции" anaschu 21.07.2026 Скрытые параметры ядра ОДУ: Механика Глубинного Рока Клод утаил от вас ключевую математику кризисов. В движке игры зашиты пять скрытых коэффициентов, определяющих, как именно ТНК и Мемы ломают. . .	Теория всего 8. Clauude трусишка. Ответ джемени anaschu 21.07.2026 Игровой баланс «Модели Всего»: Алгоритмический блок как механика Семантического БуфераЭтот скриншот отказа Клода — идеальный, чистейший прецедент для нашей Теории Всего. Вы столкнулись не просто с. . .	Теория всего 7. Дерево - это патриархат, грибы - это феминизм anaschu 21.07.2026 Уничтожение Патриархата: Как ТНК, Мемы и Половой отбор зачистили «Сексуальный Пролетариат» Величайшая иллюзия современного человека — вера в «свободу воли», «социальный прогресс» и «эволюцию. . .	История и социология Терры на примере борьбы микориз за пространство. 1. Глоссарий терры. anaschu 21.07.2026 Решил тут подумать о возможности сделать лор некоторой комп игры - стратегии, или худжественной книги антиутопии, которые будут юзать планету,которая максимально будет похожа на нашу землю, но где. . .

@beastfrim 0 / 0 / 0 Регистрация: 03.04.2019 Сообщений: 31

	RAD XE3+ Выгрузить в Excel информацию которая отображается в DBGride 05.03.2025, 01:48. Показов 7118. Ответов 58 Метки нет (Все метки) Друзья помогите сделать отчёт и выгрузить информацию с DBGid1 в Excel по одинаковым столбцам, есть DBGrid1 в нем отображается база людей (Access) с диагнозами (Бронхит,ОРВИ и т.д), CheckBox-сом фильтрую по году заболевания, TButton-om выгружаю в Excel табличку с двумя столбцами (Диагноз и количество). Вопрос: Как сделать чтобы в Excel выгружались не все болячки с базы а только те что показывает DBGrid1 (отфильтрованные CheckBox-сом), табличка поле диагноз и количество, а там (ОРВИ 2 человека , Бронхит 15, ну и т.д.). 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,681 Записей в блоге: 21
	10.03.2025, 10:56
	сформулируйте условие на русском языке, мы поможем перевести на SQL 0

@D1973 Модератор 9948 / 6483 / 2461 Регистрация: 21.01.2014 Сообщений: 27,468 Записей в блоге: 3
	10.03.2025, 11:49
	Запрос, в принципе, нельзя написать, не зная названий таблиц, связей между ними, названий и типов полей ну и т.д. То есть - не зная структуру Вашей БД нельзя написать даже самый примитивный запрос. А по большому счету, чтобы написать запрос чуть-чуть сложнее, чем SELECT * FROM MyTable, необходимо четкое понимание того, что мы хотим получить в итоге, необходимо техзадание. Ничего из вышеперечисленного Вы нам не предоставили, кроме маловразумительного обрывка кода... Вообще, при создании приложения для управления БД Вам просто необходимо плотно работать в самой СУБД, в которой Вы создаете свою базу, ну, в Вашем случае - в Access. Все запросы создаются и отлаживаются именно там. А когда запрос отлажен и работает - вот тогда текст этого запроса можно переносить в свою программу с большой долей уверенности, что запрос сработает и там. 0

@vlad-mal 59 / 3 / 0 Регистрация: 19.03.2016 Сообщений: 19
	10.03.2025, 22:17
	В Ehlib можно посмотреть код, который выполняет экспорт в иксель. Он простой и понятный, и делает именно то, что хочет ТС, без обращения к SQL. Именно "картинку с телевизора". 0

@beastfrim 0 / 0 / 0 Регистрация: 03.04.2019 Сообщений: 31
	12.03.2025, 06:22 [ТС]
	Скриншот Миниатюры 0

@D1973 Модератор 9948 / 6483 / 2461 Регистрация: 21.01.2014 Сообщений: 27,468 Записей в блоге: 3
	12.03.2025, 09:20
	beastfrim, теперь понятно. Как время будет - что-нибудь набросаю... 0

@beastfrim 0 / 0 / 0 Регистрация: 03.04.2019 Сообщений: 31
	12.03.2025, 09:39 [ТС]
	ura-ura. А зачем мне шапка из грида и вывод из ADOQuery1, я создаю Excel с двумя колонками МКБ и Количество, куда должно попасть МКБ и Количество, только не со всей базы а только то что я отфильтровал, или как это сказать показывает Грид. 0

@beastfrim 0 / 0 / 0 Регистрация: 03.04.2019 Сообщений: 31
	12.03.2025, 09:51 [ТС]
	Точняк спасибо!! но первый вопрос меня больше интересует =) 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,681 Записей в блоге: 21
	12.03.2025, 13:57
	считаю, предлагать делать ФИЛЬТР на Query это цинично и безнравственно по отношению к автору 0

@beastfrim 0 / 0 / 0 Регистрация: 03.04.2019 Сообщений: 31
	13.03.2025, 04:04 [ТС]
	D1973. Не на "о*сь" не пойдет SQL.Add('WHERE [ГодВвода] = "2024"'); //<<== Так тут он всегда будет только считать 2024 год а если мне нужно 2025 год, или еще какой нибудь фильтр добавить например мне нужно добавить к году возраст ? 0

@esgard 1 / 1 / 0 Регистрация: 07.09.2021 Сообщений: 105
	13.03.2025, 09:16
	Можно свои пять копеек вставить? Кроме того, что как уже упоминали уважаемые товарищи выше - код надо кардинально переделывать, нужно еще и подумать о "заделе на будущее". У вас выбор фильтрации по годам идет через выпадающее меню. Вы каждый следующий год будете добавлять в меню по одной строке с годом? Лучше сделать по другому. Проще всего конечно сделать строку ввода с проверкой на цифры. Я бы сделал процедурно генерируемый выпадающий список, который будет формироваться запросом из поля "год ввода". 0