Поговорим об ADO

[Roman N. Krivov]

Цитата:

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

Роман, у меня два вопроса:

1. Рекордсет создаете с учетом всех колонок, попадающих в область бланка? Т.е. у вас должно быть много фиктивных и немного содержательных - т.е. получается 16 содержательных где-то из 85 всего.
2. Как вставляете новые строки? Сразу всё необходимое кол-во перед исходной 19-й строкой? Потом дополнительно еще формат этой исходной распространяете на добавленные?

1. Рекордсет имеет поля под все столбцы, т.е. 16 значемых и 69 "резервных"
2. Строки добавляются скопом с помощью следующей функции:

   protected void insertRows(int _fromRow,
                   int _toRow,
                   int _fromWorkSheet = 1,
                   int _offset        = 1,
                   int _numOfCopies   = 1,
                   int _toWorkSheet   = 1)
   {
       COM         comRows,
                   comWorkSheet,
                   comRow, comRowTarget, selection;
       COMVariant  comRowVariant, selVariant;
       ;
   
       if (! _numOfCopies)
           return;
   
       if (! comDocument)
           throw error(strFmt("@DIS6401", "Excel.Application"));
   
       comRow = this.findRange(strFmt("%1:%2", _fromRow, _toRow));
       comRow.copy();
   
       comRowTarget = this.findRange(strFmt("%1:%2", _toRow+ _offset, _toRow+ _offset + _numOfCopies - 1));
       comRowTarget.select();
       comRowTarget.insert();
   
       comWorkSheet  = this.getWorkSheet(_toWorkSheet);
       comRows = comWorkSheet.cells();
       comRows = COM::createFromVariant(comRows.item(1));
       comRows.select();
       comExcelApplication.cutCopyMode(false);
   }

При копировании строк нарушается формат ячеек. Самое интересное, он нарушается только при копировании с помощью COM, так как написав тоже самое в VBA всё отлично

[Gustav]

Цитата:

Сообщение от Roman N. Krivov

При копировании строк нарушается формат ячеек. Самое интересное, он нарушается только при копировании с помощью COM, так как написав тоже самое в VBA всё отлично

Имеется в виду, что разъединяются объединенные ячейки? Тоже замечал такую вещь. Это бывает и в самом Excel, когда, например, вручную копируешь 1-ю строку в строки 1:5 - ячейки разваливаются и в копиях, и в оригинале, но если копировать 1-ю в 2:5 (казалось бы, конечное состояние должно быть одинаково при любом из этих способов - ан нет!) , то во всех пяти строках имеем нормальное объединение ячеек, как в оригинальной 1-й строке.

И как боретесь? В коде что-то отрабатывает или вручную? На картинке-то у вас вроде нормальный вид объединенных ячеек...

[Roman N. Krivov]

Цитата:

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

И как боретесь? В коде что-то отрабатывает или вручную? На картинке-то у вас вроде нормальный вид объединенных ячеек...

Всё очень просто: у нас таблица начинается в строк 19, следовательно встаем на эту строку, копируем её ADORecordSet.RecordCount() -1 раз и вставляем данные. Т.е.:

. . .
    wkss    = comDocument.Worksheets();
    wks     = wkss.Item(cvActiveWks);
    rng     = wks.Range(_bookmark); // _bookmark = "19:19"
    this.insertRows(rng.row(), rng.row() + 1, rstAxa.RecordCount() - 1);
    cell    = rng.Offset(0,0);
    cell.CopyFromRecordset(rstAxa);
. . .

protected void insertRows(int _fromRow,
                          int _toRow,
                          int _numOfCopies)
{
    COM         comRows,
                comWorkSheet,
                comRow, comRowTarget, selection;
    COMVariant  comRowVariant, selVariant;
    ;

    if (! _numOfCopies)
        return;

    if (! comDocument)
        throw error(strFmt("@DIS6401", "Excel.Application"));

    comRow = this.findRange(strFmt("%1:%2", _fromRow, _fromRow));
    comRow.copy();

    comRowTarget = this.findRange(strFmt("%1:%2", _toRow, _toRow + _numOfCopies - 1));
    comRowTarget.select();
    comRowTarget.insert(/*#xlShiftDown*/);

    comWorkSheet  = this.getWorkSheet(cvActiveWks);
    comRows = comWorkSheet.cells();
    comRows = COM::createFromVariant(comRows.item(1));
    comRows.select();
    comExcelApplication.cutCopyMode(false);
}

При этом сохраняется объединение ячеек. Но вот проблема с форматированием остаётся.

[Roman N. Krivov]

Первый эксперимент
Суть эксперимента
Взял шаблон, добавил в него 32 строки, установил форматы ячеек и убрал из года добавление новый строк. Запустил формирование отчёта для 7строк.

Результат
В ячейках вместо чисел стоит дата, например: 03.09.1903, вместо 1342,56

Второй эксперимент

Суть эксперимента
Запустил формирование отчета без шаблона.

Результат
В ячейках вместо чисел стоит дата, например: 03.09.1903, вместо 1342,56

[Gustav]

Цитата:

Сообщение от Roman N. Krivov

. . .
    rng     = wks.Range(_bookmark); // _bookmark = "19:19"
    this.insertRows(rng.row(), rng.row() + 1, rstAxa.RecordCount() - 1);
    cell    = rng.Offset(0,0);
    cell.CopyFromRecordset(rstAxa);
. . .

Тэк-с! А замените-ка:

    cell    = rng.Offset(0,0); // сейчас это целая строка 19
 
    cell    = rng.Resize(1,1); // а станет одиночная ячейка A19

Не полегчает ли?

[Roman N. Krivov]

Цитата:

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

Тэк-с! А замените-ка:

    cell    = rng.Offset(0,0); // сейчас это целая строка 19
 
    cell    = rng.Resize(1,1); // а станет одиночная ячейка A19

Не полегчает ли?

УРА !!!! ЗА-РА-БО-ТА-ЛО !!!!

[Gustav]

Цитата:

Сообщение от Roman N. Krivov

УРА !!!! ЗА-РА-БО-ТА-ЛО !!!!

Ох, ну, славно! Хотя по идее должно было работать и с полной строкой 19 (это я так... чисто эвристически делал предположение).

Всё-таки не совсем понятно, почему даже на пустом Excel происходило... Как-то у вас дата, похоже, крепко хваталась со второй колонки и не "отпускалась" до конца строки. Напоминает поведение типа anytype, когда он принимает тип первого присваивания...

А покажите цикл заполнения рекордсета? (на радостях)

[Roman N. Krivov]

Цитата:

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

Ох, ну, славно! Хотя по идее должно было работать и с полной строкой 19 (это я так... чисто эвристически делал предположение).

Я тоже думал что должно работать, однако ж не работает.

Цитата:

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

Всё-таки не совсем понятно, почему даже на пустом Excel происходило... Как-то у вас дата, похоже, крепко хваталась со второй колонки и не "отпускалась" до конца строки. Напоминает поведение типа anytype, когда он принимает тип первого присваивания...

А покажите цикл заполнения рекордсета? (на радостях)

    . . .     
    rstAxa.AddNew();
    for(i=1; i<=arrFields.lastIndex(); i++)
    {
        cv  = this.getValueVariant(conpeek(con, i));
        fld = flds.Item(i-1);
        fld.Value(cv);
    }
    rstAxa.Update();
    . . .

protected COMVariant getValueVariant(anytype _value)
{
    COMVariant ret;
    ;
    switch(typeof(_value))
    {
        case Types::Date :
            ret = COMVariant::createFromDateAndTime(_value, 0);
            break;
        case Types::Real :
            ret = COMVariant::createFromReal(_value);
            break;
        case Types::Integer :
            ret = COMVariant::createFromInt( _value);
            break;
        case Types::String :
        case Types::RString :
        case Types::VarString :
            ret = COMVariant::createFromStr( _value);
            break;
        default :
            callStack2infolog();
            throw error(strfmt(@"%1(): Не знаю, как преобразовать значение из типа %2 в %3",
                                funcname(), typeof(_value), classstr(COMVariant)));
    }
    return ret;
}

[Владимир Максимов]

Извиняюсь, что поднял старую тему, просто что-то поиском не нашел ответа на вроде бы очевидный вопрос, как при экспорте в Excel через RecordSet оставить ячейки не заполненными? Ну, например, если не указана дата, то в ячейке Excel должно быть пусто, а не 00.01.1900.

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

Суть сводится к тому, что соответствующее поле RecordSet должно содержать значение NULL на момент создания новой строки. Вообще-то, по умолчанию, при создании новой строки в RecordSet, если явно не указано значение, то и предпринимается попытка присвоить значение NULL. Однако, опять же по умолчанию, поле RecordSet создается с невозможностью принимать значение NULL и, как следствие, присваивает "пустое" значение

Допустимость использования значения NULL задается 4 параметром в методе Fields.Append(). 3 параметр - это размерность поля в байтах. Есть еще 5 параметр - значение по умолчанию, но практического смысла в данном случае 5 параметр не имеет.

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

static void Job_ADORecordSet2Excel_EmptyCells(Args _args)
{
    Com comRecordSet;
    Com comFields;
    Com comField;

    ComExcelDocument_RU excel;
    Com                 comRange;
    ;

    #define.adFldIsNullable(32)  // Поле может принимать значение NULL
    #define.adFldMayBeNull(64) // Из поля можно прочитать значение NULL

    comRecordSet = new COM('ADODB.Recordset');
    // формируем структуру Recordset
    // где каждое поле может принимать значение NULL
    comFields = comRecordSet.Fields();
    comFields.Append("FieldStr",    COMVariantType::VT_BSTR,    50, #adFldIsNullable + #adFldMayBeNull);
    comFields.Append("FieldReal",   COMVariantType::VT_R8,      8,  #adFldIsNullable + #adFldMayBeNull);
    // Если нужна только даты без части со временем, то следует указать значение 133
    // Такого значения нет в Base Enum с именем COMVariantType
    comFields.Append("FieldDate",   COMVariantType::VT_DATE,    8,  #adFldIsNullable + #adFldMayBeNull);

    // Открываем RecordSet для заполнения
    comRecordSet.open();

    // Формируем первую строку
    comRecordSet.AddNew();

    // Наполняем ее данными для сравнения
    comField = comFields.Item("FieldStr");
    comField.value(comVariant::createFromStr("Первая строка"));

    comField = comFields.Item("FieldReal");
    comField.value(comVariant::createFromReal(123.456));

    comField = comFields.Item("FieldDate");
    comField.value(comVariant::createFromDate(systemDateGet()));

    // Формируем вторую строку
    // В которой нет никаких данных. Ячейки будут пустыми
    comRecordSet.AddNew();

    // Формируем третью строку
    comRecordSet.AddNew();

    // Наполняем ее данными для сравнения
    comField = comFields.Item("FieldStr");
    comField.value(comVariant::createFromStr("Третья строка"));

    comField = comFields.Item("FieldReal");
    comField.value(comVariant::createFromReal(789.012));

    comField = comFields.Item("FieldDate");
    comField.value(comVariant::createFromDate(systemDateGet()+2));

    // Открываем Excel с пустым листом и сразу делаем его видимым
    excel = new ComExcelDocument_RU();
    excel.newFile("",true);

    // Определяем ячейку, откуда будет осуществляться вывод
    comRange = excel.findRange("A1");

    // Выводим данные
    comRange.CopyFromRecordset(comRecordSet);

}

Собственно, это все работает, если ничего не вводить в поле RecordSet. Но, к сожалению не нашел, а как записать в поле RecordSet значение null ? Единственный, не очень хороший вариант - это присвоение исходного (оригинального) значения, исходя из предположения, что это значение NULL

    comField = comFields.Item("FieldDate");
    comField.value(comField.OriginalValue());

[AndyD]

Например, так

    ComVariant var;
...
    var = new ComVariant(COMVariantInOut::In_out, ComVariantType::VT_BOOL);
    var.variantType(ComVariantType::VT_NULL);
    comField.value(var);
...

Тип создаваемого ComVariant может быть любым. Напрямую VT_NULL в конструкторе можно задать, но создается переменная с типом VT_EMPTY. По-этому, нужен дополнительный вызов

[refined]

У меня такой вопрос возник. Вроде по теме.

После сбора данных из нескольких таблиц в ADODB.Recordset мне нужно вывести их форму на grid, чтобы потом можно было их просмотреть/редактировать в самой DAX. Как это можно сделать?
Ну естественно напрашивается вариант со временной таблицей, ну а будет ли это быстро? И как вообще ее заполнять?

[Gustav]

Цитата:

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

После сбора данных из нескольких таблиц в ADODB.Recordset мне нужно вывести их форму на grid, чтобы потом можно было их просмотреть/редактировать в самой DAX. Как это можно сделать?

Если не зацикливаться на grid'е, то можно посадить на форму ActiveX OWC Spreadsheet и в нем смотреть/редактировать. Spreadsheet поддерживает метод CopyFromRecordset.

[refined]

Я об этом как раз подумал. Но я к сожалению недавно с Axapta знаком. Как вывести значение на форму? Скажем rstAxa (это сам рекордсет).
Уточню вопрос, допустим я делаю

    ExcelSheet = tabExcelSheet.addControl(formControlType::ActiveX, "ExcelSheet");

что дальше то?

[Gustav]

Цитата:

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

Я об этом как раз подумал. Но я к сожалению недавно с Axapta знаком. Как вывести значение на форму? Скажем rstAxa (это сам рекордсет).
Уточню вопрос, допустим я делаю

    ExcelSheet = tabExcelSheet.addControl(formControlType::ActiveX, "ExcelSheet");

что дальше то?

Вам надо сначала посадить ActiveX на форму, а потом населить его данными (CopyFromRecordset). Как посадить этот контрол в диалоговую форму, можно примерно посмотреть здесь: Использование OWC Spreadsheet в диалоге или здесь: Табличный процессор

Но лучше помещать на нормальную форму, сохраненную в AOT (не диалог) - тогда можно будет воспользоваться его событиями. В диалоге же это не получается: События FormActiveXControl не получается использовать в диалоге

[refined]

Да, я как раз пытаюсь через нормальную форму. Я делаю следующим образом:

  reportEngine = element.args().caller();

    super();    
    ExcelSheet = tabExcelSheet.addControl(formControlType::ActiveX, "ExcelSheet");
    ExcelSheet.widthMode(formwidth::ColumnWidth);
    ExcelSheet.heightMode(formHeight::ColumnHeight);
    ExcelSheet.CopyFromRecordset(reportEngine.recordset());

где reportEngine.recordset() это:

COM recordset()
{
    ;
    return rstAxa;
}

но почему-то вываливается ошибка Unable to call method on activeX, wait until object is fully initialized
Всё, я уже разобрался. Добавил еще строчек кода из http://axforum.info/forums/blog.php?b=26
Просто забыл код закомментировать.

[Gustav]

ExcelSheet это FormActiveXControl? Конечно, у него такого метода нет. Метод есть у Range. Надо перейти к нему как-то так:

    COM range;

    range = ExcelSheet.Range("A1");
    range.CopyFromRecordset(...);

Кстати, ExcelSheet у вас точно Spreadsheet? Есть в коде что-то типа такого?:

    ExcelSheet = tabExcelSheet.addControl(formControlType::ActiveX, "ExcelSheet");

    ExcelSheet.className('{0002E541-0000-0000-C000-000000000046}');     // Microsoft Office Spreadsheet 10.0

По моим ссылкам, вроде, всё это расписано...

P.S. ОК! Хорошо, что разобрались.

[refined]

В итоге оказалось, что намного проще сделать вывод не сразу в эксель а просто в форму. И в ней сразу делать сводную таблицу.
Так вот у меня с ней как раз и проблема. Она не отрабатывает как Сводная. Как сделать так чтобы при перетаскивании столбцов, они *схлопывались* автоматически? т.е. осуществлялась группировка по полю (одному, двум). Ну и соответсвенно если это число то выводилась сумма?

И так, вот сам метод выполняемый на форме:
PivotTable = grpPivotTableHolder.addControl(formControlType::ActiveX, "PivotTable");

    className = CCUtil::getOfficePivotTableVersion(true);
    PivotTable.className(className);
    PivotTable.WidthMode(formwidth::ColumnWidth);
    PivotTable.HeightMode(formHeight::ColumnHeight);
    PivotTable.allowFiltering(true);
    PivotTable.AllowGrouping(true);
    PivotTable.DataSource(reportEngine.ADORecordset());

где grpPivotTableHolder собственно сама вкладка на форме.
Смысл в том чтобы не использовать временную таблицу.

[Отшельник]

Господа. Прошу помочь разобраться с этим ADO.
Делаю джоб (самый первый пример из этой темы). Все отрабатывает.
Пытаюсь воспользоваться этим же кодом в Классе, отчете....
во время запуска выдает ошибку на строке

rstAxa = new COM('ADODB.Recordset');

пишет "Объект "COM" не может быть создан"

Почему один и тот же код не работает в отчете, классе?

Цитата:

static void Job_TestADO_2(Args _args)
{
// ----------------------------------------------------------------------------
// ADODB.Recordset в оперативной памяти без привязки к источнику данных
// ----------------------------------------------------------------------------
EmplTable emplTable;
COM rstAxa; // ADO: Recordset
COM flds, fld; // ADO: Fields, Field
COM xlApp; // Excel.Application
COM wbks, wbk; // Workbooks, Workbook
COM wkss, wks; // Worksheets, Worksheet
COM rng, cell, rngCR; // все Range
COM font; // Range.Font
COM entCol; // Range.EntireColumn
COM actWin; // Excel.Application.ActiveWindow
int i, iMax;
// ============================================================================
// СНАЧАЛА ВЛОЖЕННАЯ ФУНКЦИЯ
// ----------------------------------------------------------------------------
// функция для задания типа поля нашего Recordset-а в оперативной памяти
// в данном демо-джобе используется для наглядности
// для простоты используем всего 3 типа данных: число, строка и дата
int adoTypeToExcel(str _type)
{
switch (_type)
{
// используются значения констант перечисления DateTypeEnum из топика TypeProperty (ADO)
// (см. справку по ADO в файле ADO210.CHM - можно поискать на своем компе)
case 'num' : return 5; // adDouble
case 'str' : return 8; // adBSTR
case 'date': return 133; // adDBDate
}
return 8;
}
// ============================================================================
// ТЕПЕРЬ ОСНОВНОЙ ПРОЦЕСС
// Recordset создается в оперативной памяти - без Connection!
rstAxa = new COM('ADODB.Recordset');

[S.Kuskov]

Цитата:

Сообщение от Отшельник

Почему один и тот же код не работает в отчете, классе?

Возможно в одном случае код выполняется на клиенте, а в другом случае - на сервере. И, например, в одном месте компонент (excel) установлен, а в другом - нет.

[Отшельник]

S.Kuskov - Сори за молчание.
Спасибо за помощь. К вечеру уже не соображал .

Лишний раз убедился, что труд из человека делает обезьяну