logo
SQL2008_Administration

7.3.3. Объект smo.Server

Объект SMO.Server представдяет экземпляр сервера SQL Server. При помощи этого объекта производится подключение к конкретному серверу SQL Server.

Создание объекта SMO.Server

  1. Для создания объекта SMO.Server, подключенного к экземпляру SQL Server по умолчанию на локальном компьютере при помощи аутентификации Windows используется следующая запись: Dim oSrv As New Server

  2. Для подключения при помощи аутентификации Windows к серверу SQL Server на другом компьютере или к именованному экземпляру на локальном компьютере, используется другой вариант: Dim oSrv As New Server("Server1\Instance2")

  3. Если для подключения нужно использовать аутентификацию SQL Server, то придется вначале создать и настроить объект SQL.Server.Management.Common.ServerConnection, а затем передать его в качестве параметра конструктору объекта SMO.Server:

Dim oConn As New ServerConnection oConn.ServerInstance = "Server1\Instance2" oConn.LoginSecure = False 'Выбираем аутентификацию SQL Server oConn.Login = "sa" oConn.Password = "P@ssw0rd" Dim oSrv As New Server(oConn) MsgBox(oSrv.Name) 'Проверяем

После создания объекта SMO.Server можно использовать свойства и методы этого объекта — либо для того, чтобы с их помощью непосредственно выполнить какие-то действия, либо для получения доступа к другим объектам SQL Server (базам данных, учетными записями и т.п.).

Основные свойства объекта SMO.Server:

MsgBox(oSrv.Configuration.IsSqlClrEnabled.RunValue)

Включить этот параметр можно следующим образом:

oSrv.Configuration.IsSqlClrEnabled.ConfigValue = 1

oSrv.Configuration.Alter()

For Each oJob In oSrv.JobServer.Jobs MsgBox(oJob.Name) Next

Dim oLinkedServer As New LinkedServer(oSrv, "LONDON7") oLinkedServer.ProductName = "SQL Server" oLinkedServer.Create()

Dim oLogin As New Login(oSrv, "NewSMOLogin1") oLogin.LoginType = LoginType.SqlLogin oLogin.Create("P@ssw0rd")

Основные методы объекта SMO.Server

MsgBox(oSrv.GetActiveDBConnectionCount("db1"))