Выгрузка в excel по запросу через delphi

@pek · Регистрация: 27.04.2016

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

здравствуйте
помогите плиз
создал базу много таблиц , заполняю её через delphi, хочу сделать кнопку выгрузки в шаблон excel.
но вот в чём интерес хочу выбирать какойто пункт , например город москва и всё что привязано к ней выгружалось например номера домов и улиц итд те чтобы можно было вытянуть всё по одному главному обьекту.
если есть програмка дайте посмотреть .
заранее благодарен

@qwertehok · 09.11.2016, 12:33

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

да работает

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

нифига не получается

судя по ошибке ты не правильно что-то пишешь
так как кода нет, а телепаты в отпуске, то скажу немного лишь ничего

@pek · 09.11.2016, 12:56 **[ТС]**

изменил шаблон на формат xlt точнее сделал нормальным
теперь вот такое выдаёт

@pek · 10.11.2016, 11:20 **[ТС]**

Code
1
Sheet:= ExcelApp.ActiveWorkBook.Sheets[1];

вот в чём проблема была . разобрался . теперь буду идти дальше по выгрузке остального
спасибо

@pek · 18.11.2016, 06:16 **[ТС]**

подскажите как как выводить все строки из базы до последней записи в базе,
то есть в цикле for index:=3 to ______здесь записать _______ do
или я неправильно думаю.
выше предлогал qwertehok, описывать каждую строку для excel
но у меня может быть их 60-200

@qwertehok · 18.11.2016, 06:34

Можно и все описать, но у query есть массив Columns и есть ColumnsCount.
Дальше продолжать?

@pek · 18.11.2016, 07:41 **[ТС]**

Code
1
sheet.cells[index,13]:=adoquery10.Fields[6].text + adoquery10.Fields[7].text;

подскажите что неправильно делаю
хочу выгрузить в одну ячейку два значения
первое выводится второе нет
хотя если в разные ячейки выводить всё выводится

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

подскажите что неправильно делаю

всё работает разобрался

Добавлено через 22 минуты
подскажите вот такое у меня один столбик в таблице sql содержит много записей
мне необходимо вывести их все в одну ячейку excel/ наверное надо отдельный специальный query

@qwertehok · 18.11.2016, 10:13

ага, отдельную программу еще возьмите

у вас после Query.Open (или как там у вас) в этом самом Query ВСЕ ваши данные
обходите их столько раз сколько нужно и выводите в 1 ячейку, в 2 .. в 100500

@pek · 18.11.2016, 10:26 **[ТС]**

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

@qwertehok · 18.11.2016, 10:43

Ну и кто вам мешает?

@pek · 18.11.2016, 11:06 **[ТС]**

как не знаю. думал суммой с запятой но нифига

@qwertehok · 18.11.2016, 14:29

у вас есть массив данных
вам нужно получить сумму некоторой колонки
как это сделать?

перебрать все записи
как перебирать строки в query вы знаете?
как суммировать?

или напишите в чем КОНКРЕТНО вопрос

@pek · 20.11.2016, 17:27 **[ТС]**

нифига не получается чтобы целый столбик sql вывести в одну ячейку excel.
попробовал вот так

T-SQL
1
2
3
4
DECLARE @paramname NVARCHAR(max) 
SELECT @paramname = COALESCE(@paramname + ', ', '') + paramname
FROM таблица
SELECT @paramname

в sql servere всё нормально получается.
а вот в delphi когда прописываю adoquery14.sql.text:=
delphi начинает ругаться на вот такую конструкцию + ', ', '')
подскажите как исправить или как другой запрос сделать.
заранее благодарен.

и ещё есть вопрос как сделать чтобы при выгрузке у меня в excele объединялись ячейки которые одинаковые, например
есть
столбики в excel
0 3
0 3
0 3
а необходимо чтобы эти столбики объединились (не по строчкам) и получилость
две объединённых ячейки

0 3

спасибо

Добавлено через 5 часов 6 минут

как перебирать строки в query вы знаете?

не знаю подскажите как

@qwertehok · 20.11.2016, 18:18

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

нифига не получается чтобы целый столбик sql вывести в одну ячейку excel.

тут можно пойти 2 путями
1) SQL - как у вас

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

delphi начинает ругаться на вот такую конструкцию

я не вижу ваш код или ошибку, поэтому не буду гадать на что там ругается

2) путь delphi
это значит что вы пишите

SQL
1
SELECT a FROM T

а в delphi в цикле перебираете все записи и пишите их в строку через запятую

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

а необходимо чтобы эти столбики объединились (не по строчкам) и получилость

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

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

не знаю подскажите как

я вам писал в #10

@pek · 21.11.2016, 07:03 **[ТС]**

вот посмотрите
delphi не понимает запятую всвязи с эти он не понимае дальше

@qwertehok · 21.11.2016, 08:42

потому что запятые надо экранировать

@pek · 21.11.2016, 08:44 **[ТС]**

это я понял только немогу подобрать как именоно

@qwertehok · 21.11.2016, 09:34

а подумать?
Экранирование кавычек

@pek · 21.11.2016, 09:44 **[ТС]**

это я в роде уже решил теперь говорит индикатор начинающийся с DECLARE слишком длинный , говорит мах=128
но мне от туда ничего не выкинуть

@qwertehok · 21.11.2016, 09:47

а вы в одну строку все написали?
разбить на несколько не пробовали?

@pek · 21.11.2016, 09:47 **[ТС]**

разобрался с индификатором
но не с экранирование
буду стараться

Новые блоги и статьи Все статьи Все блоги /
Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .
Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .	Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .

@pek 0 / 0 / 1 Регистрация: 27.04.2016 Сообщений: 376

	MS SQL Выгрузка в excel по запросу через delphi 26.10.2016, 10:22. Показов 7848. Ответов 42 Метки нет (Все метки) здравствуйте помогите плиз создал базу много таблиц , заполняю её через delphi, хочу сделать кнопку выгрузки в шаблон excel. но вот в чём интерес хочу выбирать какойто пункт , например город москва и всё что привязано к ней выгружалось например номера домов и улиц итд те чтобы можно было вытянуть всё по одному главному обьекту. если есть програмка дайте посмотреть . заранее благодарен 0

@pek 0 / 0 / 1 Регистрация: 27.04.2016 Сообщений: 376
	09.11.2016, 12:56 [ТС]
	изменил шаблон на формат xlt точнее сделал нормальным теперь вот такое выдаёт Миниатюры 0

@pek 0 / 0 / 1 Регистрация: 27.04.2016 Сообщений: 376
	18.11.2016, 06:16 [ТС]
	подскажите как как выводить все строки из базы до последней записи в базе, то есть в цикле for index:=3 to ______здесь записать _______ do или я неправильно думаю. выше предлогал qwertehok, описывать каждую строку для excel но у меня может быть их 60-200 0

@qwertehok 6003 / 4578 / 1096 Регистрация: 29.08.2013 Сообщений: 28,268 Записей в блоге: 3
	18.11.2016, 06:34
	Можно и все описать, но у query есть массив Columns и есть ColumnsCount. Дальше продолжать? 1

@qwertehok 6003 / 4578 / 1096 Регистрация: 29.08.2013 Сообщений: 28,268 Записей в блоге: 3
	18.11.2016, 10:13
	ага, отдельную программу еще возьмите у вас после Query.Open (или как там у вас) в этом самом Query ВСЕ ваши данные обходите их столько раз сколько нужно и выводите в 1 ячейку, в 2 .. в 100500 1

@pek 0 / 0 / 1 Регистрация: 27.04.2016 Сообщений: 376
	18.11.2016, 10:26 [ТС]
	по ячейкам я все раскидываю как надо. у меня есть только вот скрин sql, вот эти слова надо долбануть в одну ячейку excel, у меня одна такая ячейка Миниатюры 0

@qwertehok 6003 / 4578 / 1096 Регистрация: 29.08.2013 Сообщений: 28,268 Записей в блоге: 3
	18.11.2016, 10:43
	Ну и кто вам мешает? 1

@pek 0 / 0 / 1 Регистрация: 27.04.2016 Сообщений: 376
	18.11.2016, 11:06 [ТС]
	как не знаю. думал суммой с запятой но нифига 0

@qwertehok 6003 / 4578 / 1096 Регистрация: 29.08.2013 Сообщений: 28,268 Записей в блоге: 3
	18.11.2016, 14:29
	у вас есть массив данных вам нужно получить сумму некоторой колонки как это сделать? перебрать все записи как перебирать строки в query вы знаете? как суммировать? или напишите в чем КОНКРЕТНО вопрос 1

@pek 0 / 0 / 1 Регистрация: 27.04.2016 Сообщений: 376
	21.11.2016, 07:03 [ТС]
	вот посмотрите delphi не понимает запятую всвязи с эти он не понимае дальше Миниатюры 0

@qwertehok 6003 / 4578 / 1096 Регистрация: 29.08.2013 Сообщений: 28,268 Записей в блоге: 3
	21.11.2016, 08:42
	потому что запятые надо экранировать 1

@pek 0 / 0 / 1 Регистрация: 27.04.2016 Сообщений: 376
	21.11.2016, 08:44 [ТС]
	это я понял только немогу подобрать как именоно 0

@qwertehok 6003 / 4578 / 1096 Регистрация: 29.08.2013 Сообщений: 28,268 Записей в блоге: 3
	21.11.2016, 09:34
	а подумать? Экранирование кавычек 1

@pek 0 / 0 / 1 Регистрация: 27.04.2016 Сообщений: 376
	21.11.2016, 09:44 [ТС]
	это я в роде уже решил теперь говорит индикатор начинающийся с DECLARE слишком длинный , говорит мах=128 но мне от туда ничего не выкинуть 0

@qwertehok 6003 / 4578 / 1096 Регистрация: 29.08.2013 Сообщений: 28,268 Записей в блоге: 3
	21.11.2016, 09:47
	а вы в одну строку все написали? разбить на несколько не пробовали? 0

@pek 0 / 0 / 1 Регистрация: 27.04.2016 Сообщений: 376
	21.11.2016, 09:47 [ТС]
	разобрался с индификатором но не с экранирование буду стараться 0