Привет народ.
Я наверное ленивый программист,но...уж очень не хочется почему то думать,тем более,что один раз уже думала,но не получилось.
Нет ли у кого наработок по такому вот поводу(или где об этом можно почитать):
предположим раз в пол года мне нужно чистить БД и оставлять там информацию только за последние 3 месяца.
До этого я делала это всё руками,просто перекладывала копию БД (получалось в архиве несколько БД только за разные периоды ), а в рабочей удаляла и паковала ненужные записи, но вот дошло время и пора бы автоматизировать,а конкретно сливать в одну БД.
Надеюсь я понятно обьяснила.
Но тут и пошли всякие разные проблемы,одинаковое название БД и т.д и т.п.

Памажите...
Спасибо.

Спасибо конечно за намёки интеллектуальности...

Дело не в удалении,а в слиянии.
Наверное мы друг друга не понимаем.
Конкретно, есть в архиве БД -test с инфой 01.01.2004-01.07.2004 .
В начале года я хочу в базу test добавить информацию с 02.07.04-01.01.2005 из работающей базы с таким же названием.
И при этом названия везде должны остаться одинаковы ,чтобы в случае чего при надобности запустить работающий .exe и посмотреть что нужно.

Всем спасибо за внимание и за советы.
А по-поводу последнего...
Игорь,я бы не морочила себе голову со всем этим потому как обьёмы таблиц не достигают такого как вы говорите,но ...
тут помимо этого есть другие причины.
Сервера не очень мощные на которых БД лежит ,плюс сеть такая же , в программе ну очень многов сяких расчётов (например в гриде идёт поиск по всеё таблице и расчёт) и по мере накопления -за несколько месяцев работы всё начинает ну настолько медленно работает , что хочется простьо застрелиться.Ну к примеру ходим Enter по Grid , по скорости я могла бы уже перейти на пятое поле а он только на второе перескочил.
Вот поэтому и морочусь.

Владимир я очень рада за Вас,что Вы хорошо думаете!
Я бы попросила без оскорблений и намёков.
Если Вам нечего посоветовать то пожалуйста вообще ничего не говорите,по крайней мере мне!

Здравствуйте Владимир!
Видимо Вы опытный программист и Вам виднее касаемо оптимизации,а я только учусь можно сказать,занимаясь этим всего 2 года и это был мой первый проект.
А по поводу влияния обьёма таблиц:
я думаю ,что в моём случае влияет,потому как в каждом поле идёт поиск соответствия по нескольким таблицам и куча расчётов.Когда работает 3-4 юсера ничего ,а когда 15 тогда плохо.

Многие выделили мою фразу о ленивости,это была шутка во-первых,а во-вторых если бы я занималась только разработкой БД - разбиралсь бы лучше , но у меня много других занятий и обязанностей,а времени к сожалению как всегда не хватает.Поэтому попрошу всех кто читает или отвечает не смеяться надо мной!

Ещё раз спасибо за участие!!!

Хорошо Strong!
Я Вам напишу код и приблизительный смысл (совсем всё не могу,если Вы посмотрите на мой e-mail то поймёте в какой структуре я работаю,а по сему не имею права),что вообще за расчёт происходит в полях Grid,если Вы расскажете как это можно оптимизировать -буду Вам очень бдагодарна .
Но только 9 марта.
Сейчас у нас активное отмечание 8 марта на работе,а дома у меня нет инета.
Договорились?

Здравстуйте Strong!
Вы ещё не передумали помочь ?

Хорошо !
Суть того, что происходит состоит в следующем : представьте, что Вы работаете в ломбарде
Получаете от народа или предприятий ценные изделия .
1) У поставщика ( так назовём условно всех кто вам сдаёт чего-нибудь) есть документы где зафиксировано ,что он вам сдаёт - металл , его вес,проба и т.д - таблица DOC
2) Вы в свою очередь перевешиваете ,проверяете и составляете свою характеристику - таблица FAKT
3) Содержимое документов поставщика и ваших могут не совпадать и тогда это должно быть зафиксировано в 3 месте - таблица RAZN и не просто галочка ,что вот мол не совпадает, а полностью вынесена запись которая не совпадает.

Из этого всего вы составляете один документ , где всё это записано.
Пользователь который составляет этот документ заносит информацию сначала в DOC , потом в FAKT и в гриде который привязан к таблице FAKT идет расчёт и сравнение с DOC
Так вот сие происходящее :

local lclig,;
lcchis,;
lchimch,;
lcsum_vst,;
lcriz_v,;
lcriz_sum,;
lcsum,;
lcid,;
arrFakt(3),;
lc_id_V,;
lcFilter_V,;
lcfilter_M,;
lnrecno
local array arrDoc(2)
arrDoc(1)=0
arrDoc(2)=0

local array arrVst(1)
arrVst(1)=0

lcOldArea=Alias()


IF !EMPTY(fakt.c_met) and between(val(c_met),1,100)

SELECT fakt
lcmet=alltr(fakt.c_met)
lcproba=alltr(fakt.proba)
lc_id_V=alltr(fakt.id_V)
lcrecno_f_m=Recno()
lcFilter_V='AllTrim(Fakt.idAkt)+AllTrim(fakt.idRec)==AllTrim(AktVRec.idAkt)+AllTrim(AktVRec.idRec)' - (фильтр этот документ и именно это изделие в документе )

lcfilter_M='alltr(c_met)==alltr(lcmet) and alltr(proba)==alltr(lcproba)'


**************************************************************
&& если есть вставки пересчитываем их общий вес (имеется в ввиду если в изделии есть драгоценные камни помимо метала )

LOCATE FOR between(val(c_met),200,300)
IF FOUND()
lnRecno=Recno('fakt') && первая запись с вставкой (она может быть не одна)

calculate sum(IIF(fakt.c_od=[1],fakt.vst,Round(fakt.vst*0.2,2)));
for &lcFilter_V;
and alltrim(fakt.id_V)==alltrim(lc_id_V);
to array arrVst

SELECT fakt
LOCATE FOR RECNO()=lnrecno
ELSE
arrVst(1)=0
ENDIF
**************************************************************
&& пересчитываем характеристики метала и заносим в соответствующие поля грида

SELECT Fakt
go record lcrecno_f_m
lclig=round(fakt.zag-fakt.sk-arrVst(1),2)

This.Parent.Parent.Column5.Text1.VALUE=lclig

lcsum=round(fakt.cina*(fakt.lig+fakt.him_lig),2)

This.Parent.Parent.Column11.Text1.VALUE=lcsum

IF alltrim(fakt.proba)=='900/750'
lcchis=Round(fakt.lig*0.81,2)
ELSE
lcchis=Round((fakt.lig*val(fakt.proba))/1000,2)
ENDIF

REPLACE fakt.chis with lcchis

**************************************************************
&& теперь считаем разницу в весе и сумме между тем ,что в DOC и FAKT

SELECT fakt
lcrecno_f_m=recno()
calculate sum(fakt.lig),sum(fakt.him_lig),sum(fakt.sum_z);
for &lcFilter_M;
to array arrFakt

SELECT fakt
LOCATE FOR RECNO()=lcrecno_f_m


SELECT doc
lcrecno=Recno('doc')

calculate sum(doc.lig),sum(doc.sum_z);
for &lcFilter_M;
to array arrDoc

SELECT doc
LOCATE FOR RECNO()=lcrecno

lcriz_v=arrFakt(1)+arrFakt(2)-arrDoc(1)
lcriz_sum=arrFakt(3)-arrDoc(2)

&& заносим разницу в соответствующие поля
SELECT fakt
LOCATE FOR alltr(fakt.c_met)==alltr(lcmet) and alltr(fakt.proba)==alltr(lcproba)

This.Parent.Parent.Column14.Text1.Value=lcriz_s
This.Parent.Parent.Column13.Text1.Value=lcriz_v

LOCATE FOR RECNO()=lcrecno_f_m


Thisform.Refresh()


&& проверка правильности пересчёта одной их характеристик метала
IF fakt.lig+fakt.sk+arrVst(1)=fakt.zag
ELSE
messagebox("Stop!",[])
ENDIF

ELSE
ENDIF

SELECT &lcOldArea
Thisform.Refresh()

Вот такой расчёт происходит практически в каждом поле грида который привязан к FAKT и помимо этого в AfterRowColChange грида идёт проверка, что если эта запись вынесена в таблицу RAZN содержимое полей должно совпадать ,если не совпадает заменить.

-------------------------------------------------------
Привет Redrik!
Что касаемо моего e-mail,то в субботу он был ,а сегодня утром я решила его скрыть!!!
А за помощь спасибо,буду только рада!

Ну для того ,чтобы нормально понять код нужно знать задачу,а она очень специфическая.

Я вообще то сначала сделала через SELECT, но он почему то переодически плохо себя вёл: или считал неправильно,я так понимаю фильтр неправильно в нём отрабатывал ,или вообще давал 0.
Правда это был простой запрос ,а не с вложенным как вы написали - попробую ещё раз.

1) А что SELECT быстрее работает чем CALCULATE ?

2) А как можно проверить за сколько времени отработает запрос, т.е вот сейчас у меня CALCULATE и я хочу знать , сколько он работает,потом поменяю на SELECT и хочу посмотреть разницу во времени?

Не пойму почему Вас так интересует мой e-mail ,а соответственно и структура где я работаю?
Если Вас это успокоит ,то в моём e-mail есть вот такой кусочек gov.ua
Понятно?