Лабораторная работа 3.4

Объекты SQLDMO.Database и SQLDMO.Table, автоматическое перестроение индексов базы данных SQL Server скриптом VBScript

Задание:

Напишите скрипт SQL-DMO, который бы перестраивал все индексы для всех пользовательских таблиц в базе данных Northwind.

Примечание:

после выполнения скрипта убедиться, что индексы действительно перестроены, можно при помощи команды DBCC SHOW_STATISTICS.

Например:

DBCC SHOW_STATISTICS (customers, PK_Customers)

Нужная информация - в столбце Updated.

Решение:

Итоговый код скрипта VBScript может выглядеть так:

Dim sCompName, oNetwork, oServer, oDB, oTable

Set oNetwork = CreateObject("Wscript.Network")
sCompName = oNetwork.ComputerName

Set oServer = CreateObject("SQLDmo.SqlServer")
oServer.Name = sCompName
oServer.LoginSecure = true
oServer.Connect

Set oDB = oServer.Databases("Northwind")
nCount = oDB.Tables.Count

For i = 1 To nCount
Set oTable = oServer.Databases("Northwind").Tables(i)
If oTable.SystemObject = False And oTable.HasIndex = True Then
oTable.RebuildIndexes
End If
Next

Получить учебные материалы по этому курсу