Как переиндексировать БД 1С в самом SQL? #203984

Вот собственно вопрос...

DBCC Checkdb ('_sql', Repair_Rebuild) непомогает . . .

sp_MSforeachtable "DBCC DBREINDEX ('?') WITH NO_INFOMSGS"

use "karat_mebel" DECLARE @MyTable varchar DECLARE @MyIndex varchar DECLARE MyCursor CURSOR FOR SELECT o.name, i.name FROM sysobjects o INNER JOIN sysindexes i ON o.id = i.id WHERE (o.xtype = 'U') AND (INDEXPROPERTY(i.id, i.name, 'isStatistics') = 0) AND (i.dpages > 0) ORDER BY o.name, i.indid OPEN MyCursor FETCH NEXT FROM MyCursor INTO @MyTable, @MyIndex WHILE @@FETCH_STATUS=0 BEGIN PRINT 'Дефрагментация индекса '+@MyIndex+' из таблицы '+@MyTable DBCC INDEXDEFRAG (0,@MyTable,@MyIndex) DBCC UPDATEUSAGE (0,@MyTable,@MyIndex) DBCC DROPCLEANBUFFERS FETCH NEXT FROM MyCursor INTO @MyTable, @MyIndex END CLOSE MyCursor DEALLOCATE MyCursor

smaharbA это что за скрипт ?  :)

скуль, реиндексирует обновляет дефрагментирует индексы, ну и дропает буфер на всякий случай... можно удаленно... (но уже VBS) Const adOpenStatic = 3 Const adLockOptimistic = 3 User="Пользователь" 'Это администратор домена или того компа где SQL (если нет домена) Pass="Пароль" 'это его пароль DB="karat_mebel" 'Это база SQLServer="proxysrv" 'это скуль сервер Set objConnection = CreateObject("ADODB.Connection") Set objRecordSet = CreateObject("ADODB.Recordset") Command="use """ & DB """ & vbCrLf & _ "DECLARE @MyTable varchar" & vbCrLf & _ "DECLARE @MyIndex varchar" & vbCrLf & _ "DECLARE MyCursor CURSOR FOR" & vbCrLf & _ "SELECT o.name, i.name" & vbCrLf & _ "FROM sysobjects o INNER JOIN sysindexes i ON o.id = i.id" & vbCrLf & _ "WHERE (o.xtype = 'U') AND (INDEXPROPERTY(i.id, i.name, 'isStatistics') = 0) AND (i.dpages > 0)" & vbCrLf & _ "ORDER BY o.name, i.indid" & vbCrLf & _ "OPEN MyCursor" & vbCrLf & _ "FETCH NEXT FROM MyCursor INTO @MyTable, @MyIndex" & vbCrLf & _ "WHILE @@FETCH_STATUS=0" & vbCrLf & _ "BEGIN" & vbCrLf & _ "DBCC INDEXDEFRAG (0,@MyTable,@MyIndex)" & vbCrLf & _ "DBCC UPDATEUSAGE (0,@MyTable,@MyIndex)" & vbCrLf & _ "DBCC DROPCLEANBUFFERS" & vbCrLf & _ "FETCH NEXT FROM MyCursor INTO @MyTable, @MyIndex" & vbCrLf & _ "END" & vbCrLf & _ "CLOSE MyCursor" & vbCrLf & _ "DEALLOCATE MyCursor" & vbCrLf objConnection.Open "Provider=SQLOLEDB;Data Source=" & SQLServer & ";Trusted_Connection=Yes;Initial Catalog=" & DB & ";User ID=" & User & ";Password=" & Pass & ";" objRecordSet.Open Command, objConnection, adOpenStatic, adLockOptimistic objConnection.Close

(4,5) Прошу прощения,Коллега,но реиндексации (ре-воссоздания) индексов здесь,как раз и не происходит,дефрагмент.,да,согласен,но реиндексация-ни божеж мой!

а это что DBCC UPDATEUSAGE ?

млин, у меня база нифига не работает.... в пользовательском режиме заходит, а при выгрузке архива в конфигураторе, или Тестирования базы выдаёт ошибку native 21 Fatal Error 7987..... Невосстановимая ошибка БД... Что делать?

не путай обновление статистики и реиндексацию :-)))

+ немного трезв я... но вроде так оно

тогда уж,явно указать: sp_MSforeachtable "DBCC Update Statistics ?"

Ну да стат тоже конечно

Домой я, теперь в хате двушке, компа пока нет, все ведь с работы постил :)

Ну слава богу,абрамчик! :))) сэрегировал! А то я уж подумал,что ты сапсэм...тово! :)

Народ, ну подскажите откуда эта ошибка Fatal Error 7987..... и как её исправить...

А ты типа такого - смотрел???

"...If any errors are found, they cannot be repaired..." Однако! Короче,вешалка?

я бы пока не поздно - слелал бы бэкап базы хотя бы средствами 1С... мало ли чЁ...

вылетает,при архивации.

Я бы робко предложил,повыгружать все антивирусы,удалить в syslog все-все. А перед этим...проверить диски(или на худой конец дефрагментировать). ...Переустановить SQL и/или 1С,короче-шаманство.

А у тебя чЁ за сиквел?

+21 и сервис паки?