Рефакторинг Excel в ADOQuery, DBGrid

[Serega_SS]

Здравствуйте!
Нуждаюсь в вашей помощи.
Есть задача, в Excel есть один столбик, его надо загрузить в DBGrid разделив на 2 столбика.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, frxClass, frxExportBaseDialog,
  frxExportPDF, frxBarcode, frxDBSet, frxDesgn, Vcl.ExtCtrls;

type
  TVarioPrint = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    frxReport1: TfrxReport;
    frxDesigner1: TfrxDesigner;
    frxDBDataset1: TfrxDBDataset;
    frxBarCodeObject1: TfrxBarCodeObject;
    frxPDFExport1: TfrxPDFExport;
    Button2: TButton;
    Button3: TButton;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Label1: TLabel;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  VarioPrint: TVarioPrint;

implementation

{$R *.dfm}

procedure TVarioPrint.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #27 then close;
end;


procedure TVarioPrint.Button1Click(Sender: TObject);
begin
  if not OpenDialog1.Execute then exit;
  ADOConnection1.Close;
  ADOConnection1.ConnectionString := 'Provider=Microsoft.ACE.OLEDB.12.0;Data Source=' + OpenDialog1.FileName + ';User ID=Admin;Password=;Extended Properties=Excel 8.0';
  Label1.Caption:=ExtractFileName(OpenDialog1.FileName);
  ADOConnection1.Open;

  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT * FROM [Лист1$] WHERE [#] BETWEEN 1 and 15000 or [#] BETWEEN 15001 and 30000');
  ADOQuery1.Open;

end;


procedure TVarioPrint.Button2Click(Sender: TObject);
begin
frxReport1.ShowReport;
end;

procedure TVarioPrint.Button3Click(Sender: TObject);
begin
frxReport1.LoadFromFile('Config.fr3');
frxReport1.DesignReport;
end;

procedure TVarioPrint.FormActivate(Sender: TObject);
begin
  OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName);
end;


end.

[Viktor61]

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

есть один столбик, его надо загрузить в DBGrid разделив на 2 столбика

По какому признаку будем делить? Пополам? Из расчета 1 к 3 или 1 к 4? Озвучьте, пож-та, Ваши пожелания!

[evg_m]

ADOQuery1.SQL.Add('SELECT * FROM [Лист1$] WHERE [#] BETWEEN 1 and 15000 or [#] BETWEEN 15001 and 30000');

1. если сможем вместо * пишем как вычислять (SQL) нужные поля.
2. если нет, то всегда можно будет ...
добавляем к полученному набору данных вычислимые поля TCalcField (два) по числу новых колонок.
пишем процедуры(delphi) вычисления оных полей.
добавляем (и прячем) колонки в DBgrid.

[Serega_SS]

Доброе время суток.
У меня есть файл Excel в котором 4 столбика с данными и 60 тыс. строк.
Когда я делаю запрос

ADOQuery1.SQL.Add('SELECT * FROM [Лист1$] WHERE [#] BETWEEN 1 and 15000 or [#] BETWEEN 15001 and 30000 or [#] BETWEEN 300001 and 45000 or [#] BETWEEN 45001 and 60000');

то получается что к первой части запроса снизу добавляется вторая часть и так далее. А мне надо чтоб эта вторая часть добавилась в следующие столбики. Итак этот файл поделить на 4 части. Суть такова что мне надо поделить на 4 равные части и записать в оду таблицу.

[Serega_SS]

Вот файл с которым работаю.

[Serega_SS]

Вот так должна выглядеть таблица в итоге. Не знаю как это описать в программе.

[evg_m]

что-то вроде такого

select t1.[#], t2.[#], t3.[#], t4.[#], --4 колонки [#]
   t1.*, t2.*, t3.*, t4.*  -- или так
from ( -- поля "первой" колонки 
         SELECT * FROM [Лист1$] WHERE [#] BETWEEN 1 and 15000 ) as t1  
left join ( --вторая 
             SELECT * FROM [Лист1$] WHERE [#] BETWEEN 15001 and 30000 ) as t2 on t1.[#]+15000 =t2.[#] 
left join ( -- третья 
              SELECT * FROM [Лист1$] WHERE [#] BETWEEN 300001 and 45000 ) as t3 on t1.[#]+30000 =t3.[#]
left join ( -- четвертая 
              SELECT * FROM [Лист1$] WHERE [#] BETWEEN 45001 and 60000 ) as t4 on t1.[#]+45000 =t4.[#]

[Serega_SS]

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

что-то вроде такого

select t1.[#], t2.[#], t3.[#], t4.[#], --4 колонки [#]
   t1.*, t2.*, t3.*, t4.*  -- или так
from ( -- поля "первой" колонки 
         SELECT * FROM [Лист1$] WHERE [#] BETWEEN 1 and 15000 ) as t1  
left join ( --вторая 
             SELECT * FROM [Лист1$] WHERE [#] BETWEEN 15001 and 30000 ) as t2 on t1.[#]+15000 =t2.[#] 
left join ( -- третья 
              SELECT * FROM [Лист1$] WHERE [#] BETWEEN 300001 and 45000 ) as t3 on t1.[#]+30000 =t3.[#]
left join ( -- четвертая 
              SELECT * FROM [Лист1$] WHERE [#] BETWEEN 45001 and 60000 ) as t4 on t1.[#]+45000 =t4.[#]

Почти сработало. Если я делаю так

SELECT t1.*, t2.*  FROM (SELECT * FROM [Лист1$] WHERE [#] BETWEEN 1 and 15000) as t1
left join (SELECT * FROM [Лист1$] WHERE [#] BETWEEN 15001 and 30000) as t2 on t1.[#]+15000 =t2.[#]

Все срабатывает как надо. НО если я делаю так

SELECT t1.*, t2.*,  t3.*, t4.*  FROM (SELECT * FROM [Лист1$] WHERE [#] BETWEEN 1 and 15000) as t1
left join (SELECT * FROM [Лист1$] WHERE [#] BETWEEN 15001 and 30000) as t2 on t1.[#]+15000 =t2.[#] 
left join (SELECT * FROM [Лист1$] WHERE [#] BETWEEN 30001 and 45000) as t3 on t1.[#]+30000 =t3.[#]
left join (SELECT * FROM [Лист1$] WHERE [#] BETWEEN 45001 and 60000) as t4 on t1.[#]+45000 =t4.[#]

Выходит ошибка пропущен оператор (+15000 =t2.[#] ВОТ ТУТ left join)

[evg_m]

select ...
from ....
left join ...
left join ...
left join ...

Почти сработало.

возможно нужно "добавить" скобок.

select ...
from ( ....
       left join ( ....
                   left join ( ...
                                left join ....
                             )
                  )
     )

и быть может немножко поменять on-условия.
все t1.[#]+... заменить соответственно на
t1.[#]+15000 =t2.[#]
t2.[#]+15000 =t3.[#]
t3.[#]+15000 =t4.[#]
а может и так получится.

[Serega_SS]

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

а может и так получится.

Не получилось.
Пробовал оба способа.
все равно дает ошибку