![]() |
#15 |
Участник
|
Цитата:
Какая-та опция должна быть, которая сбросила бы историю удаления. Пробовала следующий оператор, но, увы, и он не сработал: В цикле: ConnectSQL(); _TableName := STRSUBSTNO('[dbo].[%1', COMPANYNAME) + '$Debts Forma 5 Buffer]'; strSQL := STRSUBSTNO('USE [%1]; SET LOCK_TIMEOUT -1;',DatabaseName); strSQL += 'declare @str varchar(4000)'; strSQL += ' set @str = ''TRUNCATE TABLE with(TABLOCK) ''+' +'''' + _TableName+ ''''+ '' + '+ '' DBCC CHECKIDENT (''+' +'''' + _TableName+ ''''+ '+'', RESEED,1);''' + ' exec (@str)' MESSAGE('%1_begin',DebtsBuffer.COUNT); adocon.Execute(strSQL); MESSAGE('%1_end',DebtsBuffer.COUNT); adocon.Close; adocon.Cancel; // всё, что есть, всё использовала, чтобы сбросить adocon.Open. CLEAR(adocon); |
|