| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

vasilly ©   (2002-08-19 13:43:00) 

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

---

sniknik   (2002-08-19 15:21:00) [1]

в 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

---

TSV   (2002-08-19 14:58:00) [2]

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

---

vasilly   (2002-08-19 14:31:00) [3]

я про ListAvailableSQLServers

---

vasilly   (2002-08-19 14:30:00) [4]

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

---

TSV   (2002-08-19 14:01:00) [5]

ListAvailableSQLServers...

---

TSV   (2002-08-19 14:01:00) [6]

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

---

sniknik   (2002-08-19 13:52:00) [7]

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;

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

---

3JIA9I CyKA   (2002-08-19 13:44:00) [8]

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

---

Наверх