Delphi + SQL + Excel

[nactyx]

Будем пробовать. Спасибо большое! Принцип похожий как и в случае с фамилиями, если я правильно понял.

[Serge_Bliznykov]

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

Принцип похожий как и в случае с фамилиями, если я правильно понял.

ну да, можно решить данную задачу аналогично предыдущей.

Но можно было и по другому.
Например, получить отдельным запросом все нужные даты, потом в цикле выбирать данные за один день (запрос с параметром).
Просто смотрите, как Вам лично проще и понятней.

[nactyx]

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

Но можно было и по другому.
Например, получить отдельным запросом все нужные даты, потом в цикле выбирать данные за один день (запрос с параметром).
Просто смотрите, как Вам лично проще и понятней.

Такой вариант кажется проще и понятней, если честно. Надо поэкспериментировать.

[Serge_Bliznykov]

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

Такой вариант кажется проще и понятней, если честно. Надо поэкспериментировать.

Так всё в ваших руках. Пробуйте. Экспериментируйте.
Выбирайте лучшее.

[nactyx]

Не могу понять, почему зацикливается. Хочу в качестве теста заполнить массив для вывода только по одной конкретной дате. И на первых двух зацикливается.

  while not ADOQuery1.EOF do begin
    if ADOQuery1.FieldByName('Date').AsString = '24.03.2016' then
  begin
    if ADOQuery1.FieldByName('a').AsString <> PrevFio then begin
     PrevFio := ADOQuery1.FieldByName('a').AsString;
     sg[x,0] := PrevFio;
     Inc(x);
    end;
    sg[x,1] := ADOQuery1.FieldByName('b').AsString;
    sg[x,2] := ADOQuery1.FieldByName('c').AsString;
    sg[x,3] := ADOQuery1.FieldByName('d').AsString;
    sg[x,4] := ADOQuery1.FieldByName('e').AsString;
    sg[x,5] := ADOQuery1.FieldByName('f').AsString;
    sg[x,6] := ADOQuery1.FieldByName('g').AsString;
    sg[x,7] := Copy(ADOQuery1.FieldByName('Date').AsString, 1, 10);
    Inc(x);
    ADOQuery1.Next;
  end;
  end;

Запрос:

SELECT a, b, c, d, e, f, g, Date
  FROM dbo.table
  where (Date BETWEEN '01.03.2016'  AND '31.03.2016')
  and ([Master] = 'Иванов Петр Сидорович')
  order by Date, a

ADOQuery1 выглядит так после запроса:

[Serge_Bliznykov]

 if ADOQuery1.FieldByName('Date').AsString = '24.03.2016'

а вот сразу НЕТ!
приучайте себя, пожалуйста, что переводить дату в строковый вид нужно (если без этого нельзя обойтись) ТОЛЬКО для вывода это даты (в отчёт, на экран, в лейбл и т.п.)! Внутри надо работать только с типом данных TDateTime


p.s. а зацикливается, потому что Вы ADOQuery1.Next;
поместили в блок, где выполняется код при выполнении условия (проверки).
Подумайте, сколько раз выполнится цикл, в котором условие входа в блок не выполняется. а переход на следующую запись внутри этого блока!

[nactyx]

Так вот он дальше этих двух строк не идет, хотя должен. Или меня совсем глючит.
Ну вот на первом же шаге дата совпала, далее мне нужно заполнить массив. А он дальше и не идет, хотя результат сравнения True.

Про строковый вид учту.

Upd: Вынес ADOQuery1.Next; на "уровень" выше, отработало. Но результат пустой почему-то теперь стал.

[Serge_Bliznykov]

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

ну, этот код будет выглядеть примерно так:

ADOQueryAllDates.Close;
ADOQueryAllDates.SQL.Text := 'select MyDate from table1 where ... group by MyDate';
ADOQueryAllDates.Open;
while Not ADOQueryAllDates.EOF do begin
   dt := ADOQueryAllDates.FieldByName('MyDate').AsDateTime;
   
   // создать нужную страницу в Excel с именем = даты, взятой из dt
   .....
   
   // выполняем параметрический запрос
   ADOQuery2.Close;
   ADOQuery2.ParamByName('dt').Value := dt;
   ADOQuery2.Open;
   while Not ADOQuery2.EOF do begin
      заполняем массив данными из ADOQuery2
 
     ADOQuery2.Next;
   end;

  // вывести полученный массив на страницу Excel
  .......

  ADOQueryAllDates.Next;
end;

[nactyx]

Сделал так:

while not ADOQuery1.EOF do begin
    if ADOQuery1.FieldByName('Date').AsString = '24.03.2016' then
  begin
    if ADOQuery1.FieldByName('a').AsString <> PrevFio then begin
     PrevFio := ADOQuery1.FieldByName('a').AsString;
     sg[x,0] := PrevFio;
     Inc(x);
    end;
    sg[x,1] := ADOQuery1.FieldByName('b').AsString;
    sg[x,2] := ADOQuery1.FieldByName('c').AsString;
    sg[x,3] := ADOQuery1.FieldByName('d').AsString;
    sg[x,4] := ADOQuery1.FieldByName('e').AsString;
    sg[x,5] := ADOQuery1.FieldByName('f').AsString;
    sg[x,6] := ADOQuery1.FieldByName('g').AsString;
    sg[x,7] := Copy(ADOQuery1.FieldByName('Date').AsString, 1, 10);
    Inc(x);
  end;
    ADOQuery1.Next;
  end;

И получается хрень. Отрабатывают судя по всему только две первые строки и две последние.

[nactyx]

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

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

Попробую. Пока плохо понимаю, если честно.