registeredserverform.vb

来自「SQL Server 业已成为最为流行的几大数据库之一」· VB 代码 · 共 44 行

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''ch07 示例11
''
''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


Imports Microsoft.SqlServer.Management.Smo
Imports Microsoft.SqlServer.Management.Smo.RegisteredServers


Public Class RegisteredServerForm

    Dim lServerGroup As ServerGroup
    Dim lRegServer As RegisteredServer

    Private Sub RegisteredServerForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        For Each lServerGroup In SmoApplication.SqlServerRegistrations.ServerGroups

            lbServerGroup.Items.Add(lServerGroup.Name.ToString)

        Next

        For Each lRegServer In SmoApplication.SqlServerRegistrations.RegisteredServers

            lbRegServerOfGroup.Items.Add(lRegServer.Name.ToString)

        Next

    End Sub

    Private Sub lbServerGroup_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbServerGroup.SelectedIndexChanged

        GroupBox2.Text = "组" + lbServerGroup.Text.Trim + "中的注册服务器"
        For Each lRegServer In SmoApplication.SqlServerRegistrations.ServerGroups.Item(lbServerGroup.Text.Trim).RegisteredServers

            lbRegServers.Items.Add(lRegServer.Name.ToString)

        Next

    End Sub

 
End Class