Delphi + SQL + Excel

[nactyx]

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

Имеется вот такая программа:


Где осуществляется выбор мастера и выбор периода.
Далее, по SQL-запросу осуществляется некая выборка:

SELECT a, b, c, d, e, f, g
FROM [DB].[dbo].[Table]
where (OpenDate BETWEEN 'первая_дата'  AND 'вторая дата')
and ([Master] = 'выбранное_ФИО_мастера')

Первый вопрос: как в запросе использовать переменные? Чтобы брать значения с формы.

Второй вопрос: этот некий результат в определенном виде засунуть в EXCEL. Каким образом?
Например, чтобы в excel было так: первая строка - ФИО_ВЫБРАННОГО_МАСТЕРА
А со следующей строки вида a, b, c, d, e, f, g и т.д.

[Dvoishnik]

Работа с Excel
запрос с параметром

[Serge_Bliznykov]

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

http://programmersforum.ru/showthread.php?t=291080

http://programmersforum.ru/showthread.php?p=1589920

[evg_m]

ADO.SQL.Text:= 'SELECT a, b, c, d, e, f, g '+
                        'FROM [DB].[dbo].[Table] '+
                        'where (OpenDate BETWEEN :firstdate  AND :lastdate) '
                        'and ([Master] = :mastername) ';

ADO.ParameterByname('firstdate').Value:=DataTimePictireFirst.AsDate;
ADO.ParameterByname('lastdate').Value:=DataTimePictireLast.AsDate;
ADO.ParameterByname('mastername').Value:=ComboboxMasterList.Text;

Выгрузка в Excel внизу страницы смотри похожие темы

[nactyx]

Всем спасибо большое, вспомнил! С параметрами разобрался, всё чудесно. Сейчас с EXCEL будем разбираться.

[nactyx]

Связал с excel, всё чудно. Но есть один момент и не понимаю, как его реализовать.

Получаю я в результате своего запроса примерно такую таблицу:


А мне нужно в excel получить что-то примерно такого вида:


Я так понимаю нужно запрос усовершенствовать, но как это можно сделать? Или все-таки работать непосредственно с выводом в excel уже? Подскажите, коллеги.

Вывожу в excel вот таким образом (откопал старый проект):

  // Размеры выводимого массива данных
  ColCount := ADOQuery1.FieldCount;
  RowCount := ADOQuery1.RecordCount;

  if ADOQuery1.RecordCount = 0 then ShowMessage('Нет записей в таблице')
  else begin
    ArrayData := VarArrayCreate([0, ADOQuery1.RecordCount, 0, ADOQuery1.FieldCount], varVariant);
    for i := 0 to ADOQuery1.RecordCount - 1 do begin
      for  j := 0 to ADOQuery1.FieldCount - 1 do
         ArrayData[i, j] := ADOQuery1.Fields[j].AsVariant;
      ADOQuery1.Next;
    end;
  ADOQuery1.Close;

  // Левая верхняя ячейка области в которую будем выводить данные
  Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];
  // Правая нижняя
  Cell2 := WorkBook.WorkSheets[1].Cells[BeginRow  + RowCount - 1, BeginCol + ColCount - 1];

  // Область в которую будем выводить данные
  Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];

  // Сам вывод данных
  Range.Value := ArrayData;

  // Делаем Эксель видимым
  ExcelApp.Visible := true;
  end;

[nactyx]

Никто не подскажет?

[Dvoishnik]

я бы колдовал с выводом, сначала делал запрос на фамилию выводил первую потом по ней все данные затем следующую и Т.Д. в 2 запроса.

[nactyx]

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

я бы колдовал с выводом, сначала делал запрос на фамилию выводил первую потом по ней все данные затем следующую и Т.Д. в 2 запроса.

А конкретнее? Я понимаю, что надо колдовать с выводом, спасибо. А что конкретно?

[Serge_Bliznykov]

Или все-таки работать непосредственно с выводом в excel уже?

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

а в цикле вывода если фамилия не равна запомненной, то выводить на новую строчку фамилию и запоминать новую:

ADOQuery1.Open;
PrevFio := '######---previuous_FIO@@@@';
rownum:=0;
while not ADOQuery1.EOF do begin
   if ADOQuery1.FieldByName('FIO').AsString<>PrevFio then begin
     PrevFio:=ADOQuery1.FieldByName('FIO').AsString;
     Вывести в Excel в строку rownum фамилию PrevFIO
     Inc(rownum);
   end;
   Вывод значений в Excel в строчку rownum
   Inc(rownum);
   ADOQuery1.Next;
end;

вот примерно так...