![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Список серверов 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;