Суть проблеммы
нужно при помощи ADO почитать общую сумму оплаты данных на листе "Платежи"
вроде считает,
но когда начинаю проверять, некоторые платежи выпадают из расчета.
файл прилогаю.

Shocker.Proу меня ничего не выпало. Конкретнее пожалуйста

Обидно до соплей.
все поудалял из книг для примера
сейчас стало все нормально
а до этого было следующее.

Select ом отбирал платежи и при отборе некоторые просто пропускались.
отбирал макросом "Макрос5"

Shocker.Pro,

а подскажите
вот код
авторSub Макрос5()

Dim cn As Object, rs As Object
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + ThisWorkbook.FullName + ";Extended Properties='Excel 8.0'"
rs.Open "SELECT * FROM [Платежи$] WHERE (REG_NUM=107) ORDER BY REG_NUM ", cn, 3
Cells(1, 1).CopyFromRecordset rs
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing


End Sub


как контролировать ?
все работает стабильно
и отбирает всегда одинаковые строки
прямой зависимости не могу выявить

Shocker.Pro,
все банально просто.
файл Excel, принимает данные из БД постоенной на DB2
лист где хранятся платежи имеет записей от 30 до 80 тысяч
все работает на Excel 2007 поэтому проблем с ограничением не испытываю
также принимаю из DB2 в отдельный лист описание плательщиков (имя ,адрес и т.д.)
листы скрытые после этого формулами расчитываю
по отдельным плательщикам всякие данные все считает отлично
автор http://www.sql.ru/forum/actualthread.aspx?tid=844510
стал вопрос как узнать кто из плательщиков имеющий определенный статус вообще ничего не платит.
и вот тут начал выдумывать анализ и получение данных на ADO

автор http://www.sql.ru/forum/actualthread.aspx?tid=976075

но при простом
авторSELECT * FROM [Платежи$] WHERE (INS_REG_NUM=103) ORDER BY INS_REG_NUM

у меня происходит неполное получение данных
при этом я уверен на 100 % что пустых строк от начало и до конца SELECTa нет
но при этом автофильтром я вижу 528 строк (а так хочется написать записей)
а SELECT отбирает всего 261 и вот тут я застопорился ..................

портерChumakov_JA, попробуй опять же
1. поюзать акцесс, связав исходный эксельный лист по ОЛБЦ. Там все-таки конструктор удобный для всяких экспериментов.
2. МС Квери.
ЗЫ Похоже, АДО для источника типа Эксель вообще косячная штука. При массовом использовании, бывает, уже в обед перегружаю комп, т.к. память стремительно утекает как змеиная песочная собка, "Out of memory" - и все тут.

сють проблеммы нужно на стандартном варианте Micrisoft Office
а там тока Excel,Word, PowerPoint

qwerty112портер

Кстати, такой провайдер вроде тока для ограниченного 2003-м Экселем числом строк робит корректно? Т.е. более 2^16 строк он не пережует?
+1

ТС, провайдер нужно использовать другой для 2007-го Экселя
http://connectionstrings.com/excel-2007

Ну огромное спасибо все помогло

автор sCon = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & ThisWorkbook.FullName & ";" & _
"Extended Properties=""Excel 12.0;HDR=Yes;"";"

ну подскажите ещё момент
где неправельно

автор sSQL = "SELECT `Плательщики$`.INS_REG_NUM, " & _
"`Плательщики$`.INS_SHORT_NAME, Sum(`Платежи$`.PAY_SUM) AS 'Сумма из PAY_SUM' " & _
"FROM {oj `Плательщики$` `Плательщики$` " & _
"LEFT OUTER JOIN `Платежи$` `Платежи$` ON `Плательщики$`.INS_REG_NUM = `Платежи$`.INS_REG_NUM} " & _
"WHERE (`Плательщики$`.CT_ID>=89) AND (`Плательщики$`.INS_UNARRANGE_DATE Is Null) " & _
"GROUP BY `Плательщики$`.INS_REG_NUM, `Плательщики$`.INS_SHORT_NAME " & _
"ORDER BY `Плательщики$`.INS_REG_NUM;"


при этом MS Query
все работает

Chumakov_JA,

уже прям выяснил что длинный запрос
а вот как уменьшить ?

F,
Пример или ссылку в студию.