語(yǔ)句應該如何寫(xiě)?謝謝
---------------------------------------------------------------
1. 添加 COM 引用 “MICROSOFT SQLDOM OBJECT LIBRARY”
2.
Private Function GetAllSQLServers() As ArrayList
Dim oApp As SQLDMO.ApplicationClass = New SQLDMO.ApplicationClass
Dim sArrList As ArrayList = New ArrayList
Try
Dim sServerList As SQLDMO.NameList = oApp.ListAvailableSQLServers()
If Not IsNothing(sServerList) Then
For i As Integer = 1 To sServerList.Count
sArrList.Add(sServerList.Item(i).ToString())
Next
sServerList = Nothing
Return sArrList
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
Return Nothing
Finally
oApp = Nothing
End Try
End Function
---------------------------------------------------------------
調用SQLDOM
不過(guò)速度比較慢,
要等很久。
聯(lián)系客服