Показать сообщение отдельно
Старый 27.11.2009, 11:56   #8  
LMA is offline
LMA
Участник
 
22 / 16 (1) ++
Регистрация: 16.09.2004
Адрес: Воронеж
Вот так работает. Только BDE установите там, откуда запрашиваете данные.
X++:
static void Job318(Args _args)
{
    #CCADO
    #DEFINE.TIMEOUT (5)
    int                 id;
    str                 sql = 'SELECT max(pLogData.Num) FROM pLogData';
    FilePath            basePath = @'C:\orion03\baseproba';

    TempStr             connectionString;
    CCADOConnection     ccADOConnection;
    CCADORecordSet      ccADORecordSet;
;
    connectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + 
                       basePath +
                       ';Extended Properties=Paradox 5.x;';

    ccADOConnection = new CCADOConnection();
    ccADOConnection.open(connectionString);

    ccADOConnection.CommandTimeout(#TIMEOUT);

    if (ccADOConnection)
    {
        ccADORecordSet    = new ccADORecordSet();
        ccADORecordSet.cursorLocation(#adUseServer);
        try
        {
            ccADORecordSet.open( sql, ccADOConnection, #adOpenStatic, #adLockReadOnly, #adCmdText);

            id   = ccADORecordSet.fields().itemIdx(0).value();
            info(strfmt('%1', id));
        }
        catch (exception::Error)
        {
            throw error("Невозможно прочитать файл внешней базы данных");
        }
    }
    else
    {
        throw error('Нет соединения');
    }
}