Türker Şentürk

Ağdaki MsSQL serverleri listeleyeceğimiz bu uygulamada formunuza bir listbox ekleyin ve adını “lstServers” olarak değiştirin, daha sonra Project>References den “Microsoft SQLDMO Object Library” kütüphanesini projenize ekleyin.

Option Explicit

Private Sub Form_Activate()

    Dim mDMOApp As New SQLDMO.Application

    Dim mNames As SQLDMO.NameList

    Dim t As Integer

    Set mDMOApp = New SQLDMO.Application

    Set mNames = mDMOApp.ListAvailableSQLServers()

    lstServers.Clear

    For t = 1 To mNames.Count

        lstServers.AddItem mNames.Item(t)

    Next

End Sub

mDMOApp nesnesinin ListAvailableSQLServers() fonksiyonu geriye NameList tipinde collection döndürüyor. Bu uygulamada kendi makinanızdaki MsSQL Server “(local)” olarak görünecektir(instance name belirtilmemişse), ağdaki diğer makinelerdeki serverler ise Domain adı olarak listelenir.

Trackback URL