VPF::выгрузка запроса в excel - Форум программистов

dikiy

Дата 23.9.2005, 08:44 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 104
Регистрация: 23.6.2005

Репутация: нет
Всего: нет

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

~FoX~

Дата 23.9.2005, 09:35 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 4
Всего: 68

Примерно так.

Код


   ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\1.xls; Extended Properties=Excel 8.0;Persist Security Info=False';
   Active := false;
   SQL.Clear;
   SQL.Add('SELECT * INTO [Лист1$] IN c:\1.xls FROM Tab1');
   Active := True;

Не проверял, может где с синтаксисом напоролся.

Это сообщение отредактировал(а) ~FoX~ - 23.9.2005, 09:35

--------------------

…множественность никогда не следует полагать без необходимости…

kulikoff

Дата 15.12.2005, 20:49 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 334
Регистрация: 5.11.2005
Где: Киев

Репутация: 1
Всего: 1

попробуй, у меня всё работало безошибочно...

Код


unit Unit1;
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, DBTables, StdCtrls, ComObj;

type
  TForm1 = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Query1: TQuery;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var XL,Sheet: Variant;
i: integer; 
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select id,name from "D:\1.db"');
Query1.Open;
XL:= CreateOleObject('Excel.Application');
XL.WorkBooks.Add;
Sheet:= XL.ActiveWorkBook.Sheets[1];
Sheet.PageSetup.Orientation:= 2; //===Книжная ориентация===
Sheet.Name:= 'Лист № 1';
Sheet.Columns[1].ColumnWidth:= 5;
Sheet.Columns[2].ColumnWidth:= 25;
Sheet.Range[Sheet.Cells[2,1],Sheet.Cells[2,2]].HorizontalAlignment:= 3;
Sheet.Range[Sheet.Cells[2,1],Sheet.Cells[2,2]].VerticalAlignment:= 2;
Sheet.Range[Sheet.Cells[2,1],Sheet.Cells[2,2]].WrapText:= true;
Sheet.Range[Sheet.Cells[2,1],Sheet.Cells[2,2]].Font.FontStyle:= 'Полужирный';
Sheet.Range[Sheet.Cells[2,1],Sheet.Cells[2,2]].Merge(false);
Sheet.Range[Sheet.Cells[2,1],Sheet.Cells[2,2]]:= 'Результаты'; 
Sheet.Cells[3,1]:= 'Код';
Sheet.Cells[3,1]:= 'Наименование';
i:= 4;
Query1.First;
while not Query1.Eof do
begin
Sheet.Cells[i,1]:= Query1.Fields[0].AsInteger;
Sheet.Cells[i,2]:= Query1.Fields[1].AsString;
inc(i);
Query1.Next;
end;
XL.Visible:= true;
Sheet:= UnAssigned;
XL:= UnAssigned;

end;

end.

Код

Это сообщение отредактировал(а) kulikoff - 15.12.2005, 20:50

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »