Проблемы с ADO

[Freeangel]

Спасибо. Вернусь варианту чтения через буфер

[Gustav]

Зачем так рано сдаваться-то?

Обнаружил два способа борьбы:
1. добавить во фрагмент ConnectionString "Extended Properties='Excel 8.0;HDR=Yes'" подстроку "IMEX=1", чтобы получилось "Extended Properties='Excel 8.0;HDR=Yes;IMEX=1'" (при этом как минимум одно из первых 8 значений должно быть текстом)
2. добавить ведущий апостроф (известный способ в Excel) в те ячейки первых 8 строк, которые выглядят как числовые ( 150300 => '150300 )

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

2. тип данных в конкретном поле ADO определяет по значениям в первых 8 строках (даже при MAXSCANROWS=1 и при MAXSCANROWS=16; и даже при MAXSCANROWS=0, когда по идее должны сканироваться все записи таблицы)
2.1. если в первых 8 строках 5 текстовых значений и 3 числовых, то тип поля принимается как ТЕКСТ
2.2. если в первых 8 строках 3 текстовых значений и 5 числовых, то тип поля принимается как ЧИСЛО
2.1. если в первых 8 строках 4 текстовых значений и 4 числовых, то тип поля принимается как ЧИСЛО

3. Если добавить параметр IMEX=1, то (опять-таки всё определяется по первым 8 строкам):
3.1. Если в первых 8 строках есть хотя бы одно текстовое значение, то тип поля принимается как ТЕКСТ (!)
3.2. Если в первых 8 строках есть ТОЛЬКО ЧИСЛОВЫЕ значения, то тип поля принимается как ЧИСЛО (даже если все последующие значения, начиная с 9-го являются текстом)

Подробности про IMEX=1, например, здесь:

Цитата:

NOTE: Setting IMEX=1 tells the driver to use Import mode. In this state, the registry setting ImportMixedTypes=Text will be noticed. This forces mixed data to be converted to text. For this to work reliably, you may also have to modify the registry setting, TypeGuessRows=8. The ISAM driver by default looks at the first eight rows and from that sampling determines the datatype. If this eight row sampling is all numeric, then setting IMEX=1 will not convert the default datatype to Text; it will remain numeric.

[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')));
}