Экспорт в Excel в БД

[kuzmich]

привет всем! я создаю экспорт в Excel. Когда жму кнопку Экспорт - у меня выводится только одна запись и то не в ту колонку.

var
XLApp,Sheet,Colum:Variant;
index,i:Integer;
begin
XLApp:= CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Îò÷¸ò';
Colum:=XLApp.Workbooks[1].WorkSheets['Îò÷¸ò'].Columns;
Colum.Columns[1].ColumnWidth:=20;
Colum.Columns[2].ColumnWidth:=20;
Colum.Columns[3].ColumnWidth:=20;
Colum.Columns[4].ColumnWidth:=20;
Colum:=XLApp.Workbooks[1].WorkSheets['Îò÷¸ò'].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlue;
Colum.Rows[1].Font.Size:=14;
Sheet:=XLApp.Workbooks[1].WorkSheets['Îò÷¸ò'];
Sheet.Cells[1,2]:='Ñïèñîê ñòóäåíòîâ';
Sheet.Cells[2,1]:='Ô.È.Î';
Sheet.Cells[2,2]:='Äàòà ðîæäåíèÿ';
Sheet.Cells[2,3]:='Àäðåñ';
Sheet.Cells[2,4]:='Ãðóïïà';
index:=3;
Form2.Table1.First;
for i:=0 to Form2.Table1.FieldCount-1 do
begin
Form2.Table1.Open;
Sheet.Cells[index,1]:=Form2.DBGrid1.Fields[1].AsString;
Sheet.cells[index,2]:=FormatDateTime('dddddd',
Form2.DBGrid1.Fields[2].AsDateTime);
Sheet.cells[index,3]:=Form2.DBGrid1.Fields[3].AsString;
Sheet.cells[index,4]:=Form2.DBGrid1.Fields[4].AsString;
Inc(index);
Form2.Table1.Next;

подскажите что сделать!

[mihali4]

Form2.Table1.First;
for i:=0 to Form2.Table1.FieldCount-1 do
begin
Form2.Table1.Open;

Убийственный ход мысли...
Тем не менее - по шагам пробовали?

[Serge_Bliznykov]

насчёт того в какую колонку надо - тут телепатов нет!
в то, что одна запись идёт, (причём первая) то всё так и есть!
Вы код сами писали? или где-то взяли?
что ж Вы таблицу в цикле открываете?!?!
и нужно цикл добавить.
попробуйте так:

Form2.Table1.Open;
Form2.Table1.First;
while not Form2.Table1.EOF do begin
    Sheet.Cells[index,1]:=Form2.DBGrid1.Fields[1].AsString;
    Sheet.cells[index,2]:=FormatDateTime('dddddd',
                                       Form2.DBGrid1.Fields[2].AsDateTime);
    Sheet.cells[index,3]:=Form2.DBGrid1.Fields[3].AsString;
    Sheet.cells[index,4]:=Form2.DBGrid1.Fields[4].AsString;
    Inc(index);
    Form2.Table1.Next;
end;

[soleil@mmc]

есть мнение, что этот цикл

 for i:=0 to Form2.Table1.FieldCount-1 do

здесь точно лишний

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

[mihali4]

Сообщение от soleil@mmc

есть мнение...

Неужто в ЦК КПСС довелось поработать? Любимая фраза "дорогого" Леонида Ильича...
Но... согласен. Переменная цикла нигде не используется.
К полям идет прямая адресация по их номеру.
Так что эту строку можно смело убрать.

[kuzmich]

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

[mihali4]

Нумерация Fields происходит с нуля, а не с единицы! Это - раз.
Второе. Кто вас научил такому - брать данные из ячеек DBGrid!?
Данные следует брать из того датасета, данные из которого отображаются в DBGrid...
Можно и так:

Sheet.Cells[index,1]:=Form2.DBGrid1.DataSource.DataSet.Fields[0].AsString

[kuzmich]

я исправил ошибку.

  for i:=0 to Query1.RecordCount-1 do
   begin
  Sheet.Cells[index,1]:=DBGrid1.DataSource.DataSet.Fields[0].AsString;
  Sheet.cells[index,2]:=FormatDateTime('dddddd',
  DBGrid1.DataSource.DataSet.Fields[1].AsDateTime);
  Sheet.cells[index,3]:=DBGrid1.DataSource.DataSet.Fields[2].AsString;
  Sheet.cells[index,4]:=DBGrid1.DataSource.DataSet.Fields[3].AsString;
  Inc(index);

когда делаю экспорт в Excel то он выводит только одну записесь. т.е. - я имею виду что у меня 4 записи в БД, а в Excel он выводит 4 одинаковых записи. что делать?!

[ProScor]

меня 4 записи в БД, а в Excel он выводит 4 одинаковых записи

Добавьте в цикл преход на следующую запись

Query1.Next

[soleil@mmc]

вместо этого

 for i:=0 to Query1.RecordCount-1 do
begin
...
end;

напиши лучше это и не забудь в конце добавить выделенное красным

while not(Query1.EOF) do
begin
  ....
  Query1.Next;
end;