Как получить на клиенте список доступных MSSQL серверов???

← →
vasilly © (2002-08-19 13:43) [0]

Как получить на клиенте список доступных MSSQL серверов???
Как это например делает сам SQL Server?

← →
3JIA9I CyKA © (2002-08-19 13:44) [1]

Поищи по форуму ("ПОИСК").

← →
sniknik © (2002-08-19 13:52) [2]

var oApp:OleVariant;
i,j:Integer;
begin
oApp:=CreateOleObject("SQLDMO.Application");
Memo1.Lines.Clear;
for i:=1 to oApp.ServerGroups.Count do
begin
for j:=1 to oApp.ServerGroups.item(i).RegisteredServers.Count do
Memo1.Lines.Add((oApp.ServerGroups.item(i).RegisteredServers.Item(j).Name));
end;
oApp:=Unassigned;
end;

дает сервера только "прописанные" на машине.

← →
TSV © (2002-08-19 14:01) [3]

ListAvailableSQLServers...

← →
TSV © (2002-08-19 14:01) [4]

Поищи по форуму, это уже было...

← →
vasilly © (2002-08-19 14:30) [5]

Как правильно использовать этот метод??
когда пишу код, ругается что неверное число параметров?

я про ListAvailableSQLServers

В Books Online посмотри...

в BOL я искал там нет.
С бейсика переведеш?
Private Sub Command1_Click()
Dim i As Integer
Dim oNames As SQLDMO.NameList
Dim oSQLApp As SQLDMO.Application
Set oSQLApp = New SQLDMO.Application

Set oNames = oSQLApp.ListAvailableSQLServers()
List1.Clear
For i = 1 To oNames.Count
List1.AddItem oNames.Item(i)
Next i
End Sub

Как получить на клиенте список доступных MSSQL серверов??? Найти похожие ветки