Вывод параметрических запросов из dbgrid в excel

@Landser · Регистрация: 18.04.2009

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

доброго времени суток.
вот с чем столкнулся, вернее что не пойму как сделать:
при нажатии на кнопку в dbgrid появляется результат запроса, параметром для которого служит текст в edit1.text
я хочу, чтобы после каждого такого запроса строка из dbgrida добавлялась в exel таблицу, те каждый раз, как я нажимаю кнопку "добавить", строка пишется в exel,
такое я пытаюсь реализовать с помощью процедуры, предварительно создав

Delphi
1
Excel:=CreateOleObject('Excel.Application');

Delphi
1
2
3
4
5
6
7
8
while DBGrid1.DataSource.DataSet.Eof <> true do
 begin
   for i := 1 to DBGrid1.DataSource.DataSet.RecordCount do begin
   rec1[i] := DBGrid1.DataSource.DataSet.FieldByName('DATE').AsString;
    Sheet.Cells[1,i]:= rec1[i];
   DBGrideh1.DataSource.DataSet.Next;
   end;
 end;

а проблема то как раз в том, что я например выполнил 5 запросов, а в exel пишется результат последнего запроса, а вот как сделать, чтобы писались все?вроде кажется просто, а чё то сообразить не могу.подскажите пожалуйста!

@SAMZ · 29.01.2010, 06:12

У Вас в теле цикла

Delphi
1
Sheet.Cells[1,i]:= rec1[i];

Таким образом при отработке цикла вы всегда вставляете данные в одну и ту же строку приложения Excel с номером 1
Вам надо работать еще с одной переменной, допустим J и идентифицировать ее со строкой обработки данных.

Delphi
1
2
3
4
5
6
7
8
9
10
J := 1;
while DBGrid1.DataSource.DataSet.Eof <> true do
 begin
   for i := 1 to DBGrid1.DataSource.DataSet.RecordCount do begin
   rec1[i] := DBGrid1.DataSource.DataSet.FieldByName('DATE').AsString;
    Sheet.Cells[j,i]:= rec1[i];
   DBGrideh1.DataSource.DataSet.Next;
   end;
   inc(j);  
 end;

Я взял за основу Ваш код, хотя и не вполне понимаю зачем Вам

Delphi
1
rec1[i] := DBGrid1.DataSource.DataSet.FieldByName('DATE').AsString;

Без этого можно было обойтись, присваивая

Delphi
1
Sheet.Cells[j,i]:= DBGrid1.DataSource.DataSet.FieldByName('DATE').AsString;

Ну и фраза

а проблема то как раз в том, что я например выполнил 5 запросов

звучит как-то странно. Вы выполнили 5 запросов или получили в запросе 5 строк результата?

@Landser · 29.01.2010, 20:54 **[ТС]**

SAMZ, спасибо за ответ

Я взял за основу Ваш код, хотя и не вполне понимаю зачем Вам

Delphi
1
rec1[i] := DBGrid1.DataSource.DataSet.FieldByName('DATE').AsString;

Без этого можно было обойтись, присваивая

Delphi
1
Sheet.Cells[j,i]:= DBGrid1.DataSource.DataSet.FieldByName('DATE').AsString;

rec1[i] используется ещё в программе, это глобальный массив

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

Ну и фраза

а проблема то как раз в том, что я например выполнил 5 запросов

звучит как-то странно. Вы выполнили 5 запросов или получили в запросе 5 строк результата?

я выполнил 5 запросов, вот и хочу, чтобы строки из дб грида одна за одной добавлялись в отчёт..

Новые блоги и статьи Все статьи Все блоги /
Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .