| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Доступные MS SQL сервера в сети [D6, MSSQL]
Санек © (2004-02-09 13:10:00)
Как определить доступные MS SQL сервера в сети
ZrenBy (2004-02-09 13:23:00) [1]
var
dmo, sn: Variant;
i: Integer;
begin
ComboBox1.Items.Clear;
dmo:=CreateOleObject("SQLDMO.Application");
sn:=dmo.ListAvailableSQLServers;
if sn.Count <> 0 then begin
for i:=1 to sn.Count do ComboBox1.Items.Add(sn.Item(i));
end;
sn := UnAssigned;
dmo := UnAssigned;
end;
| |
