Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/18: Рейтинг темы: голосов - 18, средняя оценка - 4.56
23 / 22 / 3
Регистрация: 21.01.2010
Сообщений: 95
1

Выгрузка в Excel

27.07.2010, 08:26. Просмотров 3501. Ответов 5
Метки нет (Все метки)


Всем доброго времени суток.

Люди добрые, кто знает как выгрузить в Excel из запроса весь набор записей сразу?

Запрос выбирает чуть больше 10 тыс записей, по 37 полей в каждой! И заполнять по ячейкам каждую строку получается довольно долго.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.07.2010, 08:26
Ответы с готовыми решениями:

Выгрузка DBGrid Excel
Добрый день, подскажите пожалуйста один момент. Есть FDBQuery, в который я через field editor...

Выгрузка из DbGrid в Excel
Решила сделать выгрузку из DBGrid в Excel. Ни разу не делала( набросала код, просто записи в...

Выгрузка данных из Delphi в Excel
Делаю выгрузку данных через процедуру SendtoExcel. При заполнении массива пишу следующий код:...

Выгрузка данных из Excel в Ibexpert
Ребята, помогите! надо выгрузить данные из экселя в Ibexpert. можно просто в массив. не...

5
1850 / 1172 / 189
Регистрация: 27.03.2009
Сообщений: 4,512
27.07.2010, 09:47 2
что ты имеешь ввиду под
Цитата Сообщение от НикоН Посмотреть сообщение
И заполнять по ячейкам каждую строку получается довольно долго
???
0
148 / 148 / 3
Регистрация: 05.05.2010
Сообщений: 569
27.07.2010, 10:03 3
Здесь, вроде как, всё подробно разъяснено.
0
23 / 22 / 3
Регистрация: 21.01.2010
Сообщений: 95
28.07.2010, 09:13  [ТС] 4
Цитата Сообщение от unick12345 Посмотреть сообщение
что ты имеешь ввиду под

???
Представь такую конструкцию
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
dtm.qryRepJournal.First
for i:=7 to dtm.qryRepJournal.RecordCount+6 do
  begin
    SRep.Cells[i,1]:=dtm.qryRepJournal.Fields.Fields[0] as string;
    SRep.Cells[i,2]:=dtm.qryRepJournal.Fields.Fields[1] as string;
    SRep.Cells[i,3]:=dtm.qryRepJournal.Fields.Fields[2] as string;
    SRep.Cells[i,4]:=dtm.qryRepJournal.Fields.Fields[3] as string;
    SRep.Cells[i,5]:=dtm.qryRepJournal.Fields.Fields[4] as string;
                                       ...
    SRep.Cells[i,33]:=dtm.qryRepJournal.Fields.Fields[32] as string;
    SRep.Cells[i,34]:=dtm.qryRepJournal.Fields.Fields[33] as string;
    SRep.Cells[i,35]:=dtm.qryRepJournal.Fields.Fields[34] as string;
    SRep.Cells[i,36]:=dtm.qryRepJournal.Fields.Fields[35] as string;
    SRep.Cells[i,37]:=dtm.qryRepJournal.Fields.Fields[36] as string;
    dtm.qryRepJournal.Next
  end;
и ее надо повторить всего лишь несколько тысяч раз
0
1850 / 1172 / 189
Регистрация: 27.03.2009
Сообщений: 4,512
28.07.2010, 09:29 5
мдя. будет очень долго работать.

Добавлено через 1 минуту
что быстрее работает - запись в excel или в txt?

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

Добавлено через 8 минут
посмотри такое
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var f:textfile;s:string;
...
assignfile(f,'file.csv');
rewrite(f);
dtm.qryRepJournal.First
for i:=7 to dtm.qryRepJournal.RecordCount+6 do
  begin
s:='';
for j:=0 to dtm.qryRepJournal.fielcount-1 do
if j<dtm.qryRepJournal.fielcount-1
s:=s+dtm.qryRepJournal.fields[j].asstring+';'
else
s:=s+dtm.qryRepJournal.fields[j].asstring;
writeln(f,s);
dtm.qryRepJournal.Next
end;
closefile(f);
shellexec(...);
1
Фрилансер
451 / 432 / 117
Регистрация: 01.06.2010
Сообщений: 1,315
28.07.2010, 10:13 6
НикоН, для загрузки/выгрузки данных из/в Excel посмотри работу с вариантными матрицами...
На форуме это уже обсуждалось. Именно загрузка/выгрузка из DataSet в Excel.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.07.2010, 10:13

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Выгрузка данных с Firebird в Excel
Возникла проблема с выгрузкой данных в ексель из базы данных на Firebird. Есть таблица Стобец...

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

Выгрузка данных из таблицы Paradox в Excel
Здравствуйте, помогите пожалуйста, есть таблица Paradox - Посещаемость. В неё по кнопке добавляются...

Создание отчета и его выгрузка в Excel, Word
Здравствуйте! Есть база данных в access и она соединена с делфи, мне нужно в делфи сделать отчеты,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.