Скачать: CL | DM;

Как получить на клиенте список доступных 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]

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

---

← →
vasilly ©   (2002-08-19 14:31) [6]

я про ListAvailableSQLServers

---

← →
TSV ©   (2002-08-19 14:58) [7]

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

---

← →
sniknik ©   (2002-08-19 15:21) [8]

в 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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c