ADO + Excel

[Annushka]

Интересная вещь происходит. Пример прилагается.
Делаю отбор записей, в которых в четвертой колонке стоит 1. Находит. Убираем самую верхнюю единичку из четвертой колонки, остальные не находятся. Т.е. если вверху достаточно большой участок данных, которые не подходят, то не находятся и все остальные.
Может быть, есть какие-то параметры о количестве записей?

[HandKot]

у меня все нормально
"Найдено 3 записи"

[Annushka]

А вот это уже интересно!
А у кого-нибудь еще тоже все хорошо?

P.S. А вы '1' удаляли совсем или заменяли на другой символ?

[alibek]

А какая строка подключения?

[Annushka]

Код: Выделить всё

Filename = ActiveWorkbook.Path & "\test_sql.xls"
ConnectionString_s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Filename & ";Extended Properties=""Excel 8.0;HDR=No"";"


[HandKot]

А вот это уже интересно!
А у кого-нибудь еще тоже все хорошо?

P.S. А вы '1' удаляли совсем или заменяли на другой символ?

удалял клавишей Del

[KL]

"Rows to Scan: Excel does not provide ADO with detailed schema information about the data it contains, as a relational database would. Therefore, the driver must scan through at least a few rows of the existing data in order to make an educated guess at the data type of each column. The default for "Rows to Scan" is eight (8) rows. You can specify an integer value from one (1) to sixteen (16) rows, or you can specify zero (0) to scan all existing rows. This is done by adding the optional MaxScanRows= setting to the connection string, or by changing the Rows to Scan setting in the DSN configuration dialog box.

However, due to a bug in the ODBC driver, specifying the Rows to Scan (MaxScanRows) setting currently has no effect. In other words, the Excel ODBC driver (MDAC 2.1 and later) always scans the first 8 rows in the specified data source in order to determine each column's datatype."

http://support.microsoft.com/kb/257819

Дополнение: Решение описано здесь: http://support.microsoft.com/kb/189897/EN-US/

[Annushka]

Спасибо большое.
Решений оказалось 2:
1. Установить в реестре HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Excel\TypeGuessRows=0
2. В строке коннекта добавить IMEX=1, т.е. моя получилась такая:

Код: Выделить всё

Filename = ActiveWorkbook.Path & "\test_sql.xls"
ConnectionString_s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Filename & ";Extended Properties=""Excel 8.0;HDR=No;IMEX=1"";"