Класс ODBCConnection

[6apcyk]

Этот и ряд других Axapta'их класса, которые позволяют отправлять произвольный SQL-запрос и соответственно получать ответ.

Он вроде как работает в несколько раз быстрее (проверено только при сложных запросах) .

У меня вопрос какие имеются подводные камни, если в отчетах для ускорения их работы использовать такие классы???

[NeveB]

Подводных камней замечено не было. Порой - это единственное решение для быстрого построения сложных отчетов из Аксапты.

[sukhanchik]

Из моих наблюдений ...
Что неудобно / нужно помнить
1. При конструировании запроса нельзя забывать добавлять условие фильтрации компании (Аксапта ведь сама в X++ автоматически добавляет это условие). Если в системе используются виртуальные компании, то в этом случае в определенных таблицах поле dataareaid будет в себе содержать не идентификатор текущей компании, а идентификатор виртуальной компании. Конечно об этом нужно помнить только при построении запросов внутри одной компании.

2. Имя поля/таблицы в AOT вообще говоря отличается от соответствующих имен в БД. Правда это касается только таблиц/полей с именем, длиннее 30 символов (в частности у MS SQL Server) - однако такие названия встречаются.
В этом случае корректнее будет за каждым названием лезть в табличку SQLDictionary - которая хранит соответствие название в АОТ названиям в БД.

3. Считать поле результата выборки (это класс ResultSet) можно только один раз и только по возрастанию порядка следования. Т.е. после считывания поля3 - поля1, 2 и 3 считать уже нельзя. Плюс возможность передвижения по курсору только вперед. Сюда же можно отнести невозможность при считывании данных обращаться по имени а не по номеру поля.

4. Ну и наконец любимая заморочка с датами. Если класс исполняется на клиенте и региональные настройки клиента отличаются от региональных настроек сервера - то для даты метод getString не прокатит - тк с точки зрения сервера это дата, однако метод getDate также не прокатит - т.к. он не сможет преобразовать серверную дату в клиентскую.

Если это возможно (в Вашем случае) - я бы порекомендовал подключение через ADO. (Классы ссADO*). При их использовании пункты 3 и 4 устраняются.

[AndyD]

Цитата:

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

2. Имя поля/таблицы в AOT вообще говоря отличается от соответствующих имен в БД. Правда это касается только таблиц/полей с именем, длиннее 30 символов (в частности у MS SQL Server) - однако такие названия встречаются.
В этом случае корректнее будет за каждым названием лезть в табличку SQLDictionary - которая хранит соответствие название в АОТ названиям в БД.

Имена таблиц и полей в б/д можно доставать с помощью классов DictTable и DictField

dictTable.name(DbBackend::Sql);
dictTable.fieldName(fieldnum(...), DbBackend::Sql);
dictField.name(DbBackend::Sql);

[Gustav]

Цитата:

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

Если это возможно (в Вашем случае) - я бы порекомендовал подключение через ADO. (Классы ссADO*).

Ползая по Сети, наткнулся на приятный материал:

"Примеры подключения различных Баз Данных через ADO" (в том числе через драйверы ODBC)
http://www.webmasterpro.com.ua/news339.html

Цитата:

Данный материал содержит примеры создания строк ADO connection для различных типов часто используемых Баз Данных, например: ODBC DSN, ODBC DSN-Less, OLE DB Provider, MS Remote, Oracle, Excel, FoxPro и т.д.

Среди прочего интересного говорится о том, что к Excel можно достучаться по ADO посредством "аксесного" провайдера Microsoft.Jet.OLEDB:

Цитата:

Примечание: You can also open an Excel spreadsheet using the "OLE DB Provider for Microsoft Jet"
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=somepathexpenses.xls;" & _
"Extended Properties=""Excel 8.0;HDR=Yes;"";"
Where "HDR=Yes" means that there is a header row in the cell range
(or named range), so the provider will not include the first row of the
selection into the recordset. If "HDR=No", then the provider will include
the first row of the cell range (or named ranged) into the recordset.

а также о том, как организовать доступ к защищенной базе Access (приводится следующая ссылка на Microsoft):

"How To Open a Secured Access Database in ADO Through OLE DB"
http://support.microsoft.com/kb/q191754/

P.S.
Если кто-то будет играться с темой "ADO+Excel", то вот в дополнение крайне полезная ссылка на ветку "Быстрый Excel":
http://www.axforum.info/forums/showt...2677#post22677 ,

в которой упоминается тема "How To Use ADO with Excel Data from Visual Basic or VBA":
http://support.microsoft.com/kb/q257819/

[Gustav]

Цитата:

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

4. Ну и наконец любимая заморочка с датами. Если класс исполняется на клиенте и региональные настройки клиента отличаются от региональных настроек сервера - то для даты метод getString не прокатит - тк с точки зрения сервера это дата, однако метод getDate также не прокатит - т.к. он не сможет преобразовать серверную дату в клиентскую.

Пришлось неприятно столкнуться с getDate. Разрулил ситуацию использованием преобразования даты в строку в самом SQL-запросе и далее обратным преобразованием уже в Аксапте. Для Oracle выглядит примерно так:

    Statement S;
    ResultSet resultSet;
    TransDate tDate;
    ......

    resultSet = S.executeQuery(
        "SELECT TO_CHAR(TransDate, 'DD.MM.YYYY') AS td FROM Table1");

    while (resultSet.next())
    {
        tDate = str2date(resultSet.getString(1), 123);
        ......
    }

[sukhanchik]

2AndyD: Ваш вариант более правильный - когда нужно строить запросы по БД текущего приложения (собственно говоря - в этой ветке так и спрашивалось).
Опираться на табличку SQLDictionary рекомендуется только в том случае - когда выборка идет из БД другого приложения Аксапты. (Очевидно - что просто в этом случае классы Dict* не помогут)
Спасибо за замечание. Поблагодарить увы - не могу ибо последнее одобрение было направлено Вам.

26apcyk: Пункт 2 в моем перечне следует заменить на информацию от AndyD

[Sada]

Нельзя ли выложить какой нибудь рабочий джобик, чтоб просто в ячейку А1 выгружал какое-либо значение. Просто ниразу пока что не сталкивался с ODBC но очень хочется разобраться...

[AndyD]

Вот

static void ODBCConnection2Excel(Args _args)
{
    LoginProperty           LP          = new LoginProperty();
    OdbcConnection          myConnection;
    Statement               myStatement;
    ResultSet               myResult;
    DictTable               dictTable   = new DictTable(tableNum(InventTable));
    ComExcelDocument_Ru     Excel       = new ComExcelDocument_Ru();
    Com                     Doc;
    Com                     App;
    Com                     Worksheet;
    Com                     Range;
    int                     i = 1;
    ;
    Excel.newFile("", false);
    doc = Excel.getComDocument();
    App = doc.Application();
    Worksheet = App.ActiveSheet();

    LP.setDSN("Axapta");
/*    LP.setUsername("");       // Если необходимо - устанавливаем имя и пароль для подключения
    LP.setPassword("");*/
    try    
    {        
        myConnection = new OdbcConnection(LP);    
    }    
    catch    
    {        
        info("Check username/password.");        
        return;    
    }
    myStatement = myConnection.createStatement();
    myResult = myStatement.executeQuery(
        strfmt("SELECT %3, %4 FROM %1 WHERE DataAreaId = '%2'",
            dictTable.name(DBBackend::Sql), curext(), 
            dictTable.fieldName(fieldnum(InventTable, ItemId), DBBackend::Sql),
            dictTable.fieldName(fieldnum(InventTable, ItemName), DBBackend::Sql)));


    Range = Worksheet.Range("A1");
    Range.NumberFormat("@");
    Range.Value2(dictTable.fieldObject(fieldnum(InventTable, ItemId)).label());

    Range = Worksheet.Range("B1");
    Range.NumberFormat("@");
    Range.Value2(dictTable.fieldObject(fieldnum(InventTable, ItemName)).label());

    while (myResult.next())
    {
        Range = Worksheet.Range(ComExcelDocument_Ru::numToNameCell(1, i+1));
        Range.NumberFormat("@");
        Range.Value2(myResult.getString(1));

        Range = Worksheet.Range(ComExcelDocument_Ru::numToNameCell(2, i+1));
        Range.NumberFormat("@");
        Range.Value2(myResult.getString(2));

        if (i > 100) break;
        i++;
    }
    Range = Worksheet.Range("A1", "B1");
    Range = Range.EntireColumn();
    Range.AutoFit();

    Excel.visible(true);
}

[Sada]

2AndyD
Спасибо большое!
С уважением - Sada...

[sukhanchik]

Строки ADO легко генерить, создав файлик *.udl и 2 раза по нему щелкнув. Откроется некое окошко - конструктор строк подключения. Результаты работы конструктора сохранятся в тектовом виде в файлике (кстати вместо строки подключения можно задавать путь к этому файлику).
Правда есть одно но. В любимом нами драйвере Jet указаны только параметры подключения к аксессной базе. Однако - достучаться вообще говоря можно также к Excel, DBF, DB (полный список можно увидеть - при попытке в Access (.mdb) прилинковать табличку. Jet ведь вырос ногами из DAO - а там на строку подключения легко глянуть - заглянув в хелп аксессный по свойству Connect у объекта TableDef (можно даже русский, по Access 97).
Другое дело, что Extended Parameters очевидно там (аксессном хелпе) не описаны. И за их нарытие - Вам спасибо.