Форум ФОСС-Он-Лайн

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

[FBARC]
; Сколько дней хранить данные в рабочей базе,
; после чего они переносятся в архивную базу
#WORKBASE_DAYS=30
; За сколько дней от #WORKBASE_DAYS переносить данные (умолчание - 365)
;#REMOVED_DAYS=365
; Сколько дней хранить данные в архивной базе
; после чего они удаляются окончательно
; (при запуске с параметром -auto)
; 0 - не удалять вообще
#ARCBASE_DAYS=0
; пример коннекта к MS SQL
;#ARC_CONNECTION_STR=DSN=FOSS;DBQ=C:\Fossmail32\BASE\FOSSARC.MDB;DriverId=281;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;
#ARC_CONNECTION_STR=DSN=FossArcMS;SERVER=S-014-06;UID=sa;PWD=********
#IGNORE_ERRORS=23000,23s00, 23400

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

#CONNECTION_STR=DSN=FossMS;SERVER=S-014-06;UID=sa;PWD=*******

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

print '['+CONVERT(varchar(10), GETDATE(), 4) + ' ' + CONVERT(varchar(8), GETDATE(), 108)+'] '+'Начинаю...'
print ''
print 'Устанавливаю текущую базу : FossMail'
USE FossMail
GO

declare @CurYear varchar(4)
set @CurYear = CONVERT(varchar(4),DATEPART(yyyy,GETDATE()))

declare @CurMonth varchar(2)
declare @NCurMonth varchar(2)
declare @int_CurMonth int
set @int_CurMonth = DATEPART(m,GETDATE())
set @CurMonth = CONVERT(varchar(2),@int_CurMonth)
if @int_CurMonth<10 set @CurMonth='0'+@CurMonth

declare @SearchDate varchar(7)
set @SearchDate = @CurYear+@CurMonth+'%';

print ''
print 'Вичислил текущую дату для отбора ['+@SearchDate+']' 

print ''
print 'Копирую записи MESSLIST в архивную базу' 
insert into FossMailArc.dbo.MESSLIST
	select * from dbo.MESSLIST WHERE (IT not LIKE @SearchDate)

print ''
print 'Создаю курсор на MESSLIST с фильтром IT='+@SearchDate

DECLARE CursorSearchMASSLIST CURSOR FOR SELECT ID FROM dbo.MESSLIST WHERE (IT not LIKE @SearchDate)
OPEN CursorSearchMASSLIST

DECLARE @ID_O varchar(42)

WHILE 1=1 BEGIN
  FETCH FROM CursorSearchMASSLIST INTO @ID_O
  IF @@fetch_status=-1 
      BREAK
  IF @@fetch_status=-2
      CONTINUE
	PRINT ''
	PRINT '  : '+@ID_O
	PRINT '      Копирую запис(и) FILELIST'
		insert into FossMailArc.dbo.FILELIST
			select * from dbo.FILELIST WHERE (ID = @ID_O)
	PRINT '      Удаляю запис(и) FILELIST'
		delete from dbo.FILELIST WHERE (ID = @ID_O)
	PRINT '      Копирую запис(и) RECPLIST'
		insert into FossMailArc.dbo.RECPLIST
			select * from dbo.RECPLIST WHERE (ID = @ID_O)
	PRINT '      Удаляю запис(и) RECPLIST'
		delete from dbo.RECPLIST WHERE (ID = @ID_O)
 END

DEALLOCATE CursorSearchMASSLIST

print ''
print 'Удаляю старые записи MESSLIST' 


delete from dbo.MESSLIST WHERE (IT not LIKE @SearchDate)

GO
print ''
print '['+CONVERT(varchar(10), GETDATE(), 4) + ' ' + CONVERT(varchar(8), GETDATE(), 108)+'] '+'Завершил :)'

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

[01.06.09 09:51:48] Начинаю...
 
Устанавливаю текущую базу : FossMail
 
Вичислил текущую дату для отбора [200906%]
 
Копирую записи MESSLIST в архивную базу

(97754 row(s) affected)
 
Создаю курсор на MESSLIST с фильтром IT=200906%
 
...
...

      Копирую запис(и) RECPLIST

(1 row(s) affected)
      Удаляю запис(и) RECPLIST

(1 row(s) affected)
 
  : S~20090526090713ACVP2NLQJKNARMF
      Копирую запис(и) FILELIST

(1 row(s) affected)
      Удаляю запис(и) FILELIST

(1 row(s) affected)
      Копирую запис(и) RECPLIST

(1 row(s) affected)
      Удаляю запис(и) RECPLIST

(1 row(s) affected)
 
Удаляю старые записи MESSLIST

(97754 row(s) affected)
 
[01.06.09 09:54:23] Завершил :)