авторCa.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data/arhiv/" + strSur + ";Jet OLEDB:Database Password=" + MainForm.Pas + ";"

Ca.Open

'Чистим таблицу
Mconn.Execute ("DELETE arh_rep.* FROM arh_rep")

' ДОБАВЛЯЕМ ДАННЫЕ ИЗ ДРУГОГО mdb ВО временную таблицу для СОЗДАНИЯ отчетов ЗА архивныЕ ЕРИОДЫ

Ca.Execute ("INSERT INTO arh_rep IN'" + App.Path + "\Data\kvartplata.amd' SELECT Adding.* FROM Adding WHERE (((Adding.KodKv)=" + Номер + "));")
.
.
.
потом
'Открываем Рекордсет

rsLg.Open ("SELECT arh_rep.DataT AS Дата, arh_rep.NameKat AS Категория, arh_rep.KodN AS Код, arh_rep.NameN AS Начисление, arh_rep.ObPl AS Площадь, arh_rep.Propis AS Прописано, arh_rep.Tarif AS [Тариф(осн)], arh_rep.TarifI AS [Тариф(доп)], arh_rep.Shc_new AS Счетчик, IIf([arh_rep]![Tip]='-',[arh_rep]![SummaI],0) AS Начислено, IIf([arh_rep]![Tip]='+',[arh_rep]![SummaI],0) AS Оплачено, IIf([arh_rep]![Tip]='s',[arh_rep]![SummaI],0) AS Субсидии FROM arh_rep ORDER BY arh_rep.DataT, arh_rep.NameKat, arh_rep.KodN"), Mconn
СУТЬ ПРОБЛЕМЫ:
ИМХО
Пока срабатывет Ca.Execute rsLg.Open забирает данные с пустой таблицы предврительно очищенной при помощи Mconn.Execute ("DELETE arh_rep.* FROM arh_rep")
Ставил задержки в циклах, выводил ProgressBar-ы не помогает.
Если убрать предварительную очистку таблицы срабатывет после 2-3-го запуска(иногда и после первого).
Как убедиться что Ca.Execute отработал полностью и можно двигаться дальше. Или МОЖЕТ подскажите кто знает какой тип курсора надо поставить, что бы все работало по порядку?

Всем зараннее спасибо.

Один конэкт "Ca" в цикле переберает кучу архивных баз т.е. Cn.Open Execute(копирует нужные данные во временную таблицу всегда открытую при помощи Mconn) потом Cn.close и новый цикл.

Изначально структура хранения данных прошлых периодов была мною задумана в отдельных файлах что бы не раздувать и не чистить базу Access. Данныеуспешно копились, и Теперь остро стоит вопрос собирать отчеты за год или 2-3.

Возможно я придумал не лучший способ но все работает заисключением описанной выше проблемы.

Не открывал исходники года два, какой курсор если не трудно напишите пожалуйста конкретно, ели нет буду читать и вспоминать все снова. )))
Спасибо.

Спасибо буду копать, результат напишу.
Но как можно скопирвать таблицу из одной базы mdb в другую при помощи одного коннекта?

Точно прошу прщения, спасибо.

Есть основная база, в ней таблица "arh_rep" она постоянная но данные в ней временные.
Каждый раз когда необходимо собрать отчет я планирую в эту "Временную" таблицу собирать данные из скажем 12 архивных баз со схожей структурой предварительно удаляя все старые данные из "arh_rep".
потом на основании "arh_rep" собираю отчет и больше она мне не нужна пока не дается команда на сбор нового отчета.
Да таблица постоянная данные временные.

если можно то подробнее что такое прокси таблицы и как их делать?

Можно ли программно из VB создать таблицу связанную с другой базой MDB, т.е. как? В access просто "создать таблицу" "связь с таблицами" а программно не умею. Возможно для меня это будет вариант.

Большое спасибо, буду работать.
только что делает "union all" для меня пока загадка.

Спасибо всем за советы но проблема остаеться.


код тот жэ что приводил раньше.

Снова склоняюсь к мнению что
После копирования данных из других баз таблица 'arh_rep'
содержит 13 записей(проверяю открывая в access.

запрос
в грид выдает только 12. Пропадает 1.

указл работает стабильней.
rsLg.RecordCount дает 13.
В гридпопадает все. НО остался осадок, вдруг при работе на рабочихбазах будет сбоить т.е. терять строки, это будет очень, очень плохо.

Может кэширование диска отключить, я уже не знаю что делать.

Если есть мысли рад любому совету.
Спасибо.

Можо ли при выполнении


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