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

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

Список серверов MS SQL [D7, MSSQL]


PHilosoPH! ©   (2005-07-21 14:15:00) 

Подскажите пожалуйста:
- возможно ли получить список серверов MS SQL в текущей подсети?
- если возможно, то как?

Заранее спасибо.


PHilosoPH!   (2005-07-21 14:45:00) [1]

to Johnmen ©

Большое спасибо. Все ОК.


Johnmen   (2005-07-21 14:38:00) [2]

sniknik как то здесь уже приводил целый кусок программы.
Но мне думается, что проще

var
 v: variant;
 i: integer;
...

 v:=CreateOleObject('SQLDMO.Application');
 Memo.Lines.Clear ;
 if v.ListAvailableSQLServers.Count>0 then begin
   for i:=1 to v.ListAvailableSQLServers.Count do
     Memo.Lines.Add(v.ListAvailableSQLServers.item(i));
   Memo.Lines.Text:=Memo.Lines[0];
   end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо