Delphi + SQL + Excel

[nactyx]

Serge_Bliznykov, спасибо, буду пробовать!

в запросе нужно добавить Order By Фамилия

Этот момент обязателен? Если да - то поясните, пожалуйста, зачем.

[nactyx]

Пока курил понял, что сортировка обязательна

[nactyx]

Сделал вот так:

  PrevFio := '';
  x:=1;
  while not ADOQuery1.EOF do begin
    if ADOQuery1.FieldByName('a').AsString<>PrevFio then begin
     PrevFio := ADOQuery1.FieldByName('a').AsString;
     sg[x,1] := 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;
    Inc(x);
    ADOQuery1.Next;
  end;

  for i:=1 to StringGrid1.RowCount do
for j:=1 to StringGrid1.ColCount do
StringGrid1.Cells[i,j]:=sg[j,i];

Хотел посмотреть в стрингриде сперва что получится, прежде чем выводить в эксель. Ошибка выскакивает на этой строке:

sg[x,1] := PrevFio;

Что я делаю не так?

Объявил массив таким образом:

sg: array of array of string;

[Serge_Bliznykov]

Что я делаю не так?

рискну предположить, что забываете выделить память (динамические массивы нужно обязательно задавать размер перед использованием см. SetLength)
// и, кстати, индексация там от нуля

[nactyx]

Да, плюс еще как обычно была мутотня с тем, что в стринггриде [столбец, строка], а не как у людей :D

Такой вопрос тебе: если в изначальном варианте я конкретно знал сколько будет строк в массиве и сколько будет столбцом. Теперь же я знаю только количество столбцов. Как динамически выделять память что ли или по-другому как с этим работать?

[Dvoishnik]

ADOQuery1.RecordCount?

[Serge_Bliznykov]

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

ADOQuery1.RecordCount?

не, на каждую НОВУЮ фамилию надо новую строку.

nactyx, либо сделайте ещё один запрос, который возвращает количество различных фамилий,
либо пройдитесь первый раз, просто подсчитайте, сколько разных фамилий в вашем датасете,
либо, при появлении каждой новой фамилии увеличивайте размер на единицу (кстати, последний вариант самый не эффективный, несмотря на простоту).

[nactyx]

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

nactyx, либо сделайте ещё один запрос, который возвращает количество различных фамилий

Кажется оптимальным вариантом. И потом к этому числу прибавить число записей в первоначальном запросе. Я правильно понял?

[nactyx]

А теперь самое последнее осталось:
как сделать вывод таким образом, что на каждые сутки из периода - создавалась в экселе новая страничка с названием вида "ДД.ММ.ГГГГ" и с записями, которые принадлежат этому числу. В котором месте и что примерно надо исправлять в выводе?

[Serge_Bliznykov]

создавалась в экселе новая страничка

гуглите по WorkSheets.Add
пример:

Sheet:=XL.ActiveWorkbook.WorkSheets.Add;

и с записями, которые принадлежат этому числу. В котором месте и что примерно надо исправлять в выводе?

добавить в запрос нужное поле с датой.
добавить в запрос сортировку сначала по дате, потом по фамилии

... ORDER BY MyDate, FIO

дальше можно по разному действовать.
можно, например, примерно так:

ADOQuery1.Open; 
PrevDate := 0;
Массив обнулить.
while Not ADOQuery1.EOF do begin 
   if ADOQuery1.FieldByName('MyDate').AsDateTime<>PrevDate then begin
        <если массив с данными не пуст - вывести его в текущую страницу MS Excel>
        PrevDate := ADOQuery1.FieldByName('MyDate').AsDateTime; 
        создать новую страницу в MS Excel с именем PrevDate
        Обнулить массив и выделить нужную память под массив 
        PrevFio := '';
        x:=1;
   end;
   
   далее работаем с данной новой страницей
   if ADOQuery1.FieldByName('a').AsString<>PrevFio then begin
     PrevFio := ADOQuery1.FieldByName('a').AsString;
     sg[x,1] := PrevFio;
     Inc(x);
   end;
    
   <заполнение массива данными>
   ADOQuery1.Next;
end;  
 
<если массив с данными не пуст - вывести его в текущую страницу MS Excel>