Проблемы с ADO

[kashperuk]

Цитата:

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

1. MAXSCANROWS при использовании из Аксапты у меня не почему-то не заработал (т.е. всегда всё определяли первые 8 строк)

Спасибо. Очень интересное и познавательное исследование.

А ты не пробовал менять значение TypeGuessRows в HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Excel?

Интересно было бы узнать, какой тип получается для разных значений этого ключа, в частности для значения 0?

[Gustav]

Цитата:

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

А ты не пробовал менять значение TypeGuessRows в HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Excel?

Идя навстречу пожеланиям Ивана, полез в Registry
Алгоритм "залезания" такой (цитирую отсюда):

Цитата:

WARNING: If you use Registry Editor incorrectly, you may cause serious problems that may require you to reinstall your operating system. Microsoft cannot guarantee that you can solve problems that result from using Registry Editor incorrectly. Use Registry Editor at your own risk.

To change the value of TypeGuessRows, use these steps:
1. On the Start menu, click Run. In the Run dialog box, type Regedt32, and then click OK.
2. Open the following key in the Registry editor:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Excel
3. Double-click TypeGuessRows.
4. In the DWORD editor dialog box, click Decimal under Base. Type a value between 0 and 16, inclusive, for Value data.
5. Click OK, and then exit the Registry Editor.

ВАЖНО: Нужно быть админом на машине, где вы меняете это значение TypeGuessRows. В противном случае при попытке изменить дефолтное значение "8" на другое вы получите сообщение вида "Cannot edit TypeGuessRows: Error writing the value's new contents"

Так вот, через Registry - РАБОТАЕТ! Freeangel, измените у себя на "3" (по количеству ваших трёх первых текстовых значений) и должно вам выйти счастье

По ходу наткнулся на большое хорошее обсуждение (блог) по смешанным типам данных
http://www.dailydoseofexcel.com/arch...ed-data-types/

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

Цитата:

although it is mentioned in MSDN articles that MAXSCANROWS can be used in the extended properties of the connection string to override the TypeGuessRows registry keys, this seems to be a fallacy. Using MAXSCANROWS=0 in this way never does anything under any circumstances.

[kashperuk]

Цитата:

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

Идя навстречу пожеланиям Ивана, полез в Registry
Алгоритм "залезания" такой (цитирую отсюда):
ВАЖНО: Нужно быть админом на машине, где вы меняете это значение TypeGuessRows. В противном случае при попытке изменить дефолтное значение "8" на другое вы получите сообщение вида "Cannot edit TypeGuessRows: Error writing the value's new contents"

Так вот, через Registry - РАБОТАЕТ! Freeangel, измените у себя на "3" (по количеству ваших трёх первых текстовых значений) и должно вам выйти счастье

Вот небольшой job для авто изменения этого ключа.
Я не знаю, где еще используется значение этого ключа, поэтому не хотелось бы рисковать лишний раз, изменяя его перманентно.
Поэтому советую вставить вот этот код перед импортом. А потом такой же после, меняя значение назад.

Единственное, что смущает - это необходимые права на изменение ключей реестра.

static void changeRegTypeGuessRows(Args _args)
{
    #winapi
    #define.ExcelJetEnginePath('SOFTWARE\\Microsoft\\Jet\\4.0\\Engines\\Excel\\')
    container   res;
    int         regHandle;
    int         newValue = 8;
    ;
    regHandle = winapi::regOpenKey(#HKEY_LOCAL_MACHINE, #ExcelJetEnginePath, #KEY_QUERY_VALUE);
    if (regHandle)
        res = winapi::regGetValue(regHandle, 'TypeGuessRows');
    if (res)
        info(strFmt("Old Value %1", con2str(res, '\n')));
    regHandle = winapi::regOpenKey(#HKEY_LOCAL_MACHINE, #ExcelJetEnginePath, #KEY_SET_VALUE);
    if (regHandle)
        info(strFmt("Result code of changing value of TypeGuessRows to %2 is %1",
            winapi::regSetValueEx(regHandle, 'TypeGuessRows', #REG_DWORD, newValue), newValue));
    regHandle = winapi::regOpenKey(#HKEY_LOCAL_MACHINE, #ExcelJetEnginePath, #KEY_QUERY_VALUE);
    if (regHandle)
        res = winapi::regGetValue(regHandle, 'TypeGuessRows');
    if (res)
        info(strFmt("New Value %1", con2str(res, '\n')));
}